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TRSDOS/LS - DOS 6.x 
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HL,(BUFPER$) 
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;P/u di'^ cy1 oi aest 
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■■'W ...^ .,*i 
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Tnit "Dir write 
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Introdyction to Volume Three 

This is volume three of three in the set of commented source code listings for 
LS-DOS/TRSDOS 6.2, as assembled for the TRS-80 Model 4/4P computer. This volume 
contains the utility programs, the standard drivers and filters, and the drive setup 
programs. 

Each file will be preceded by a brief description of its function. A symbol table 
listing will follow each assembly listing. 

The SVC macro file used during assembly of the utilities will be listed in Appendix A, 
along with the equate files generated during assembly of the resident part of the 
operating system. 

This book should by no means be considered a tutorial on assembly language or on the 
workings of the LS-DOS/TRSDOS operating system. It is only the commented source code 
used to assemble the system utilities. It can be used for reference purposes and to 
view examples of interfacing outside drivers, filters and other programs to the DOS 
and to each other. It is not meant to replace the normal technical reference manual 
available from the computer manufacturer. 



This product is sold on an as-is basis, and is totally unsupported by Logical Systems, 
Inc. No questions regarding any aspect of the source code will be answered by LSI 
customer or technical support. Support for LS-DOS users is provided through their OEM 
dealer. Support for TRSDOS 5.x is provided by Tandy Corporation. Comments or 
suggestions may be sent to Logical Systems, Inc. in care of the Source Code Technical 
Editor, but correspondence concerning these comments will not be made. 



TRSDOS and TRS-80 are trademarks of Tandy Corporation 
LDOS and LS-DOS are trademarks of Logical Systems, Inc. 

Copyright (C) 1982, 1983, 1984 by Logical Systems, Inc, 
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BACKUP/CMD - Disk and file duplication utility 

Backup is assembled from three separate source files. The first contains some 
initialization, and the common code needed during mirror image backups and backup by 
class. The other modules contain the code for the two different type of backup 
operations. 
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The Source 



UTILITY Files BACKUP - LS-DOS 6.2 



Page 00001 



0000 
0000 



; BACKUP/ASM - File/disk copy utility 
00110 TITLE <BACKUP - LS-DOS 6.2> 
00120 ; 

00130 *GET BACKUP1:3 
00010 ;BACKUP1/ASM - Backup utility module 
00020 SUBTTL '<Backup initialization>' 



0000 
000A 



00040 
00050 



00070 



0060 
00CC 
00CE 
00 D8 
00E0 

nil 

1555 
42 E0 



0000 
2600 



2600 9D 



2601 00 

2602 20 

20 20 
20 20 
260D 00 
260E 0000 
2610 0000 
2612 0000 
2614 0000 
2616 0000 
0020 
0020 
0020 
2658 
0008 
0002 
0002 
0001 



00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
04070 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
20 20 20 

04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 



SMALL 

FMT 

LF 

CR 

LOCK 

TKCAP 

PSWD 

DAT 

AUTO 

FCNTl 

FCNT2 

PASSWORD 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 







10 

13 

60H 

0CCH 

0CEH 

0D8H 

0E0H 

llllH 

1555H 

EQU 



42E0H 



;SVC Macro equivalents 



*GET SVCMAC:3 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*GET C0PYC0M:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



COM 

ORG 
» 

IF 
BOOTST$ DB 

ENDIF 

IF 
BOOTST$ DB 

ENDIF 



'<*(C) 1982,83,84 by LSI*>' 

2600H 

@M0D2 
03 H 



@M0D4 
9DH 



;Boot step rate ptr 



Data area 



FTFLG$ DB 
SPCFLD$ DC 
20 20 20 

MFLG$ DB 
NEWPRM$ DW 
OLDPRM$ DW 
MODPRM$ DW 
QPARM$ DW 
BUFFERS DW 
FCB1$ DS 
FCB2$ DS 
FCB3$ DS 
LILBUF$ EQU 
DATFLD$ DS 
FMPAKD$ DS 
TOPAKDS DS 
CLSFLGS DS 

» 

IF 




11.' 















32 

32 

32 

FCB3$ 

8 

2 

2 

1 

@M0D2 
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The Source 


UTILITY Fi 


les 


BACKUP - LS-DOS 


6.2 Page 00002 


Backup initic 


ilization 










04440 




SUBTTL 


'<BACKUP Module 


- #4/2>' 




04450 


i 










04470 




ENDIF 








04480 












04490 












04500 




Normal 


exit - no errors 






04510 










2685 21FC29 


04520 


EXITl 


LD 


HL,BUCAO$ 


; "Backup complete.. . 


2688 E5 


04530 




PUSH 


HL 


;Save msg ptr 


2689 CDC926 


04540 




CALL 


EXIT5 


;Ck if prompt for sys disk 


268C El 


04550 




POP 


HL 




268D 


04560 




@@DSPLY 








mmi 




IFEQ 


130H,1 






00002 




LD 


HL, 






00003 




ENDIF 






268D 3E0A 


00004 




LD 


A. 10 




268F EF 


00005 




RST 


40 




2690 182B 


04570 
04580 




JR 


EXIT 






04590 




Error exit 






04600 










2692 3E11 


04610 


DIRERR 


LD 


A, 17 


;Init "Dir read error 


2694 01 


04620 




DB 


1 


; Ignore next inst 


2695 3E20 


04630 


EXIT2 


LD 


A,20H 


;Init illegal drive # 


2697 F5 


04640 


EXIT3 


PUSH 


AF 




2698 0E0D 


04650 




LD 


C,CR 


; Terminate pending line 


26 9 A 


04660 




@@DSP 






26 9A 3E02 


00006 




LD 


A,2 




269C EF 


00007 




RST 


40 




269D CDC926 


04670 




CALL 


EXIT5 


;Get system disk if needed 


26 A0 Fl 


04680 




POP 


AF 




26A1 6F 


04690 




LD 


L,A 


; Error code to HL 


26A2 2600 


04700 




LD 


H,0 




26A4 F6C0 


04710 




OR 


0C0H 


;Set short, return 


26A6 4F 


04720 




LD 


C,A 


; Error to C 


26A7 


04730 




eeERROR 




; for error dsply 


26A7 3E1A 


00008 




LD 


A, 26 




26A9 EF 


00009 




RST 


40 




26AA 180E 


04740 
04750 




JR 


ERREXIT 






04760 




Abort exit 






04770 










26 AC 


04780 


BREAK 


EQU 


$ 




26AC 210D2A 


04790 ABRTBU 


LD 


HL,ABRTBU$ 


; "Backup aborted 


26AF E5 


04800 


EXIT4 


PUSH 


HL 


;Save msg ptr 


26B0 CDC926 


04810 




CALL 


EXIT5 


;Get system disk if needed 


26B3 El 


04820 




POP 


HL 




26B4 


04830 




eOLOGOT 




;Display the message 




00010 




IFEQ 


00Ha 






00011 




LD 


HL, 






00012 




ENDIF 






26B4 3E0C 


00013 




LD 


A,12 




26 B6 EF 


00014 




RST 


40 




26B7 21FFFF 


04840 




LD 


HL,-1 


;Set error return code 


26BA 22C126 


04850 


ERREXn 


■ LD 


(RETCOD), HL 




26BD 


04860 


EXIT 


EQU 


$ 




26 BD 310000 


04870 


SPSAV 


LD 


SP,$-$ 


;P/u the stack pointer 


26C0 210000 


04880 




LD 


HL,0 


;Set the return code 


26C1 


04890 RETCOD 


EQU 


$-2 
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The Source 


UTILITY Fi 


les 


BACKUP - LS-DOS 


6.2 Page 00003 


Backup initia 


lization 








26C3 


04900 




@@CKBRKC 


;Check and clear break 


26C3 3E6A 


00015 




LD 


A, 106 




26C5 EF 


00016 




RST 


40 




26C6 


04910 




@@EXIT 




;Can't return from BACKUP 


26C6 3E16 


00017 




LD 


A, 22 




26C8 EF 


00018 
04920 




RST 


40 






04930 




Get system disk if needed & zero memory used 




04940 










26C9 


04950 


EXIT5 


EQU 


$ 




26C9 110000 


04960 XPARM$ 


LD 


DE,0 


;P/u prompt zero drive 


26CC IC 


04970 




INC 


E 


;Ck for entry 


26CD 2009 


04980 




JR 


NZ,EXIT5A 




26CF AF 


04990 




XOR 


A 




26 D0 32CF27 


05000 




LD 


(SX0RD+1),A 




26 D3 CD0027 


05010 




CALL 


SYSDRV$ 


;Force prompt for SYSTEM 


26D6 1807 


05020 




JR 


EXIT5B 




26 D8 3ACF27 


05030 


EXIT5A 


LD 


A,(SX0RD+1) 


; else if not entered. 


26DB 87 


05040 




OR 


A 


; ck if source & dest 


26 DC CCFB26 


05050 




CALL 


Z,NDSYS$ 


; are same - we may need 


26DF ED5B1626 


05060 EXIT5B 


LD 


DE, (BUFFERS) 


; a prompt 


26E3 7A 


05070 




LD 


A,D 


;Ck if we did a backup 


26E4 B3 


05080 




OR 


E 




26E5 C8 


05090 




RET 


Z 


;Ret if buf adr never set 


26 E6 210000 


05100 




LD 


HL,0 


; else calculate how 


26E9 45 


05110 




LD 


B,L 


; many bytes in RAM 


26 EA 


05120 




mmmi 




; to zero 


26 EA 3E64 


00019 




LD 


A, 100 




26 EC EF 


00020 




RST 


40 




26 ED AF 


05130 




XOR 


A 




26 EE ED52 


05140 




SBC 


HL.DE 


;Get length to zero 


26 F0 44 


05150 




LD 


B,H 




26F1 4D 


05160 




LD 


C,L 


; into BC 


26F2 62 


05170 




LD 


H,D 


;Pt HL to start of buffer 


26F3 6B 


05180 




LD 


L,E 




26F4 13 


05190 




INC 


DE 




26F5 3600 


05200 




LD 


(HL),0 


;Init 1st to zero 


26F7 0B 


05210 




DEC 


BC 


; & propogate it 


26F8 EDBia 


05220 




LDIR 






26FA C9 


05230 
05240 




RET 








05250 




Prompt 


for system disk 






05260 










26FB 3A0E27 


05270 


NDSYS$ 


LD 


A.(SRCDRV$+1) 


;0n exit, if S=D <> 


26FE B7 


05280 




OR 


A 


; then no need to prompt 


26FF C0 


05290 




RET 


NZ 




2700 3E00 


05300 


SYSDRV$ 


LD 


A,0 


;P/u drive indicator 


2702 F620 


05310 




OR 


20H 


;Set bit 5 for sys test 


2704 E5 


05320 




PUSH 


HL 




2705 21FE28 


05330 




LD 


HL,PMTSYS$ 


;"insert system.. . 


2708 CDC727 


05340 




CALL 


CURDSK 




270B El 


05350 




POP 


HL 




270C C9 


05360 
05370 




RET 








05380 




Prompt 


source disk 






05390 










270D 3E00 


05400 


SRCDRV$ 


LD 


A.0 


; Source drive 


270F F680 


05410 




OR 


80 H 


;Set bit 7 on source 


2711 E5 


05420 




PUSH 


HL 
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UTILITY Fi 


les 


BACKUP - LS-DOS 


6.2 Page 00004 


Backup initialization 








2712 211C29 


05430 


LD 


HL, PMTSRC $ 


;" Insert source 


2715 CDC727 


05440 


CALL 


CURDSK 


; Prompt for source if needed 


2718 El 


05450 


POP 


HL 




2719 C9 


05460 
05470 ; 


RET 








05480 ; 


Prompt 


source disk if needed to swap 




05490 ; 








271A 3AC827 


05500 PMTSRC 


LD 


A,(CURDSK+1) 


;P/u current drive 


271D CB7F 


05510 


BIT 


7, A 


;Is source the one? 


271F 20EC 


05520 


JR 


NZ,SRCDRV$ 


;Jump if it is 


2721 CD0D27 


05530 


CALL 


SRCDRV$ 


; else prompt for it 


2724 3ACF27 


05540 


LD 


A,(SX0RD+1) 




2727 B7 


05550 


OR 


A 




2728 C0 


05560 


RET 


NZ 


;Ret if source <> dest 


2729 CD5E28 


05570 


CALL 


RESTOR 


;Restore to cyl 


272C C5 


05580 


PUSH 


BC 




272D D5 


05590 


PUSH 


DE 


;Save registers 


272E E5 


05600 


PUSH 


HL 




272F 21002D 


05610 


LD 


HL,BUF3$ 


;Use this for I/O buffer 


2732 110000 


05620 


LD 


DE,0 


;Read the BOOT 


2735 CD7228 


05630 


CALL 


RDSEC 




2738 El 


05640 


POP 


HL 




2739 Dl 


05650 


POP 


DE 


;Restore the registers 


273A CI 


05660 


POP 


BC 




273B C29726 


05670 


JP 


NZ,EXIT3 


;Quit on read error 


273E 3A002D 


05680 


LD 


A,(BUF3$) 


;P/u 1st byte of BOOT 


2741 B7 


05690 


OR 


A 


;If source, s/b 


2742 2030 


05700 


JR 


NZ,PSRC3 


;Jump if not this disk 


2744 C5 


05710 


PUSH 


BC 




2745 D5 


05720 


PUSH 


DE 




2746 E5 


05730 


PUSH 


HL 




2747 FD5609 


05740 


LD 


D,(IY+9) 


;P/u dir cyl 


274A 1E00 


05750 


LD 


E,0 


;Pt to GAT sector 


274C 21002D 


05760 


LD 


HL,BUF3$ 




274F CD7228 


05770 


CALL 


RDSEC 


;Read the GAT 


2752 FE06 


05780 


CP 


6 




2754 C29226 


05790 


JP 


NZ,DIRERR 




2757 21CE2B 


05800 


LD 


HL,BUF1$+PSWD 


;Ck for match with orig 


275A 11CE2D 


05810 


LD 


DE,BUF3$+PSWD 


; source disk 


27 5 D 060A 


05820 


LD 


B,10 


;Set match count 


275F lA 


05830 PSRCl 


LD 


A,(DE) 




2760 BE 


05840 


CP 


(HL) 




2761 2008 


05850 


JR 


NZ, DIFSRC 


;Wrong disk if no match 


2763 13 


05860 


INC 


DE 


;Bump pointers 


2764 23 


05870 


INC 


HL 




2765 10F8 


05880 


DJNZ 


PSRCl 


;Loop for 10 compares 


2767 El 


05890 


POP 


HL 


;Was a match, 


2768 Dl 


05900 


POP 


DE 


; restore and return 


2769 CI 


05910 


POP 


BC 




276A C9 


05920 


RET 






276B 


05930 DIFSRC 


(a@DSPL^ 


' DIFSRC$ 


;"wake up.. . 




00021 


IFEQ 


01H,1 




276B 215D29 


00022 
00023 


LD 
ENDIF 


HL,DIFSRC$ 




276E 3E0A 


00024 


LD 


A, 10 




2770 EF 


00025 


RST 


40 




2771 El 


05940 


POP 


HL 


;Clean the stack 


2772 Dl 


05950 


POP 


DE 




2773 CI 


05960 


POP 


BC 
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les 


BACKUP - LS-DOS 6.2 Page 00005 


Backup initialization 








2774 AF 


05970 PSRC3 


XOR 


A 


;Show not current disk 


2775 32C827 


05980 


LD 


(CURDSK+1),A 




2778 18A0 


05990 
06000 ; 


JR 


PMTSRC 


;Loop to re-prompt 




06010 ; 


Destination disk selection 




06020 ; 








277A 3E00 


06030 DSTDRVS 


; LD 


A.0 


;Dest drive 


277C F640 


06040 


OR 


40 H 


;Set dest diskette code 


277E E5 


06050 


PUSH 


HL 




277F 213A29 


06060 


LD 


HL,PMTDST$ 


;"insert dest.. . 


2782 CDC727 


06070 


CALL 


CURDSK 




2785 El 


06080 


POP 


HL 




2786 C9 


06090 
06100 ; 


RET 








06110 ; 


Prompt 


destination if 


needed 




06120 ; 








2787 3AC827 


06130 PMTDST 


LD 


A,(CURDSK+1) 


;P/u current disk/drive & 


278A CB77 


06140 


BIT 


6, A 


; ck if destination disk 


278C 20EC 


06150 


JR 


NZ,DSTDRV$ 


;Jump if it is 


278E CD7A27 


06160 


CALL 


DSTDRV$ 


; else request swap 


2791 3ACF27 


06170 


LD 


A,(SX0RD+1) 




2794 B7 


06180 


OR 


A 




2795 C0 


06190 


RET 


NZ 


;Ret if source <> dest 


2796 CD5E28 


06200 


CALL 


RESTOR 


; else restore to cyl 


2799 C5 


06210 


PUSH 


BC 




279A D5 


06220 


PUSH 


DE 




279B E5 


06230 


PUSH 


HL 




279C 21002D 


06240 


LD 


HL,BUF3$ 


;Use this for I/O buffer 


279F 110000 


06250 


LD 


DEJ 


;Pt to BOOT sector 


27A2 CD7228 


06260 


CALL 


RDSEC 


; & read the BOOT 


27A5 El 


06270 


POP 


HL 




27A6 Dl 


06280 


POP 


DE 




27A7 CI 


06290 


POP 


BC 




27 A8 C29726 


06300 


JP 


NZ,EXIT3 


;Quit on read error 


27AB 3A002D 


06310 


LD 


A,(BUF3$) 


;P/u 1st byte of BOOT 


27 AE FE76 


06320 


CP 


76 H 


;Dest s/b a HALT 


27BJ8 C8 


06330 PMTDSTl 


RET 


Z 




27B1 E5 


06340 


PUSH 


HL 




27B2 D5 


06350 


PUSH 


DE 




27B3 


06360 


@(3DSPLY 


DIFDST$ 


;"not same dest.. . 




00026 


IFEQ 


01H,1 




27B3 218F29 


00027 
00028 


LD 
ENDIF 


HL,DIFDST$ 




27B6 3E0A 


00029 


LD 


A, 10 




27 B8 EF 


00030 


RST 


40 




27B9 Dl 


06370 


POP 


DE 




27BA El 


06380 


POP 


HL 




27 BB AF 


06390 


XOR 


A 




27 BC 32C827 


06400 


LD 


(CURDSK+1),A 


;Show no current diskette 


27BF 18C6 


06410 
06420 ; 


JR 


PMTDST 


; and prompt again 




06430 ; 


Force a 


prompt of the 


target disk 




06440 ; 








27C1 79 


06450 FRCPMT 


LD 


A,C 


;P/u target drive 


27C2 32C827 


06460 


LD 


(CURDSK+1),A 


; with code bit 


27C5 180C 


06470 
06480 ; 


JR 


FLASH 






06490 ; 


Routine 


to check if fl 


ashing prompt is needed 




06500 ; 
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UTILITY Fi 


les 


BACKUP - LS-D 


OS 6.2 Page 00006 


Backup initialization 








27 C7 FE00 


06510 CURDSK 


CP 





;P/u current disk 


27C9 2872 


06520 


JR 


Z,FLSH6 


;Match with wanted disk? 


27CB 32C827 


06530 


LD 


(CURDSK+1),A 


;No, update current 


27CE 3EFF 


06540 SXORD 


LD 


A,0FFH 


;0=src & dst drive same 


27D0 87 


06550 


OR 


A 




27 Dl 206 A 


06560 
06570 ; 


JR 


NZ,FLSH6 


;Jump if source <> dest 




06580 ; 


Routine 


to flash the 


prompt 




06590 ; 








27D3 C5 


06600 FLASH 


PUSH 


BC 




27 D4 D5 


06610 


PUSH 


DE 




27D5 E5 


06620 


PUSH 


HL 




27 06 


06630 


0@FLA6S 




;IY => flag table base 


27D6 3E65 


00031 


LD 


Aa01 




27 D8 EF 


00032 


RST 


40 




27D9 0E0D 


06640 


LD 


C,CR 


; Write a new line 


27 DB 


06650 


@@DSP 






27 DB 3E02 


00033 


LD 


A,2 




27 DD EF 


00034 


RST 


40 




27 DE 0E0F 


06660 


LD 


C,15 


;Cursor off 


27E0 


06670 


(3@DSP 






27E0 3E02 


00035 


LD 


A,2 




27 E2 EF 


00036 

06680 FLASH0 


RST 


40 




27E3 


06690 


@@CKBRKC 


;Check and clear break 


27E3 3E6A 


00037 


LD 


Aa06 




27E5 EF 


00038 


RST 


40 




27 E6 CD4C28 


06700 


CALL 


RESKFL6 


;Reset Pause, Enter ^Break 


27E9 01FD41 


06710 


LD 


BC, 16893 


; Del ay for 1/4 sec 


27 EC 


06720 


mpmsE 






27EC 3E10 


00039 


LD 


A, 16 




27 EE EF 


00040 


RST 


40 




27EF FD7E0A 


06730 


LD 


A,(IY+'K'-'A^ 


') 


27F2 E605 


06740 


AND 


4!1 


;Wait for no ENTER !BRK 


27F4 20ED 


06750 


JR 


NZ,FLASH0 




27F6 CD4C28 


06760 


CALL 


RESKFLG 


;Reset in case BREAK 


27F9 


06770 FLSl 


@@DSPLY 




;Display the message 




00041 


IFEQ 


00H,1 






00042 


LD 


HL, 






00043 


ENDIF 






27F9 3E0A 


00044 


LD 


AJ0 




27FB EF 


00045 


RST 


40 




27FC 015515 


06780 


LD 


BC,FCNT2 




27FF CD1428 


06790 


CALL 


FLS2 


;Blink start 


2802 0E1D 


06800 


LD 


C,29 


;Cursor to BOL 


2804 


06810 


@@DSP 






2804 3E02 


00046 


LD 


A,2 




2806 EF 


00047 


RST 


40 




2807 0E1E 


06820 


LD 


C,1EH 


;Cursor erase to EOL 


2809 


06830 


@@DSP 






2809 3E02 


00048 


LD 


A,2 




280 B EF 


00049 


RST 


40 




280C 011111 


06840 


LD 


BCFCNTl 


;Wait delay count 


280F CD1428 


06850 


CALL 


FLS2 


;Wait & ck Enter or Break 


2812 18E5 


06860 
06870 FLS2 


JR 


FLSl 


;Loop until Enter 


2814 


06880 


(a@CKBRKC 


;Check for break 


2814 3E6A 


00050 


LD 


A, 106 




2816 EF 


00051 


RST 


40 
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2817 
281A 
281D 
281F 
2821 
2822 
2823 
2824 
2826 
2827 
2828 
2828 
282A 
282B 
282D 
282F 
282F 
2831 
2832 
2834 
2834 
2836 
2837 
283A 
283B 
283C 
283D 
2840 
2842 
2843 
2843 
2845 



C 2 AC 25 

FD7E0A 

CB57 

2006 

0B 

78 

Bl 

20EE 

C9 

Fl 

3E08 
EF 

28FB 
0E0D 

3E02 

EF 

0E0E 

3E02 

EF 

CD4C28 

El 

Dl 

CI 

3AC827 

E607 

4F 

3E51 
EF 



2846 CD6328 



2849 07 

284A 07 

284B C9 

284C FD7E0A 

284F E6F8 

2851 FD770A 

2854 C9 



2855 C5 

2856 AF 

2857 1821 
2859 C5 
285A 3E01 
285C 181C 
285E C5 
285F 3E04 
2861 1817 

2863 C5 

2864 3E07 



05890 
06900 
06910 
06920 
06930 
06940 
06950 
06960 
06970 
06980 
06990 
00052 
00053 
07000 
07010 
07020 
00054 
00055 
07030 
07040 
00056 
00057 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
00058 
00059 
07130 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 
07310 
07320 
07330 
07340 
07350 
07360 
07370 
07380 
07390 



FLS4 
FLS5 



FLSH6 



RESKFLG 



TSTDRV 
SELECT 
RESTOR 
RSELCT 



JP 

LD 

BIT 

JR 

DEC 

LD 

OR 

JR 

RET 

POP 

(3@KBD 

LD 

RST 

JR 

LD 

(a@DSP 

LD 

RST 

LD 

(9@DSP 

LD 

RST 

CALL 

POP 

POP 

POP 

LD 

AND 

LD 

(aiPGTDCT 

LD A, 81 



NZ, BREAK ; and abort if so 

A,(IY+'K'-'A') ;P/u KFLAG settings 



2 A 

NZ,FLS4 

BC 

A,B 

C 

NZ,FLS2 

AF 

A, 8 
40 

Z,FLS5 
C,0DH 

A,2 

40 

C,14 

A, 2 

40 

RESKFLG 

HL 

DE 

BC 

A,(CURDSK+1) 

7 

C,A 



RST 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

RLCA 

RLCA 

RET 

LD 

AND 

LD 

RET 



40 

@M0D4 

RSELCT 

(3M0D2 
SELECT 



;Enter pressed? 
;Go if so 
;Count down 



; and loop if more time 

;Pop return address 
;Clear type ahead buffer 



;Loop til no key down 
;Dsply a new line 



;Cursor on 

;Reset Break, Enter, Pause 

;Restore registers 

;P/u drive # 
;Strip off code bits 
; Drive # to C to 
; get DCT vector 

;Get drive status in A 



A,(IY+'K'-'A') ;Reset 3-bit field 

0F8H 

(IY+'K'-'A'),A 



Drive disk I/O call setups 

;Test for drive 
;Select new drive 
;Restore 
;Reselect 



PUSH 

XOR 

JR 

PUSH 

LD 

JR 

PUSH 

LD 

JR 

PUSH 

LD 



BC 

A 

DIOl 

BC 

A,l 

DIOl 

BC 

A, 4 

DIOl 

BC 

A,7 
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2866 1812 


07400 


JR 


DIOl 




2868 C5 


07410 WRSEC 


PUSH 


BC 




2869 3E0D 


07420 


LD 


A, 13 


;Write sector 


286B 180D 


07430 


JR 


DIOl 




286D C5 


07440 WRSYS 


PUSH 


BC 




286E 3E0E 


07450 


LD 


A, 14 


;Write protected 


2870 1808 


07460 


JR 


DIOl 




2872 C5 


07470 RDSEC 


PUSH 


BC 




2873 3E09 


07480 


LD 


A,9 


;Read sector 


2875 1803 


07490 
07500 ; 


JR 


DIOl 






07510 


IF 


@M0D2 






07520 FMTCYL 


PUSH 


BC 


;Save 




07530 


LD 


A, 15 


;I/0 command 




07540 


JR 


DIOl 


;Continue 




07550 


ENDIF 








07560 ; 








2877 C5 


07570 VERSEC 


PUSH 


BC 




2878 3E0A 


07580 


LD 


A, 10 


;Verify sector 


287A C628 


07590 DIOl 


ADD 


A, 40 


;Adjust for SVC 


287C 47 


07600 


LD 


B,A 


;Save tempy 


287D 3AC827 


07610 


LD 


A,(CURDSK+1) 


;6et drive number 


2880 E607 


07620 


AND 


7 


;Strip diskette type bit 


2882 4F 


07630 


LD 


C,A 


;Load up drive register 


2883 78 


07640 


LD 


A,B 


;Get back SVC # 




07650 


IF 


(9M0D4 




2884 F3 


07660 
07670 


DI 
ENDIF 




interrupts off 


2885 EF 


07680 


RST 


40 






07690 


IF 


(3M0D4 




2886 FB 


07700 
07710 


EI 
ENDIF 




; Interrupts on 


2887 CI 


07720 


POP 


BC 




2888 C9 


07730 
07740 ; 


RET 








07750 ; 


Check 


for correct disk 






07760 ; 








2889 D5 


07770 CKSWDD 


PUSH 


DE 


;Save DE,BC 


288 A C5 


07780 


PUSH 


BC 




288B 3A0E27 


07790 


LD 


A,(SRCDRV$+1) 


;Get drive 


288E 21C827 


07800 


LD 


HL,CURDSK+1 




2891 4E 


07810 


LD 


C,(HL) 


;Get current drive 


2892 77 


07820 


LD 


(HL),A 


;Make curdsk our dsk 


2893 2A1626 


07830 


LD 


HL, (BUFFERS) 


;I/0 buffer 


2896 110200 


07840 


LD 


DE,2 


;Trk 0, sect 2 


2897 


07850 PROTSEC 


EQU 


$-2 




2899 CD7228 


07860 


CALL 


RDSEC 


;Read SIS sector 


289C 201C 


07870 


JR 


NZ,EX2 


;Quit on read error 


289E 2EC6 


07880 


LD 


L,0C6H 


;Set buffer posn 


28 A0 3E00 


07890 


LD 


A,$-$ 


;Get original id byte 


28A1 


07900 SVCTR 


EQU 


$-1 




28A2 BE 


07910 


CP 


(HL) 


;Is it the same disk? 


28A3 200F 


07920 


JR 


NZ,EX1 


;NZ= error exit 


28A5 3C 


07930 


INC 


A 




28A6 280C 


07940 


JR 


Z,EX1 




28A8 3D 


07950 


DEC 


A 


;If id byte 0, 


28A9 2809 


07960 


JR 


Z,EX1 


; no modifying needed 


28AB 3D 


07970 


DEC 


A 


; else dec remaining 


28AC 2001 


07980 


JR 


NZ,$+3 


;If now 0, make FFH 
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28AE 3D 
28AF 11 



07990 
08000 
08010 
08020 



28B0 6A 



28B1 
2884 
28B5 
28B8 
28B9 
28BA 
28BD 
28BE 



28C1 

28 DC 
28E6 

28 FE 

291C 

293A 

2955 
295D 

2973 
298F 



CD6828 

79 

32C827 

CI 

Dl 

211F2A 

C8 

C3AF26 



0A 

44 65 73 

69 6F 6E 

20 69 73 

65 20 

70 

72 6F 74 
0D 

49 

6E 76 61 

61 73 74 

73 73 77 
ID 

IE 49 6E 

53 59 53 
69 73 6B 

54 45 52 
ID 

IE 49 6E 

53 4F 55 
69 73 6B 

54 45 52 
ID 

IE 49 6E 

44 45 53 
49 4F 4E 
20 20 

3C 

45 4E 54 
ID 

IE 2A 20 
20 52 20 
54 68 61 
73 

20 6E 6F 
20 73 61 
75 72 63 
6B 20 0D 
ID 



08040 
08050 
08060 
08070 
08080 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
74 69 
20 64 
20 77 

08200 
65 63 

08210 
6C 69 
65 72 
6F 72 
08220 
73 65 
54 45 
20 20 
3E 03 
08230 
73 65 
52 43 
20 20 
3E 03 
08240 

73 65 
54 49 
20 64 

08250 
45 52 
08260 
41 20 
54 20 

74 27 
08270 
74 20 
6D 65 
65 20 



EXl 



EX2 



DEC 

LD 

IF 

LD 

ENDIF 

IF 

LD 

ENDIF 

CALL 

LD 

LD 

POP 

POP 

LD 

RET 

JP 



A 

(HL),A 
@M0D2 
L.0 

@M0D4 
L,D 

WRSEC 

A C 

(CURDSK+l),i 

BC 

DE 

HL,CANTBU$ 

Z 

EXIT4 



; Store the new id 
; Reset buffer 

;Reset buffer 

;Put it- >back, ck error later 

;Restor orig drv # 

;Go if was write error 



DSTWP$ DB 
6E 61 74 
69 73 6B 
72 69 74 

DB 
74 65 64 

BADMPW$ DB 
64 20 6D 
20 70 61 
64 0D 
PMTSYS$ DB 
72 74 20 
4D 20 64 
3C 45 4E 

PMTSRC$ DB 
72 74 20 
45 20 64 
3C 45 4E 

PMTDST$ DB 
72 74 20 
4E 41 54 
69 73 6B 



3E 03 

DIFSRC$ DB 
4C 20 45 
2A 20 20 



Message area 

LF, 'Destination disk is write • 



DB 



74 68 65 
20 73 6F 
64 69 73 



08280 DIFDST$ DB 



'protected' ,CR 

'Invalid master password ',CR 

29,30, 'Insert SYSTEM disk <ENTER>',3 

29,30, 'Insert SOURCE disk <ENTER>',3 

29,30, 'Insert DESTINATION disk ' 

'<ENTER>',3 

29,30,'* ALERT* That',27H 

's not the same source disk ',CR 
29,30,'* ALERT* That',27H 
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IE 
20 
54 

29A5 73 
20 
20 
73 
6E 

29C6 53 
6F 
73 
69 
65 

29E6 4D 
4F 
20 
61 

29FC 0A 
42 
6F 

2A0D 0A 
43 
61 
0D 

2A1F 43 
61 
6B 
75 
6B 
70 
64 

2A4A 44 
69 
61 
74 
69 

2A69 

2B00 

0100 

0100 

0100 



2A 20 
52 20 
68 61 

6E 6F 

73 61 

74 69 
20 64 

75 72 
6B 20 
74 65 
63 74 

44 20 
6E 6F 
74 65 

61 63 
6D 70 

6F 6D 

62 6F 



6E 27 
75 70 
72 63 
20 77 

72 6F 
0A 

73 6B 
69 6E 
65 63 
6C 65 



41 20 
54 20 
74 27 
08290 
74 20 
6D 65 
6E 61 
69 73 
08300 

63 65 
69 73 
20 70 

65 64 
08310 

66 6C 
74 20 

64 0D 
08320 
6B 75 
6C 65 
08330 
6D 61 
72 74 



4C 20 45 
2A 20 20 

DB 
74 68 65 
20 64 65 

74 69 6F 
6B 20 0D 
CCMOD$ DB 
20 64 69 
20 77 72 
72 6F 74 
3B 20 

DB 
61 67 73 

75 70 64 

BUCAO$ DB 
70 20 63 
74 65 0D 
ABRTBU$ DB 
6E 64 20 
65 64 0E 



08340 CANTBU$ DB 
74 20 42 61 63 
20 2D 20-73 6F 
65 20 64 69 73 

72 69 74 65 20 
74 65 63 74 65 

08350 PROT$ DB 
20 63 6F 6E 74 

73 20 70 72 6F 

74 65 64 20 66 
73 20 0D 

08360 BUCORE$ DEFL 

08370 ORG 

08380 BUF1$ DS 

08390 BUF2$ DS 

08400 BUF3$ DS 



s not the same destination disk ' jCR 



'Source disk is write protected; ' 



'MOD flags not updated ',CR 



LF, 'Backup complete' ,CR 



LF, 'Command aborted' ,14, CR 



'Can"t Backup - source disk write protected' ,LF 



Disk contains protected files ' ,CR 



$ 

$<-8+l<+8 

256 

256 

256 
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!d8420 ; 
08430 ; 










08440 ; 


Backup 


entry point 






08450 ; 










08460 ; 










08470 BACKUP 








2E00 


08480 


(3@CKBRKC 




2E00 3E6A 


00060 


LD 


A ,106 




2E02 EF 


00061 


RST 


40 




2E03 2804 


08490 


JR 


Z,BACKUPA 


;Go ahead if no break 


2E05 21FFFF 


08500 


LD 


HL,-1 


; else abort 


2E08 C9 


08510 
08520 ; 


RET 






2E09 ED73BE26 08530 BACKUPS 


I LD 


(SPSAV+1),SP 


;Save current SP 


2E0D E5 


08540 


PUSH 


HL 


;Save cmdbuf 


2E0E 


08550 


@@BREAK 


; Remove any BREAK vector 




00062 


IFEQ 


01H,1 




2E0E 210000 


00063 
00064 


LD 
ENDIF 


HL,0 




2E11 3E67 


00065 


LD 


A, 103 




2E13 EF 


00066 


RST 


40 




2E14 


08560 


@@DSPLY 


HELLO$ 


; Wei come 




00067 


IFEQ 


01H,1 




2E14 21F942 


00068 
00069 


LD 
ENDIF 


HL,HELLO$ 




2E17 3E0A 


00070 


LD 


A, 10 




2E19 EF 


00071 


RST 


40 




2E1A 


08570 


(aiaFLAGS 




;IY => flag table 


2E1A 3E65 


00072 


LD 


Aa01 




2E1C EF 


00073 


RST 


40 




2E1D CD4C28 


08580 


CALL 


RESKFLG 


; Reset KFLAG bits 


2E20 FDCB024E 08590 


BIT 


1,(IY+'C'-'A') 


;Check on CMNDR active 


2E24 217E43 


08600 


LD 


HL,LDOS$ 




2E27 C2AF26 


08610 


JP 


NZ,EXIT4 


; and exit if so 


2E2A El 


08620 


POP 


HL 




2E2B 7E 


08630 BCKl 


LD 


A,(HL) 


; Bypass cmdline spaces 


2E2C 23 


08640 


INC 


HL 




2E2D FE20 


08650 


CP 


' ' 




2E2F 28FA 


08660 
08670 ; 


JR 


Z,BCK1 






08680 ; 


Scan for source partial 


spec 




08690 ; 








2E31 110226 


08700 


LD 


DE,SPCFLD$ 


;Pt to filespec field 


2E34 0608 


08710 


LD 


B,8 


;Init for file name 


2E36 FE2D 


08720 


CP 


1 _ 1 


;Exclude matches? 


2E38 2005 


08730 


JR 


NZ,BCK2 


;If '-' , set flag 


2E3A 320D26 


08740 


LD 


(MFLG$),A 




2E3D 7E 


08750 


LD 


A,(HL) 


;Get next char 


2E3E 23 


08760 


INC 


HL 




2E3F CDF030 


08770 BCK2 


CALL 


PRSPEC 


;Parse possible filename 


2E42 FE2F 


08780 


CP 


7' 


;File ext? 


2E44 200A 


08790 


JR 


NZ,BCK3 




2E46 110A26 


08800 


LD 


DE,SPCFLD$+8 


;Reposn buffer ptr 


2E49 0603 


08810 


LD 


B,3 


;Init for 3 chars 


2E4B 7E 


08820 


LD 


A,(HL) 




2E4C 23 


08830 


INC 


HL 


;Bypass the / 


2E4D CDF030 


08840 
08850 ; 


CALL 


PRSPEC 


;Parse extension 




08860 ; 


Determi 


ne source & destination drives 




08870 ; 
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2E50 FE3A 


08880 BCK3 


CP 


1 . 1 


2E52 2817 


08890 


JR 


Z,BCK4 


2E54 2B 


08900 


DEC 


HL 


2E55 E5 


08910 


PUSH 


HL 


2E56 


08920 


(a@DSPLY 


SRCNUM$ 




00074 


IFEQ 


01H,1 


2E56 21B343 


00075 


LD 


HL,SRCNUM$ 




00076 


ENDIF 




2E59 3E0A 


00077 


LD 


A, 10 


2E5B EF 


00078 


RST 


40 


2E5C 215826 


08930 


LD 


HL,LILBUF$ 


2E5F 010001 


08940 


LD 


BC,1<8 


2E62 


08950 


(3(aKEYIN 




2E62 3E09 


00079 


LD 


A,9 


2E64 EF 


00080 


RST 


40 


2E65 DAAC26 


08960 


JP 


CABRTBU 


2E68 7E 


08970 


LD 


A,(HL) 


2E69 El 


08980 


POP 


HL 


2E6A DA 


08990 


DB 


0DAH 


2E6B 7E 


09000 BCK4 


LD 


A,(HL) 


2E6C 23 


09010 


INC 


HL 


2E6D D630 


09020 


SUB 


'0' 


2E6F FE08 


09030 


CP 


8 


2E71 D29526 


09040 


JP 


NC,EXIT2 


2E74 320E27 


09050 


LD 


(SRCDRV$+1),A 


2E77 7E 


09060 BCK5 


LD 


A,(HL) 


2E78 23 


09070 


INC 


HL 


2E79 FE3A 


09080 


CP 


1 . 1 


2E7B 281F 


09090 


JR 


Z,BCK6 


2E7D FE30 


09100 


CP 


30 H 


2E7F 30F6 


09110 


JR 


NC,BCK5 


2E81 FE2a 


09120 


CP 


20H 


2E83 28F2 


09130 


JR 


Z,BCK5 


2E85 2B 


09140 


DEC 


HL 


2E86 E5 


09150 


PUSH 


HL 


2E87 


09160 


@@DSPLY 


DSTNUM$ 




00081 


IFEQ 


01H,1 


2E87 21D143 


00082 


LD 


HL,DSTNUM$ 




00083 


ENDIF 




2E8A 3E0A 


00084 


LD 


A, 10 


2E8C EF 


00085 


RST 


40 


2E8D 215826 


09170 


LD 


HL,LILBUF$ 


2E90 010001 


09180 


LD 


BC,1<8 


2E93 


09190 


(3(3KEYIN 




2E93 3E09 


00086 


LD 


A, 9 


2E95 EF 


00087 


RST 


40 


2E96 DAAC26 


09200 


JP 


CABRTBU 


2E99 7E 


09210 


LD 


A,(HL) 


2E9A El 


09220 


POP 


HL 


2E9B DA 


09230 


DB 


0DAH 


2E9C 7E 


09240 BCK6 


LD 


A,(HL) 


2E9D 23 


09250 


INC 


HL 


2E9E D630 


09260 


SUB 


'0' 


2EAi3 FE08 


09270 


CP 


8 


2EA2 D29526 


09280 


JP 


NC,EXIT2 


2EA5 327B27 


09290 
09300 ; 


LD 


(DSTDRV$+1),A 


2EA8 115442 


09310 


LD 


DE,PRMTBL$ 


2EAB D5 


09320 


PUSH 


DE 



Page 00012 



; Drive number coming? 

;Go if so 

;Save possible parms 

;No drives enter, so 



; prompt for them 
;1 char response 



;Quit on Break 

;6et response. Restore 

; command buffer. Ignore 

; next 2 inst with JP C, 

;P/u source drive # 

;Bump to separator 

;Adj to binary 

; Error if not in 

; the range <0-7> 

;Stuff source drive 

;P/u char or separator 

;Bump ptr 

;Find dest drive? 

;Get drive # if : 

; let prepositions thru 

;0r a space separator 

;Save possible parms 

; Prompt for dest drive 



;Use for keyin buffer 
;1 char only 



;Quit on Break 
;Get response. Restore 
; buffer. Ignore next 
; inst with JP C,nn 
;P/u dest drive # 
;Bump line ptr 
;Adjust to binary 
; Error if not in the 
; range <0-7> 
; Stuff dest drive 

;P/u parm table ptr 
;Also in IX to check 
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2EAC DDEl 


09330 


POP 


IX 


; responses 


2EAE 


09340 


(3@PARAM 


;Get parms if any 


2EAE 3E11 


00088 


LD 


A,17 




2EB0 EF 


00089 


RST 


40 




2EB1 21A343 


09350 


LD 


HL,PRMERR$ 


;Init "parm error 


2EB4 2005 


09360 


JR 


NZJEX4 


;Quit on parm error 


2EB6 DD7E30 


09370 


LD 


A,(IX+DATRSP) 


;Date can only be STR 


2EB9 E6C0 


09380 


AND 


VALiSW 


;This must be string 


2EBB C2AF26 


09390 $EX4 
09400 ; 


JP 


NZ,EXIT4 


;Quit if not 




09410 ; 


Check 


on Source = Desti 


nation 




09420 ; 








2EBE 3A0E27 


09430 


LD 


A,(SRCDRV$+1) 


;P/u source drive 


2EC1 217B27 


09440 


LD 


HL,DSTDRV$+1 




2EC4 AE 


09450 


XOR 


(HL) 


;Match against dest 


2EC5 32CF27 


09460 


LD 


(SX0RD+1),A 


;0 if S=D, <>0 if SOD 


2EC8 200D 


09470 


JR 


NZ, DATPRM 


; Bypass if source <> dest 


2 EC A 


09480 


@{aFLAGS 


;Else test if <D0> proc 


2ECA 3E65 


00090 


LD 


AJ01 




2ECC EF 


00091 


RST 


40 




2ECD FDCB126E 09490 


BIT 


5,(IY+'S'-'A') 




2ED1 219642 


09500 


LD 


HL,N0IND0$ 


;" can't do single.o . 


2ED4 C2AF26 


09510 
09520 ; 


JP 


NZ,EXIT4 


; Abort if from <D0> 




09530 ; 


Check 


on date entries 






09540 ; 








2ED7 210000 


09550 DATPRM 


LD 


HLJ 


;P/u date="from-to" 


2EDA 7C 


09560 


LD 


A»H 




2EDB B5 


09570 


OR 


L 




2EDC 282F 


09580 


JR 


Z, CKCLAS 


;Bypass if not entered 


2EDE 7E 


09590 


LD 


AJHL) 


;Check for "-to" 


2EDF FE2D 


09600 


CP 


1 _ 1 




2EE1 2815 


09610 


JR 


Z,CKTO 


;Go if no From used 


2EE3 3E80 


09620 


LD 


A,80H 


;Set From bit 


2EE5 320126 


09630 


LD 


(FTFLG$),A 


;Note From entered 


2EE8 CD0B31 


09640 


CALL 


PAKDAT 


;Pack the date entry 


2EEB ED438026 


09650 


LD 


(FMPAKD$),BC 


;Save From packed date 


2EEF 7E 


09660 


LD 


A,(HL) 


;Ck if more in date parm 


2EF0 FE22 


09670 


CP 


1 li 1 


;End of string? 


2EF2 280D 


09680 


JR 


Z, FRCDAT 


;Go if so 


2EF4 FE2D 


09690 


CP 


1 _ 1 


;Check for "-to" 


2EF6 2015 


09700 


JR 


NZ, CKCLAS 


;Done if not 


2EF8 23 


09710 CKTO 


INC 


HL 


; Bypass the '-' 


2EF9 7E 


09720 


LD 


A,(HL) 


;Ck for end of parm 


2EFA FE22 


09730 


CP 


1 II 1 




2EFC 280F 


09740 


JR 


Z, CKCLAS 


;Go if done 


2EFE CD0B31 


09750 


CALL 


PAKDAT 


;Pack To date 


2F01 3A0126 


09760 FRCDAT 


LD 


A,(FTFLG$) 


;P/u From/To flag and 


2F04 F601 


09770 


OR 


1 


; set To bit 


2F06 320126 


09780 


LD 


(FTFLG$),A 




2F09 ED438226 


09790 
09800 ; 


LD 


(TOPAKD$),BC 


;Save To packed date 




09810 ; 


Check 


on parms to force 


CLASS backup 




09820 ; 








2F0D 0600 


09830 CKCLAS 


LD 


BJ 


;Init class flag 


2F0F 110000 


09840 SYSPRM 


LD 


DE,0 


;SYS parm used? 


2F12 7A 


09850 


LD 


A,D 




2F13 B3 


09860 


OR 


E 




2F14 2802 


09870 


JR 


Z,INVPRM 


;Go if not 
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2F16 CBF0 


09880 


SET 


6,B 


;Set 6 if SYS 


2F18 110000 


09890 INVPRM 


LD 


DE,0 


;INV parm used? 


2F1B 7A 


09900 


LD 


A,D 




2F1C B3 


09910 


OR 


E 




2F1D 2802 


09920 


JR 


Z, CKCLAl 


;Go if not 


2F1F CBD8 


09930 


SET 


3,B 


;Set 3 if INV 


2F21 78 


09940 CKCLAl 


LD 


A,B 




2F22 328426 


09950 


LD 


(CLSFLG$),A 


;Store by class flag 


2F25 3A0226 


09960 


LD 


A,(SPCFLD$) 


;Get 1st char of possible 


2F28 D620 


09970 


SUB 


1 1 


; file name 


2F2A 47 


09980 


LD 


B,A 


;Save test result and 


2F2B 3A0A26 


09990 


LD 


A,(SPCFLD$+8) 


; check if extension used 


2F2E D620 


10000 


SUB 


1 1 


;Ck for ext 


2F30 B0 


10010 


OR 


B 


;A <> if partspec 


2F31 47 


10020 
10030 ; 


LD 


B,A 


;Hold in reg B 




10040 ; 


Merge a 


11 "CLASS" parms 


together 




10050 ; 








2F32 DD7E0C 


10060 


LD 


AJIX+SYSRSP) 


; System files 


2F35 DDB613 


10070 


OR 


(IX+INVRSP) 


^Invisible files 


2F38 DDB61A 


10080 


OR 


(IX+MODRSP) 


;Mod flag files 


2F3B DDB637 


10090 


OR 


(IX+NEWRSP) 


;Files not on dest 


2F3E DDB63E 


10100 


OR 


(IX+OLDRSP) 


;Files on dest 


2F41 DDB623 


10110 


OR 


(IX+QRSP) 


;Query forces by class 


2F44 4F 


10120 


LD 


C,A 


;Hold value 


2F45 E6A0 


10130 


AND 


VALISTR 


;Above parms only SWITCH 


2F47 21A343 


10140 


LD 


HL,PRMERR$ 


;Init "parm error 


2F4A C2AF26 


10150 


JP 


NZ,EXIT4 


;Quit if not switches only 


2F4D Bl 


10160 


OR 


C 




2F4E B0 


10170 


OR 


B 


;Merge with partspec 


2F4F DDB630 


10180 
10190 ; 


OR 


(IX+DATRSP) 


;D=" mm/dd/yy-mm/dd/yy" 




10200 ; 


Advise 


backup by class 


if any class parameter 




10210 ; 








2F52 320141 


10220 


LD 


(CLSTST+1),A 


;Set for all flags 


2F55 2806 


10230 


JR 


Z, GETDAT 


;Z=may be mirror image 


2F57 


10240 


@@LOGOT CLASS$ 


; else log by class msg 




00092 


IFEQ 


01H,1 




2F57 210344 


00093 
00094 


LD 
ENDIF 


HL,CLASS$ 




2F5A 3E0C 


00095 


LD 


A, 12 




2F5C EF 


00096 
10250 ; 


RST 


40 






10260 ; 


Recover 


today's date 






10270 ; 








2F5D 217826 


10280 GETDAT 


LD 


HL,DATFLD$ 


;Date storage buffer 


2F60 


10290 


(a@DATE 




;Get date 


2F60 3E12 


00097 


LD 


A, 18 




2F62 EF 


00098 


RST 


40 




2F63 lA 


10300 


LD 


A,(DE) 


; Check if date in system 


2F64 87 


10310 


OR 


A 




2F65 2006 


10320 


JR 


NZ,GETGM 


;Go if it is 


2F67 21EF43 


10330 


LD 


HL,NODAT$ 




2F6A 


10340 


(3@L0G0T 




;Show "no date" if none 




00099 


IFEQ 


00H,1 






00100 


LD 


HL, 






00101 


ENDIF 






2F6A 3E0C 


00102 


LD 


A, 12 




2F6C EF 


00103 


RST 


40 
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2F6D D5 


10350 GETGM 


PUSH 


DE 


;Save date$ 


2F6E E5 


10360 


PUSH 


HL 


; and date buffer 


2F6F 114144 


10370 


LD 


DE,RES$ 


;See if SYS modules resident 


2F72 


10380 


(30GTMOD 


; in case needed later 


2F72 3E53 


00104 


LD 


A, 83 




2F74 EF 


00105 


RST 


40 




2F75 2004 


10390 


JR 


NZ, GETDATl 


;Skip if none res 'ed 


2F77 ED532941 


10400 
10410 ; 


LD 


(RESL0C+1),DE 


;Store the module loc 




10420 ; 


Get SYS2 loaded for pas 


sword hash 




10430 ; 








2F7B El 


10440 GETDATl 


POP 


HL 




2F7C Dl 


10450 


POP 


DE 




2F7D CD6A41 


10460 
10470 ; 


CALL 


GETSYS2 


;Get sys2 and move date 




10480 ; 


Check 


on (X) parm for source/dest swap 




10490 ; 








2F80 3A0E27 


10500 


LD 


A,(SRCDRV$+1) 


;If source is not 0, 


2F83 87 


10510 


OR 


A 


; then let PMTSRC handle 


2F84 200F 


10520 


JR 


NZ. SRCDFT 




2F86 F680 


10530 


OR 


80H 


;Set to SRC code 


2F88 4F 


10540 


LD 


C,A 


;Save if needed 


2F89 3ACA25 


10550 


LD 


A,(XPARM$+1) 


;Source is drive 0, 


2F8C 3C 


10560 


INC 


A 


; if (X), then swap 


2F8D F5 


10570 


PUSH 


AF 




2F8E 211C29 


10580 


LD 


HL,PMTSRC$ 




2F91 CCC127 


10590 


CALL 


Z,FRCPMT 


; Force prompt on (X) 


2F94 Fl 


10600 


POP 


AF 




2F95 C40D27 


10610 SRCDFT 


CALL 


NZ,SRCDRV$ 


; Prompt for source 


2F98 CD5E28 


10620 


CALL 


RESTOR 


;Get set to see if a 


2F9B CDBF41 


10630 


CALL 


CKDRV 


; source disk mounted 


2F9E 280A 


10640 


JR 


Z, GOTSRC 


;Z=ok 


2FA0 F5 


10650 


PUSH 


AF 




2FA1 211C29 


10660 


LD 


HL,PMTSRC$ 


;Else prompt "Insert.. . 


2FA4 CDC127 


10670 


CALL 


FRCPMT 




2FA7 Fl 


10680 


POP 


AF 




2FA8 18EB 


10690 
10700 ; 


JR 


SRCDFT 


; and then check again 




10710 ; 


Get source disk attributes 




10720 ; 








2FAA FD7E03 


10730 GOTSRC 


LD 


A,(IY+3) 


;P/u 5" or 8" from 


2FAD E620 


10740 


AND 


20H 


; DCT+3, bit 5 


2FAF 324 D30 


10750 


LD 


(TST5 8+1), A 


; and save for later 


2FB2 CD5528 


10760 


CALL 


TSTDRV 


;Ck for active DCT 


2FB5 C29726 


10770 


JP 


NZ,EXIT3 


; and quit if not 


2FB8 21002D 


10780 
10790 ; 


LD 


HL,BUF3$ 


;Disk buffer 




10800 


IF 


(3M0D2 






10810 


CALL 


GETPSEC 


;Get prot sector 




10820 


JP 


NZ,EXIT3 


;Go on error 




10830 


CP 


6 


;Directory? 




10840 


JP 


NZ,DIRERR 


;Nope, go! 




10850 


ENDIF 






2FBB 110000 


10860 


LD 


DE,0 


;Set to track/sector 0/0 


2FBE CD7228 


10870 


CALL 


RDSEC 


;Read boot 


2FC1 C29726 


10880 


JP 


NZ,EXIT3 


;Quit on read error 


2FC4 3A022D 


10890 


LD 


A,(BUF3$+2) 


;P/u dir track 


2FC7 FD7709 


10900 


LD 


(IY+9),A 


; & stuff in table 




10910 


IF 


@M0D2 
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10920 


LD 


DE,(PROTSEC) 


;Get info sector 




10930 


ENDIF 








10940 


IF 


@M0D4 




2FCA IC 


10950 


INC 


E 


;Point to SYSINFO sector 


2FCB IC 


10960 
10970 


INC 
ENDIF 


E 




2FCC 262B 


10980 


LD 


H,BUFl$<-8 


;Use this disk buffer 


2FCE CD7228 


10990 


CALL 


RDSEC 


;Read the info sector 


2FD1 C29726 


11000 


JP 


NZ,EXIT3 


;Quit on read error 


2FD4 3AC52B 


11010 


LD 


A,(BUF1$+0C6H) 


;Get & save id byte 


2FD7 32A128 


11020 


LD 


(SVCTR),A 




2FDA 3C 


11030 


INC 


A 




2FDB 2815 


11040 
11050 ; 


JR 


Z, CKGAT 






11060 ; 


Check 


write protect status 




11070 ; 








2FDD 3D 


11080 


DEC 


A 


;Need to check? 


2FDE 2812 


11090 


JR 


Z, CKGAT 


;Go if not 


2FE0 CD5E28 


11100 


CALL 


RESTOR 


; Start the drive 


2FE3 CD6328 


11110 


CALL 


RSELCT 


;Ck if WP 


2FE6 FDB603 


11120 


OR 


(IY+3) 


; Merge in soft WP 


2FE9 07 


11130 


RLCA 




;Push WP to CF 


2FEA 3006 


11140 


JR 


NC, CKGAT 


; Bypass if not WP 


2FEC 211F2A 


11150 CANTBU 


LD 


HL,CANTBU$ 




2FEF C3AF26 


11160 
11170 ; 


JP 


EXIT4 




2FF2 FD5609 


11180 CKGAT 


LD 


D,(IY+9) 


; Directory tracks 


2FF5 1E00 


11190 


LD 


E,0 


; sector 


2FF7 21002 B 


11200 


LD 


HL,BUF1$ 




2FFA CD7228 


11210 


CALL 


RDSEC 


;Read GAT 


2FFD FE06 


11220 


CP 


6 


; Ensure directory cyl 


2FFF C29226 


11230 


JP 


NZ,DIRERR 


;Quit on any other error 


3002 CDCF30 


11240 
11250 ; 


CALL 


TSTMPW 


;Get password if needed 




11260 ; 


Check 


if destination formatted & not protected 




11270 ; 








3005 3A7B27 


11280 


LD 


A,(DSTDRV$+1) 


;If dest is not 0, 


3008 B7 


11290 


OR 


A 


; then let DSTDRV handle 


3009 200F 


11300 


JR 


NZ, DSTDFT 




300 B F640 


11310 


OR 


40H 


;Set DST code 


300 D 4F 


11320 


LD 


C,A 


;Save if needed 


300 E 3 AC A 26 


11330 


LD 


A,(XPARM$+1) 


;Dest is drive 


3011 3C 


11340 


INC 


A 


;If (X), then swap 


3012 F5 


11350 


PUSH 


AF 




3013 213A29 


11360 


LD 


HL,PMTDST$ 




3016 CCC127 


11370 


CALL 


Z,FRCPMT 


; Force prompt on (X) 


3019 Fl 


11380 


POP 


AF 




301 A C47A27 


11390 DSTDFT 


CALL 


NZ,DSTDRV$ 


;Get dest drive 


301D CD5E28 


11400 


CALL 


RESTOR 


;Restore destination 


3020 CD6328 


11410 


CALL 


RSELCT 


;Test it 


3023 2018 


11420 
11430 


JR 


NZ,PMTDD 


;Might be signal from 
;HD driver 


3025 07 


11440 


RLCA 






3026 FDB603 


11450 


OR 


(IY+3) 


; Merge in soft WP 


3029 CB7F 


11460 


BIT 


7, A 


; Check on WP status 


302B 21C128 


11470 


LD 


HL,DSTWP$ 


;Dest write prot.. . 


302 E C2AF26 


11480 
11490 


JP 


NZ,EXIT4 


;Jp if write protected 
;If hard drive, don't 


3031 FDCB035E 11500 


BIT 


3, (IY+3) 


; try to test for write 
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3035 C2AE30 


11510 


JP 


NZ.RECON 


; but go to re-construct 


3038 CDBF41 


11520 


CALL 


CKDRV 


;Ck if diskette in place 


303B 280A 


11530 


JR 


Z, GOTDST 




303D F5 


11540 PMTDD 


PUSH 


AF 


;Kludge a force of 


303E 213A29 


11550 


LD 


HL,PMTDST$ 




3041 CDC127 


11560 


CALL 


FRCPMT 




3044 Fl 


11570 


POP 


AF 




3045 18D3 


11580 
11590 ; 


JR 


DSTDFT 


; the destination prompt 




11600 ; 


Check 


5" vs 8" for forced reconstruction 




11610 ; 








3047 FD7E03 


11620 GOTDST 


LD 


A,(IY+3) 




304A E620 


11630 


AND 


20H 


;See if 5/8 mismatch 


304C EE00 


11640 TST5 8 


XOR 





;P/u source size 


304E C2AE30 


11650 


JP 


NZ,RECON 


;Go if different 


3051 110000 


11660 


LD 


DE.0 




3054 CD7728 


11670 


CALL 


VERSEC 


;Verify boot sector readable 


3057 2806 


11680 
11690 ; 


JR 


Z, CKDST 


;Jump if ok 




11700 ; 


Destir 


lation not formatted, abort 




11710 ; 








3059 21C942 


11720 


LD 


HL,NOFMT$ 


;Init "Not formatted 


305 C C3AF26 


11730 
11740 ; 


JP 


EXIT4 


; Display and abort 




11750 ; 


Check 


destination attri 


butes 




11760 ; 








305 F 21002 D 


11770 CKDST 


LD 


HL,BUF3$ 




3062 110000 


11780 


LD 


DE,0 


;SET for track/sector 0/0 


3065 CD7228 


11790 


CALL 


RDSEC 


;Read dest boot 


3068 C29726 


11800 


JP 


NZ,EXIT3 




306B 3A022D 


11810 


LD 


A, (BUF3$+2) 


;P/u its dir track 


306 E 57 


11820 


LD 


D,A 


;Set up in D 


306 F 21002 C 


11830 


LD 


HL,BUF2$ 




3072 5D 


11840 


LD 


E,L 


; and in E 


3073 CD7228 


11850 


CALL 


RDSEC 


;Read dest GAT 


3076 FE06 


11860 


CP 


6 


;Ensure a dir cyl 


3078 C29226 


11870 


JP 


NZ,DIRERR 


;Quit on any other error 


307B 2ACC2B 


11880 


LD 


HL,(BUF1$+TKCAP) ;P/u source capacity 


307E ED5BCC2C 


11890 


LD 


DE,(BUF2$+TKCAP) ;P/u dest capacity 


3082 3AA128 


11900 


LD 


A,(SVCTR) 


;If id byte was FF 


3085 3C 


11910 


INC 


A 




3086 2807 


11920 


JR 


Z, SHOPROT 


; then force recon 


3088 3D 


11930 


DEC 


A 


;If id was not 


3089 200C 


11940 


JR 


NZ, TSTCAP 


; then test sizes 


308B CB64 


11950 


BIT 


4,H 


;If types differ 


308 D 2808 


11960 
11970 ; 


JR 


Z, TSTCAP 


; force reconstruct 


308F 


11980 SHOPROT 


@@LOGOT PROT$ 


;Show reconstruct invoked 




00106 


IFEQ 


01H,1 




308F 214A2A 


00107 
00108 


LD 
ENDIF 


HL,PROT$ 




3092 3E0C 


00109 


LD 


A, 12 




3094 EF 


00110 


RST 


40 




3095 1817 


11990 
12000 ; 


JR 


RECON 


;Skip next tests 


3097 7C 


12010 TSTCAP 


LD 


A,H 


; Den/sides match? 


3098 AA 


12020 


XOR 


D 


;Force Reconstruct if 


3099 E660 


12030 


AND 


60H 


; density & sides 


309B 2011 


12040 


JR 


NZ, RECON 


; differ 



Page 18 



The Source 


UTILITY Fi 


les 


BACKUP - LS~DOS 


6o2 Page 00018 


Backup initialization 








309D 7D 


12050 


LD 


A.L 


;Test # of cyls 


309E 93 


12060 


SUB 


E 




309F 280A 


12070 
12080 ; 


JR 


Z, BYCLAS 


;Jump if same 




12090 ; 


Cylinder count differs ■ 


- question Mirror 




12100 ; 








30A1 3A0141 


12110 


LD 


A,(CLSTST+1) 


;But don't question if 


30 A4 B7 


12120 


OR 


A 


; Class parms already 


30A5 C20041 


12130 


JP 


NZ,CLSTST 


; entered 


30A8 CDB730 


12140 


CALL 


MIRROR 


;Attempt mirror? 


30AB CA0041 


12150 BYCLAS 


JP 


Z,CLSTST 


;Jump if mirror to be tried 


30AE 


12160 RECON 


§(aLOGOT RECON$ 


; "backup re-con.. . 




00111 


IFEQ 


01H,1 




30AE 218044 


00112 
00113 


LD 
ENDIF 


HL,RECON$ 




30 Bl 3E0C 


00114 


LD 


Aa2 




30 B3 EF 


00115 


RST 


40 




30B4 C31341 


12170 
12180 ; 


JP 


MVBYCLS 


;Go do file backup 




12190 ; 


Different # of tracks - 


Prompt for mirror 




12200 ; 








30 B7 


12210 MIRROR 


@@DSPLY 


MIRRORS 


; "Attempt mirror., . 




00116 


IFEQ 


01H,1 




30B7 219B44 


00117 
00118 


LD 
ENDIF 


HL, MIRRORS 




30 BA 3E0A 


00119 


LD 


A, 10 




30 BC EF 


00120 


RST 


40 




30BD 215926 


12220 


LD 


HL,LILBUF$+1 


;Keyin buffer 


30C0 010003 


12230 QMl 


LD 


BC,3<8 


;3 chars max 


30C3 


12240 


@@KEYIN 






30C3 3E09 


00121 


LD 


A,9 




30C5 EF 


00122 


RST 


40 




30C6 DAAC26 


12250 


JP 


CABRTBU 


;Quit on break 


30C9 7E 


12260 


LD 


A,(HL) 




30CA CBAF 


12270 


RES 


5, A 


; Convert to UC 


30CC FE59 


12280 


CP 


'Y' 


;Ret Z if Yes 


30CE C9 


12290 
12300 ; 


RET 








12310 ; 


Get & check Disk master 


password 




12320 ; 








30CF 2ACE2B 


12330 TSTMPW 


LD 


HL,(BUF1$+PSWD) 


;P/u src MPW 


30D2 11E042 


12340 


LD 


DE, PASSWORD 


;If "PASSWORD", 


30 D5 AF 


12350 


XOR 


A 


; don't prompt 


30D6 ED52 


12360 


SBC 


HL,DE 




30D8 C8 


12370 


RET 


Z 




30D9 110000 


12380 


LD 


DE,$-$ 


;P/u User entry 


30 DA 


12390 MPWPRM 


EQU 


$-2 




30DC 21D344 


12400 


LD 


HL,PMTMPW$ 


;Init "Enter MPW 


30DF CD6441 


12410 


CALL 


GETMPW 


;Get the user's response 


30E2 EB 


12420 


EX 


DE,HL 




30E3 2ACE2B 


12430 


LD 


HL,(BUF1$+PSWD) 




30E6 AF 


12440 


XOR 


A 




30E7 ED52 


12450 


SBC 


HL,DE 


;Entry match? 


30E9 C8 


12460 


RET 


Z 


;Ret if MPW match 


30EA 21E628 


12470 


LD 


HL,BADMPW$ 


; else init "bad MPW... 


30ED C3AF26 


12480 
12490 ; 


JP 


EXIT4 


; Don't do the backup 




12500 ; 


Routine 


to parse parti a 


1 filespecs & cvrt to UC 




12510 ; 
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30F0 FE24 
30F2 280A 
30F4 FE41 
30F6 3006 
30F8 FE3A 
30FA D0 
30FB FE30 
30FD D8 
30FE FE61 
3100 3802 
3102 CBAF 

3104 12 

3105 13 

3106 7E 

3107 23 

3108 10E6 
310A C9 



310B 
310C 
310E 
3111 
3113 
3114 
3117 
3119 
311C 
311E 
311F 
3122 
3123 
3125 
3127 
3128 
3129 
312A 
3128 
312D 
312E 
3131 
3132 
3133 
3135 
3138 
3139 
313A 
313B 
313C 
313D 
313E 
313F 
3140 
3141 
3142 
3144 
3146 
3147 



7E 

0E2F 

CD5431 

203 B 

EB 

3A5826 

E603 

21 EC 44 

2001 

34 

3A5A26 

3D 

FE0C 

3027 

2B 

85 

6F 

7C 

CE00 

67 

3A5926 

3D 

BE 

3019 

215A26 

7E 

2B 

47 

7E 

2B 

07 

07 

07 

4F 

7E 

D650 

3001 

AF 

0F 



12520 PRSPEC 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 PSl 

12610 

12620 

12630 

12640 

12650 

12660 

12670 

12680 

12690 ; 

12700 ; 

12710 ; 

12720 PAKDAT 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

12870 

12880 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 



CP 

JR 

CP 

JR 

CP 

RET 

CP 

RET 

CP 

JR 

RES 

LD 

INC 

LD 

INC 

DJNZ 

RET 



'$' 

Z,PS1 

'A' 

NCPSl 

'9'+l 

NC 

'0' 

C 

'a' 

C,$+4 

5,A 

(DE),A 

DE 

A,(HL) 

HL 

PRSPEC 



Pack user date string 



LD 

LD 

CALL 

JR 

EX 

LD 

AND 

LD 

JR 

INC 

LD 

DEC 

CP 

JR 

DEC 

ADD 

LD 

LD 

ADC 

LD 

LD 

DEC 

CP 

JR 

LD 

LD 

DEC 

LD 

LD 

DEC 

RLCA 

RLCA 

RLCA 

LD 

LD 

SUB 

JR 

XOR 

RRCA 



A,(HL) 

CV 

PARSDAT 

NZ^BADFMT 

DE,HL 

A,(LILBUF$) 

3 

HL,MAXDAYS+1 

NZ,$+3 

(HL) 

A,(LILBUF$+2) 

A 

12 

NCBADFMT 

HL 

M J L 

L,A 

A,H 

A,0 

H,A 

A,(LILBUF$+1) 

A 

(HL) 

NCBADFMT 

HL,LILBUF$+2 

A.(HL) 

HL 

B,A 

A,(HL) 

HL 



C,A 

A,(HL) 

80 

NC,$+3 

A 



;Wild character? 
jAlways a match 
;Filename entered? 

;Ck on 0-9 



;Cvrt to UC if needed 

;Convert to upper case 
;Save in partspec buffet 
;Bump buffer 
;Get next char and 
; bump string ptr 



;Init separator 

; Parse entry 

;Jump on format error 

;Is year a leap year? 

;Set Feb to have 29 days 
; if so 

;P/u month 
;Range check 

;Go if or >12 

; Point to Jan entry 

; Index the month 



;P/u day entry 

;Reduce for test (0->FF) 



;Go if too large (or 
;Pt to month 
;P/u month 
;Pt to day 
;Save it 
;P/u day 
;Pt to year 
;Shift day to 3-7 



;P/u year 

;Adjust for offset 
;If entry < 1980, 
; then use 1980 
;Shift into bits 5-7 



i) 
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3148 0F 


13110 




RRCA 






3149 0F 


13120 




RRCA 






314A B0 


13130 




OR 


B 


; & merge with month 


314B 47 


13140 




LD 


B,A 




314C EB 


13150 




EX 


DE,HL 




314D C9 


13160 




RET 






314E 21F744 


13170 


BADFMT 


LD 


HL,BADFMT$ 




3151 C3AF26 


13180 
13190 




JP 


EXIT4 






13200 




Routine 


to parse DATE/TIME entry 




13210 










3154 115A26 


13220 


PARS DAT 


LD 


DE,LILBUF$+2 


; Point to buf end 


3157 0603 


13230 




LD 


B,3 


;Process 3 fields 


3159 D5 


13240 


PRSDl 


PUSH 


DE 


;Save pointer 


315A CD6931 


13250 




CALL 


PRSD2 


;Get a digit pair 


315D Dl 


13260 




POP 


DE 


;Recover pointer 


315E C0 


13270 




RET 


NZ 


;Ret if bad digit pair 


315F 12 


13280 




LD 


(DE),A 


; else stuff the value 


3160 IB 


13290 




DEC 


DE 


;Backup the pointer 


3161 05 


13300 




DEC 


B 


;Loop countdown 


3162 C8 


13310 




RET 


Z 




3163 7E 


13320 




LD 


A,(HL) 


;Ck for valid separator 


3164 23 


13330 




INC 


HL 


;Bump pointer 


3165 B9 


13340 




CP 


C 


;Separator char required 


3166 28F1 


13350 




JR 


Z, PRSDl 


;Loop if match 


3168 C9 


13360 
13370 




RET 




;Else ret bad (NZ) 




13380 




Routine 


to parse a digi 


it pair 




13390 










3169 CD8031 


13400 


PRSD2 


CALL 


PRS4 


;Get a digit 


316C 3010 


13410 




JR 


NC,PRSD3 


;Jump if bad digit 


316E 5F 


13420 




LD 


E,A 


;Multiply by ten 


316F 07 


13430 




RLCA 






3170 07 


13440 




RLCA 






3171 83 


13450 




ADD 


A,E 




3172 07 


13460 




RLCA 






3173 5F 


13470 




LD 


E.A 




3174 CD8031 


13480 




CALL 


PRS4 


;Get another digit 


3177 3005 


13490 




JR 


NC,PRSD3 


;Jump on bad digit 


3179 83 


13500 




ADD 


A,E 


;Accumulate new digit 


317A 5F 


13510 




LD 


E,A 


;Save 2-digit value 


317B AF 


13520 




XOR 


A 


;Clear flags 


317C 7B 


13530 




LD 


A,E 


;Xfer field value 


317D C9 


13540 




RET 






317E B7 


13550 


PRSD3 


OR 


A 


;Set NZ 


317F C9 


13560 




RET 






3180 /E 


13570 


PRS4 


LD 


A,(HL) 


;P/u a digit & 


3181 23 


13580 




INC 


HL 


; Convert to binary 


3182 D630 


13590 




SUB 


30 H 




3184 FE0A 


13600 




CP 


10 


;Set CF if good 


3186 C9 


13610 
13620 




RET 








13630 




Save PC 


for later use 






13640 










3200 


13650 CORES 


DEFL 


$<-8+l<8 


;Set to next page 


2E00 


13660 




ORG 


BACKUP 


;Set for MIRROR exec 


3200 


13670 


MIRBU 


EQU 


CORES 




2E00 


13680 
13690 


» 


L0R6 


MIRBU 


;Load origin 
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*6ET BACKUP2:3 

;BACKUP2/ASM - Mirror Image Backup 

*MOD 



Page 00022 





13720 


2E00 


13730 




13740 




13750 




13760 


2E00 CD7A27 


13770 


2E03 CD8727 


13780 


2E06 21002D 


13790 


2E09 55 


13800 


2E0A 1E01 


13810 


2E0C CD7228 


13820 


2E0F C29726 


13830 


2E12 3A0026 


13840 


2E15 6F 


13850 


2E16 7E 


13860 


2E17 E603 


13870 


2E19 320630 


13880 


2E1C 3A022D 


13890 


2E1F 57 


13900 


2E20 21002C 


13910 


2E23 5D 


13920 


2E24 CD7228 


13930 


2E27 FE06 


13940 


2E29 3E14 


13950 


2E2B C29726 


13960 


2E2E 21CE2B 


13970 


2E31 11CE2C 


13980 


2E34 060A 


13990 


2E36 lA 


14000 


2E37 BE 


14010 


2E38 2860 


14020 




14030 




14040 




14050 


2E3A 21D02C 


14060 


2E3D 115A32 


14070 


2E40 010800 


14080 


2E43 EDB0 


14090 


2E45 116932 


14100 


2E48 0E08 


14110 


2E4A EDB0 


14120 


2E4C 


14130 




00123 


2E4C 213332 


00124 




00125 


2E4F 3E0C 


00126 


2E51 EF 


00127 


2E52 


14140 


2E52 3E65 


00128 


2E54 EF 


00129 


2E55 FDCB126E 


: 14150 


2E59 203C 


14160 




14170 




14180 




14190 


2E5B 2ACE2C 


14200 


2E5E 11E042 


14210 


2E61 AF 


14220 


2E62 ED52 


14230 


2E64 2818 


14240 



CPRID 



CALL DSTDRV$ 

CALL PMTDST 

LD HL,BUF3$ 

LD D,L 

LD E,l 

CALL RDSEC 

JP NZ,EXIT3 

LD A,(BOOTST$) 

LD L,A 

LD A,(HL) 

AND 3 

LD (BSMIR+1),A 

LD A,(BUF3$+2) 

LD D,A 

LD HL,BUF2$ 

LD E,L 

CALL RDSEC 

CP 6 

LD A, 20 

JP NZ,EXIT3 

LD HL,BUF1$+0CEH 

LD DE,BUF2$+0CEH 

LD B,10 

LD A,(DE) 

CP (HL) 

JR Z.IDMATCH 



; Prompt for dest but 
; don't test yet 

;Set cyl to 

;Read sector 1 for step 

;Read BOOT 

;Quit on read error 

;P/u the boot step rate 



; from bits 0-1 

;Save for later 

;Get dir cylinder 

; into D 

;Use this buffer now 

;Set sector 

;Read the dest GAT 

;Expect error 6 here 

;Init "GAT read error 

; and abort on an error 

; Source GAT 

;Dest GAT 

; Compare pack names 

; and passwords 



No match - move disk name into message 



LD 

LD 

LD 

LDIR 

LD 

LD 

LDIR 

(apLOGOT DIFID$ 



HL,BUF2$+0 
DE,PACKID$+5 
BC 38 

DE,PACKID$+20 
C s 8 



IFEQ 

LD 

ENDIF 

LD 

RST 

(3@FLAGS 

LD 

RST 

BIT 

JR 

If MPW = 

LD 

LD 

XOR 

SBC 

JR 



01H,1 
HL,DIFID$ 

Aa2 
40 

Aa01 

40 

5,(IY+'S'-'A') 

NZ,PACKNDO 



;Move name into 

; display message field 

;Move date into 
; message field 

;"diff pack ids.. 



;If DOing, don't! 



;Abort if JCL 
"PASSWORD", just query Y,N 



going 



HL,(BUF2$+0CEH) ;P/u disk MPW 

DE, PASSWORD ;P/u hash for "PASSWORD" 

A 

HL,DE ;Does it match disk MPW? 

Z.PMTYN ;Go get Y or N if so 
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14250 












14260 




User must enter Current F 


'ack's MPW to proceed 




14270 










2E66 217232 


14280 OLDMPW 


LD 


HL,OLDMPW$ 


"What's the old MPW? 


2E69 110000 


14290 




LD 


DE,0 


Force prompt of message 


2E6C CD6441 


14300 
14310 




CALL 


GETMPW 


Grab user input to match 




14320 




Routine 


to test master pc 


issword for match 




14330 










2E6F EB 


14340 




EX 


DE,HL 


Xfer hashed MPW to DE 


2E70 2ACE2C 


14350 




LD 


HL,(BUF2$+0CEH) , 


Grab pack MPW 


2E73 AF 


14360 




XOR 


A 


Clear carry flag 


2E74 ED52 


14370 




SBC 


HL,DE 


,Did user enter pack MPW? 


2E76 21E628 


14380 




LD 


HL,BADMPW$ 


Init "Bad MPW" just in case 


2E79 C2AF26 


14390 




JP 


NZ,EXIT4 


Abort if no match 


2E7C 1820 


14400 
14410 


s 


JR 


$A1 


,PW good, continue backup 


2E7E 


14420 


PMTYN 


@@DSPLY PMTYN$ 


"Backup anyway?" 




00130 




IFEQ 


01H,1 




2E7E 21A432 


00131 
00132 




LD 
ENDIF 


HL,PMTYN$ 




2E81 3E0A 


00133 




LD 


A, 10 




2E83 EF 


00134 




RST 


40 




2E84 215826 


14430 




LD 


HL,LILBUF$ 


.Prompt to continue 


2E87 010003 


14440 




LD 


BC,3<8 


since ID's differ 


2E8A 


14450 




@(3KEYIN 






2E8A 3E09 


00135 




LD 


A, 9 




2E8C EF 


00136 




RST 


40 




2E8D DAAC26 


14460 




JP 


CABRTBU 


,Exit on break 


2E90 7E 


14470 




LD 


A,(HL) 




2E91 CBAF 


14480 




RES 


5, A 


;Make answer upper case 


2E93 FE59 


14490 




CP 


ly- 


;Was answer Yes? 


2E95 2807 


14500 




JR 


Z,$A1 


;Go if continue 


2E97 C3AC26 


14510 
14520 


PACKNDO 

» 


JP 


ABRTBU 


; else abort 


2E9A 13 


14530 


IDMATCH 


INC 


DE 




2E9B 23 


14540 




INC 


HL 




2E9C 1098 


14550 




DJNZ 


CPRID 




2E9E 21602C 


14560 


$A1 


LD 


HL,BUF2$+60H 


;Dest lockout table 


2EA1 11602B 


14570 




LD 


DE,BUF1$+60H 


;Source lockout table 


2EA4 0660 


14580 




LD 


B,60H 


;Init to compare 96 posns 


2EA6 lA 


14590 


CPRLOK 


LD 


A,(DE) 


;P/u lockout byte 


2EA7 2F 


14600 




CPL 




;Reset all used bits 


2EA8 4F 


14610 




LD 


C,A 


; and save results 


2EA9 D5 


14620 




PUSH 


DE 




2EAA 7B 


14630 




LD 


A,E 


;Now posn to GAT byte 


2EAB D660 


14640 




SUB 


60H 


; for that track 


2EAD 5F 


14650 




LD 


E,A 




2EAE lA 


14660 




LD 


A,(DE) 


;P/u free/used 


2EAF Dl 


14670 




POP 


DE 


;Pt back to lockout 


2EB0 Al 


14680 




AND 


C 


;Merge non-locked and in use 


2EB1 A6 


14690 




AND 


(HL) 


;That much must be free on dest 


2EB2 C2BC31 


14700 




JP 


NZ,NOTMIR 


; else "dest disk flawed 


2EB5 13 


14710 




INC 


DE 




2EB6 23 


14720 




INC 


HL 




2EB7 10ED 


14730 
14740 




DJNZ 


CPRLOK 


;Loop thru all cyls 




14750 




Dest can take backup, in 


sert HALT for swap test 




14760 
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2EB9 CD8727 


14770 


CALL 


PMTDST 


; Prompt dest if needed 


2EBC 21002D 


14780 


LD 


HL,BUF3$ 


;Set up to read 


2EBF 55 


14790 


LD 


D,L 


; track 0, 


2EC19 5D 


14800 


LD 


E,L 


; sector 


2EC1 CD7228 


14810 


CALL 


RDSEC 




2EC4 C29726 


14820 


JP 


NZ,EXIT3 


;Quit on read error 


2EC7 3676 


14830 


LD 


(HL),76H 


; Insert HALT to guard 


2EC9 21002D 


14840 


LD 


HL,BUF3$ 


; against incomplete BU 


2ECC CD6828 


14850 


CALL 


WRSEC 




2ECF C29726 


14860 


JP 


NZ,EXIT3 


;Quit on write error 


2ED2 3A022D 


14870 


LD 


A,(BUF3$+2) 


;P/U current dest/dir 


2ED5 320431 


14880 
14890 ; 


LD 


(STRDIR$+1),A 


; store it for later 




14900 ; 


Use source directory track for destination 




14910 ; 








2ED8 CD1A27 


14920 


CALL 


PMTSRC 


;Prompt source 


2EDB FD7E09 


14930 


LD 


A,(IY+9) 


;Get source dir cyl 


2EDE 320F30 


14940 
14950 ; 


LD 


(DSTDIR+1),A 






14960 ; 


Calcu 


late the number of 


sectors per cylinder 




14970 ; 








2EE1 FD7E07 


14980 


LD 


A,(IY+7) 


;P/u # of sectors per cyl 


2EE4 47 


14990 


LD 


B,A 


;Save # heads also 


2EE5 E61F 


15000 


AND 


IFH 


;Mask all but sectors 


2EE7 4F 


15010 


LD 


C,A 




2EE8 0C 


15020 


INC 


C 


;Adj for zero offset 


2EE9 A8 


15030 


XOR 


B 


;Get # of heads 


2EEA 07 


15040 


RLCA 






2EEB 07 


15050 


RLCA 




;Shift to bits 0-2 


2EEC 07 


15060 


RLCA 






2EED 3C 


15070 


INC 


A 


;Adj for offset 


2EEE 47 


15080 


LD 


B,A 


;Init loop counter 


2EEF AF 


15090 


XOR 


A 


;Set sector count to 


2EF0 81 


15100 


ADD 


A,C 


;Multiply # sectors/track 


2EF1 10FD 


15110 


DJNZ 


$-1 


;X # of heads/cyl 


2EF3 FDCB046E 


15120 


BIT 


5,(IY-»-4) 


;If 2-sided diskette 


2EF7 2801 


15130 


JR 


Z,$+3 




2EF9 87 


15140 


ADD 


A, A 


; Double the # of sectors 


2EFA 327E2F 


15150 


LD 


(LDCYL4+1),A 


;Save sect/cyl total 


2EFD 322630 


15160 


LD 


(DUCYL5+1),A 


; in many places 


2FiZH2f 327830 


15170 


LD 


(VECYL4+1),A 




2F03 329031 


15180 


LD 


(RESMF6+1),A 




2F06 32F130 


15190 
15200 ; 


LD 


(RESMF2+1),A 






15210 ; 


Calcu 


late the amount of 


core available 




15220 ; 








2F09 47 


15230 


LD 


B,A 


;Put sector count in B 


2F0A 210000 


15240 


LD 


HL,0 


;Set up to get HIGH$ 


2F0D C5 


15250 


PUSH 


BC 


;Save the count 


2F0E 45 


15260 


LD 


B,L 




2F0F 


15270 


@@HIGH$ 


;Get HIGH$ 


2F0F 3E64 


00137 


LD 


A, 100 




2F11 EF 


00138 


RST 


40 




2F12 CI 


15280 


POP 


BC 


;Recover sector count 


2F13 23 


15290 


INC 


HL 


;Get highest full page 


2F14 25 


15300 


DEC 


H 




2F15 ED5B1626 


15310 


LD 


DE, (BUFFERS) 


;Get buffer addr 


2F19 7C 


15320 


LD 


A,H 


;Now sub buffer start 


2F1A 92 


15330 


SUB 


D 


; from the top 
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2F1B 0EFF 
2F1D 0C 
2F1E 90 
2F1F 30FC 
2F21 79 
2F22 32892F 



2F25 CD1A27 
2F28 AF 
2F29 32822F 
2F2C 57 
2F2D CD8928 



2F30 2A1626 
2F33 7A 
2F34 32A52F 



2F37 

2F37 3E6A 
2F39 EF 
2F3A C2AC26 



2F3D 
2F3E 
2F40 
2F41 
2F42 
2F43 
2F45 
2F45 
2F47 
2F48 
2F49 
2F4B 
2F4C 
2F4D 
2F4E 
2F4F 
2F50 
2F51 



E5 

262B 

6A 

4E 

7A 

C660 

6F 

7E 

2F 

Al 

262C 

4E 

81 

6A 

77 

B9 

El 

CA8D2F 



2F54 CD1A27 
2F57 E5 
2F58 1E00 
2F5A 7A 
2F5B 210132 
2F5E CD9631 
2F61 D5 
2F62 



15340 

15350 $A2 

15360 

15370 

15380 

15390 

15400 ; 

15410 ; 

15420 ; 

15430 

15440 

15450 

15460 

15470 

15480 ; 

15490 ; 

15500 ; 

15510 LDTKS 

15520 

15530 

15540 ; 

15550 ; 

15560 ; 

15570 LDTKSl 

15580 

00139 

00140 

15590 

15600 ; 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 ; 

15800 ; 

15810 ; 

15820 

15830 

15840 

15850 

15860 

15870 

15880 

15890 

00141 



LD C,-l 

INC C 

SUB B 

JR NC,$A2 

LD A,C ;This is the number of full 

LD (LDCYL6+1),A ; cylinders to move per pass 



;Now count how many cyls 
; will fit in this space 



Get source & initialize 

CALL PMTSRC 

XOR A 

LD (LDCYL5+1),A 

LD D,A 

CALL CKSWDD 



; Prompt source if needed 
;Init starting cylinder 
; to 
;Set current track to 



Here each time a new load cycle 

LD HL, (BUFFERS) ;Pt to buffer start 

LD A,D ;P/u cylinder to move 

LD (DUCYL+1),A ;Save start for dump cycle 

Here on each track loaded 



(a@CKBRKC 

LD A, 106 

RST 40 

JP NZ, BREAK 



PUSH 

LD 

LD 

LD 

LD 

ADD 

LD 

LD 

CPL 

AND 

LD 

LD 

OR 

LD 

LD 

CP 

POP 

JP 



HL 

H,BUFl$<-8 

L,D 

C,(HL) 

A,D 

A,60H 

L,A 

A,(HL) 



H,BUF2$<-8 

C,(HL) 

C 

L,D 

(HL),A 

C 

HL 

Z,LDCYL7 



;Ckeck for break 



; and abort if so 

;Save buffer 
;Pt to source GAT 
; for this cylinder 
;P/u Free/used byte 

;Pt to Lockout byte 
;If source track is 
; locked out, don't 
; back it up - BUT 
; show dest is "in use" 
;Pt to dest lockout 
;P/u dest lockout byte 
;Merge with source 
;Xfer pattern to FREE 
; field of dest 

; Recover buffer 

;Go if ignore this track 



Get source disk and load 

CALL PMTSRC 

PUSH HL 

LD E,0 

LD A,D 

LD HL,CYL$ 

CALL CVTDEC 

PUSH DE 
(a@DSPLY LDCYL$ 

IFEQ 01H,1 



; Prompt source if needed 
;Save buffer 

; Start track at sector 
;This is the cylinder 
;Message posn to hold 
; ASCII cyl number 

;" loading cylinder.. . 
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2F62 21C231 


00142 
00143 




LD 
ENDIF 


HL,LDCYL$ 




2F65 3E0A 


00144 




LD 


A, 10 




2F67 EF 


00145 




RST 


40 




2F68 


15900 




mOSPU CYL$ 


;"xx... 




00146 




IFEQ 


01H,1 




2F68 210132 


00147 
00148 




LD 
ENDIF 


HL,CYL$ 




2F6B 3E0A 


00149 




LD 


A, 10 




2F6D EF 


00150 




RST 


40 




2F6E Dl 


15910 




POP 


DE 


;Now set up to 


2F6F El 


15920 




POP 


HL 


; read the cylinder 


2F70 CD7228 


15930 


LDCYL2 


CALL 


RDSEC 


;Read a sector 


2F73 2805 


15940 




JR 


Z,LDCYL3 


;Go if no error 


2F75 FE06 


15950 




CP 


6 


;0k if error 6 (reading DIR 


2F77 C29726 


15960 




JP 


NZ,EXIT3 




2F7A 24 


15970 


LDCYL3 


INC 


H 


;Bump buffer and 


2F7B IC 


15980 




INC 


E 


; sector number 


2F7C 7B 


15990 




LD 


A,E 




2F7D FE00 


16000 


LDCYL4 


CP 





;High sector # 


2F7F 20EF 


16010 




JR 


NZ,LDCYL2 


;Loop til cyl . finished 


2F81 3E00 


16020 


LDCYL5 


LD 


A,$-$ 


;P/u current cylinder 


2F83 3C 


16030 




INC 


A 




2F84 32822F 


16040 




LD 


(LDCYL5+1),A 


; Store next cyl 


2F87 47 


16050 




LD 


B,A 




2F88 3E00 


16060 LDCYL6 


LD 


A,$-$ 


;P/u last for this pass 


2F8A B8 


16070 




CP 


B 


;See if memory full 


2F8B 280E 


16080 




JR 


Z,LDCYL8 


; and go if so 


2F8D 14 


16090 LDCYL7 


INC 


D 


;Bump cyl to use 


2F8E 7A 


16100 




LD 


A,D 




2F8F FE60 


16110 




CP 


60H 


;Highest track #? 


2F91 C2372F 


16120 




JP 


NZ,LDTKS1 


;If not, do another 


2F94 3A822F 


16130 




LD 


A,(LDCYL5+1) 


;Were any moved? 


2F97 B7 


16140 




OR 


A 


; Don't dump if not 


2F98 CA8F30 


16150 




JP 


Z,MOVID 




2F9B 3A822F 


16160 LDCYL8 


LD 


A,(LDCYL5+1) 


;P/u last cyl loaded 


2F9E 327F30 


16170 
16180 




LD 


(VECYL5+1),A 


; & save for VERIFY 




16190 




Get ready to dump to 


destination 




16200 










2FA1 2A1626 


16210 




LD 


HL, (BUFFERS) 


;P/u start of buffer 


2FA4 1600 


16220 
16230 
16240 


DUCYL 
DUCYLl 


LD 


D,$-$ 


;Init starting cylinder 


2FA6 


16250 




(a^CKBRKC 


;Check for break 


2FA6 3E6A 


00151 




LD 


A, 106 




2FA8 EF 


00152 




RST 


40 




2FA9 C2AC26 


16260 
16270 




JP 


NZ, BREAK 


; and abort if hit 




16280 




Start 


by making dest 


GAT bytes 




16290 










2FAC E5 


16300 




PUSH 


HL 


;Save buffer ptr 


2FAD 262B 


16310 




LD 


H,BUFl$<-8 


;Pt to source GAT 


2FAF 6A 


16320 




LD 


L,D 


; at current cylinder 


2FB0 4E 


16330 




LD 


C,(HL) 


;Get the free/used byte 


2FB1 7A 


16340 




LD 


A,D 




2FB2 C660 


16350 




ADD 


A,60H 


;P/u the lockout byte 


2FB4 6F 


16360 




LD 


L,A 


; for this cylinder 


2FB5 7E 


16370 




LD 


A,(HL) 
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2FB6 2F 


16380 


CPL 




;Merge non-locked and 


2FB7 Al 


16390 


AND 


C 


; in use bits 


2FB8 262C 


16400 


LD 


H,BUF2$<-8 


;Pt to dest GAT 


2FBA 4E 


16410 


LD 


C,(HL) 


;P/u its lockout byte 


2FBB Bl 


16420 


OR 


C 


;Merge in source info 


2FBC 6A 


16430 


LD 


L,D 


; Store in dest free/used 


2FBD 77 


16440 


LD 


(HL),A 




2FBE B9 


16450 


CP 


C 


;Check if any in use 


2FBF El 


16460 


POP 


HL 




2FC0 CA3030 


16470 


JP 


Z,DUCYL6 


; and go if not 


2FC3 CD8727 


16480 


CALL 


PMTDST 


;Set up to write dest disk 


2FC6 1E00 


16490 


LD 


EJ 


;Init to sector 


2FC8 7A 


16500 


LD 


A,D 


;Get current cylinder 


2FC9 B3 


16510 


OR 


E 




2FCA E5 


16520 


PUSH 


HL 


;Save buffer ptr 


2FCB 7A 


16530 


LD 


A,D 




2FCC 210132 


16540 


LD 


HL,CYL$ 


;"xx... 


2FCF CD9631 


16550 


CALL 


CVTDEC 


^Convert cyl # to ASCII 


2FD2 D5 


16560 


PUSH 


DE 




2FD3 


16570 


@@DSPLY 


DUCYL$ 


;" dumping cyl .. . 




00153 


IFEQ 


01H,1 




2FD3 21D731 


00154 
00155 


LD 
ENDIF 


HL,DUCYL$ 




2FD6 3E0A 


00156 


LD 


A, 10 




2FD8 EF 


00157 


RST 


40 




2FD9 


16580 


(3@DSPLY CYL$ 


;"xx... 




00158 


IFEQ 


01H,1 




2FD9 210132 


00159 
00160 


LD 
ENDIF 


HL,CYL$ 




2FDC 3E0A 


00161 


LD 


A, 10 




2FDE EF 


00162 


RST 


40 




2FDF Dl 


16590 


POP 


DE 


;Recover cyl /sect 


2FE0 El 


16600 


POP 


HL 


; and buffer posn 


2FE1 7A 


16610 DUCYL2 


LD 


A,D 


;P/u track # & bypass 


2FE2 B7 


16620 


OR 


A 


; if not cyl=0 


2FE3 2028 


16630 
16640 ; 


JR 


NZ,DUCYL2B 






16650 


IF 


@M0D2 






16660 


LD 


A,(BACKUP0) 


;Get system flag 




16670 


OR 


A 


; System disk? 




16680 


JR 


NZ,DUCYL2B 


;Yes, bypass! 




16690 


ENDIF 








16700 ; 








2FE5 B3 


16710 


OR 


E 


;Merge to test for sec=2 


2FE6 FE02 


16720 


CP 


2 




2FE8 200D 


16730 


JR 


NZ, CKBOOT 


;If not 2, ck 1 or 


2FEA 2EC6 


16740 


LD 


L,0C6H 


; Point to id byte 


2FEC 7E 


16750 


LD 


A,(HL) 




2FED 3C 


16760 


INC 


A 


;If X'FF', leave as is 


2FEE 2818 


16770 


JR 


Z,SET0 




2FF0 3D 


16780 


DEC 


A 


;If X'00', leave as is 


2FF1 2815 


16790 


JR 


Z,SET0 




2FF3 36FF 


16800 


LD 


(HL),-1 


;Set to X'FF' 


2FF5 1811 


16810 


JR 


SET0 




2FF7 E6FE 


16820 CKBOOT 


AND 


0FEH 


; Sector or 1? 


2FF9 2012 


16830 


JR 


NZ,DUCYL2B 


;Go if not 


2FFB B3 


16840 


OR 


E 


;If sector 0, just 


2FFC 280D 


16850 
16860 ; 


JR 


Z,DUCYL2A 


; bother with HALT 
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16870 ; 


Keep the boot track step rate 




16880 ; 








2FFE 3A0026 


16890 


LD 


A,(BOOTST$) 


;P/u step pointer 


3001 6F 


16900 


LD 


L,A 


; & update buffer ptr 


3002 7E 


16910 


LD 


A,(HL) 


;P/u this step byte 


3003 E6FC 


16920 


AND 


0FCH 


; & strip the step rate 


3005 F600 


16930 BSMIR 


OR 





; Merge with the step 


3007 11 


16940 


LD 


(HL),A 




3008 2E00 


16950 SET0 


LD 


L,0 


;Reset buffer pointer 


300A 01 


16960 


DB 


1 


;Ignore next via LD BC,nn 


300B 3676 


16970 DUCYL2A 


LD 


(HL),76H 


;Keep the HALT in dest 


300 D 7 A 


16980 DUCYL2B 


LD 


A,D 


;P/u the cylinder # 


300E FE00 


16990 DSTDIR 


CP 





;Is this the dir cyl? 


3010 2808 


17000 


JR 


Z,DUCYL3 


;6o if it is 


3012 CD6828 


17010 


CALL 


WRSEC 


; Write non-dir sector 


3015 C29726 


17020 


JP 


NZ,EXIT3 


;Quit on write error 


3018 1808 


17030 


JR 


DUCYL4 




301A CD6D28 


17040 DUCYL3 


CALL 


WRSYS 


;Write dir sector 


301D 3E12 


17050 


LD 


A, 18 


;Init "Dir write error 


301F C29726 


17060 


JP 


NZ,EXIT3 


; and leave if error 


3022 24 


17070 DUCYL4 


INC 


H 


;Advance buffer and 


3023 IC 


17080 


INC 


E 


; sector # 


3024 7B 


17090 


LD 


A,E 




3025 FE00 


17100 DUCYL5 


CP 





;Reach end of cylinder? 


3027 20 B8 


17110 


JR 


NZ,DUCYL2 


;Go if not 


3029 3A822F 


17120 


LD 


A,(LDCYL5+1) 


;Count down one more 


302 C 3D 


17130 


DEC 


A 


; cylinder dumped 


302D 32822F 


17140 


LD 


(LDCYL5+1),A 




3030 14 


17150 DUCYL6 


INC 


D 


;Bump cylinder # 


3031 3A822F 


17160 


LD 


A,(LDCYL5+1) 


;Loop if still more 


3034 B7 


17170 


OR 


A 


; to dump 


3035 C2A62F 


17180 
17190 ; 


JP 


NZ,DUCYL1 






17200 ; 


Prepare 


' to verify 






17210 ; 








3038 3AA52F 


17220 


LD 


A,(DUCYL+1) 


;P/u cyl # to start 


303B 57 


17230 

17240 VECYLl 


LD 


D,A 




303C 


17250 


(aeCKBRKC 


;Check if Break hit 


303C 3E6A 


00163 


LD 


A, 106 




303 E EF 


00164 


RST 


40 




303F C2AC26 


17260 
17270 ; 


JP 


NZ, BREAK 


;Abort on break 


3042 262 B 


17280 


LD 


H,BUFl$<-8 


;Pt to source GAT 


3044 6A 


17290 


LD 


L.D 


; at the current cylinder 


3045 4E 


17300 


LD 


C,(HL) 


;6et free/used byte 


3046 7 A 


17310 


LD 


A,D 




3047 C660 


17320 


ADD 


A,60H 


;Pt to lockout byte for 


3049 6F 


17330 


LD 


L,A 


; the current cylinder 


304 A 7E 


17340 


LD 


A,(HL) 


;P/u the locked out info 


304B 2F 


17350 


CPL 




;Merge the non-locked and 


304C Al 


17360 


AND 


C 


; and the free/ used 


304D 262C 


17370 


LD 


H,BUF2$<-8 


;Pt to dest GAT 


304F 4E 


17380 


LD 


C,(HL) 


;P/u lockout for dest cyl 


3050 Bl 


17390 


OR 


C 


;Merge source info 


3051 6 A 


17400 


LD 


L.D 


;Pt to dest free/used 


3052 77 


17410 


LD 


(HL),A 


; and store new value 


3053 B9 


17420 


CP 


C 


;See if in use 


3054 CA8430 


17430 


JP 


Z,VECYL6 


;Skip verify if not 
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3057 1E00 


17440 




LD 


E,0 


;Init to sector 


3059 7A 


17450 




LD 


A,D 


;P/u cyl # for dsply 


305A 210132 


17460 




LD 


HL,CYL$ 


;"xx... 


305D CD9631 


17470 




CALL 


CVTDEC 


;Convert cyl # to ASCII 


3060 D5 


17480 




PUSH 


DE 




3061 


17490 




(a@DSPLY 


' VECYL$ 


;" verifying cyl .. » 




00165 




IFEQ 


01H,1 




3061 21EC31 


00166 
00167 




LD 
ENDIF 


HL,VECYL$ 




3064 3E0A 


00168 




LD 


A, 10 




3066 EF 


00169 




RST 


40 




3067 


17500 




mOSPU CYL$ 


;"xXoo, 




00170 




IFEQ 


0lHa 




3067 210132 


00171 
00172 




LD 
ENDIF 


HL,CYL$ 




306 A 3E0A 


00173 




LD 


Aa0 




306C EF 


00174 




RST 


40 




306 D Dl 


17510 




POP 


DE 


;Recover cyl/sector 


306E CD7728 


17520 


VECYL2 


CALL 


VERSEC 


;Verify a sector 


3071 2805 


17530 




JR 


Z,VECYL3 


;Go if no error 


3073 FE06 


17540 




CP 


6 


; Error 6 is OK 


3075 C29726 


17550 




JP 


NZ,EXIT3 




3078 IC 


17560 


VECYL3 


INC 


E 


;Inc sector # 


3079 7B 


17570 




LD 


A,E 




307A FE00 


17580 


VECYL4 


CP 





; Check end of cylinder 


307C 20F0 


17590 




JR 


NZ,VECYL2 


;Loop if not 


307 E 3E00 


17600 


VECYL5 


LD 


A,0 


;Count down another 


3080 3D 


17610 




DEC 


A 


; cyl just verified 


3081 327F30 


17620 




LD 


(VECYL5+1),A 




3084 14 


17630 


VECYL6 


INC 


D 


;Bump cyl # by 1 


3085 3A7F30 


17640 




LD 


A,(VECYL5+1) 


;Loop if more cylinders 


3088 B7 


17650 




OR 


A 


; to verify, else go 


3089 C23C30 


17660 




JP 


NZ.VECYLl 


; back to "loading" 


308C C3302F 


17670 
17580 




JP 


LDTKS 






17690 




All cyl 


inders backed up 


Is move ID info 




17700 










308F 0E0D 


17710 


MOV ID 


LD 


C,CR 


; Print a newline 


3091 


17720 




(BiaDSP 






3091 3E02 


00175 




LD 


A, 2 




3093 EF 


00176 




RST 


40 




3094 21CD2B 


17730 




LD 


HL,BUF1$+0CDH 


;Move in the pswd^names 


3097 11CD2C 


17740 




LD 


DE,BUF2$+0CDH 


; date, "AUTO" buffer. 


309A 013300 


17750 




LD 


BC,33H 


; & config byte 


309D EDB0 


17760 




LDIR 






309F 217826 


17770 




LD 


HL,DATFLD$ 


;Move in today's date 


30 A2 11D82C 


17780 




LD 


DE,BUF2$+0D8H 




30A5 0E08 


17790 




LD 


C,8 




30A7 EDB0 


17800 
17810 




LDIR 








17820 




Get des 


ti nation disk & 


write new GAT 




17830 










30A9 CD8727 


17840 




CALL 


PMTDST 


;Set up to use dest disk 


30 AC 3A0F30 


17850 




LD 


A,(DSTDIR+1) 


;Get dir cyl 


30AF 57 


17860 




LD 


D,A 


;Set to track Dir, 


30 B0 1E00 


17870 




LD 


E.0 


; sector 


30 B2 21002 C 


17880 




LD 


HL,BUF2$ 


; Write the GAT back 


30B5 CD6D28 


17890 




CALL 


WRSYS 




30B8 3E15 


17900 




LD 


A, 21 


;Init "GAT write error 
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30BA C29726 


17910 


JP 


NZ,EXIT3 


; and go if bad 


30BD 21002D 


17920 


LD 


HL,BUF3$ 




30C0 CD7728 


17930 


CALL 


VERSEC 


; else verify gat 


30C3 FE06 


17940 


CP 


6 


; Expect error 6 


30C5 3E14 


17950 


LD 


A, 20 


;Init "GAT read error now 


30C7 C29726 


17960 


JP 


NZ,EXIT3 


; and quit if bad verify 


30CA 3A0F30 


17970 


LD 


A,(DSTDIR+1) 


;P/u cyl to use for dir 


30CD 57 


17980 


LD 


D,A 


;Set track = Dir 


30CE 1E02 


17990 
18000 ; 


LD 


E,2 


;Skip GAT and HIT 




18010 ; 


Reset 


all mod flags on 


destination 




18020 ; 








30 D0 2A1625 


18030 RESMF 


LD 


HL, (BUFFERS) 


;Use this for sector buffer 


30D3 CD7228 


18040 


CALL 


RDSEC 


;Read in dir record 


30 D6 FE06 


18050 


CP 


6 


; Expect error 6 


30D8 C29226 


18060 


JP 


NZ.DIRERR 


;Abort on any other 


30DB 2C 


18070 


INC 


L 


;DIR+1 holds mod flag 


30DC CBB6 


18080 RESMF 1 


RES 


6,(HL) 


;Reset the flag 


30DE 7D 


18090 


LD 


A,L 




301F C520 


18100 


ADD 


A,20H 


; Index to next direc 


30E1 5F 


18110 


LD 


L,A 




30E2 30F8 


18120 


JR 


NC.RESMFl 


; and loop thru all 8 


30E4 2E00 


18130 


LD 


LJ 




30E6 CD6D28 


18140 


CALL 


WRSYS 


;Write record back out 


30E9 3E12 


18150 


LD 


AJB 


;Init "DIR write error 


30EB C29726 


18160 


JP 


NZ,EXIT3 




30EE IC 


18170 


INC 


E 


;Inc dir sector # 


30EF 7B 


18180 


LD 


A,E 




30F0 FE00 


18190 RESMF 2 


CP 


$-$ 


jCompare highest sect this 


30F2 20DC 


18200 
18210 ; 


JR 


NZ, RESMF 


;Loop until complete 




18220 


IF 


(aM0D2 






18230 


LD 


A,(STRDIR$+i) 


;Get old dir cyl 




18240 


LD 


B,A 


;Pass for jump 




18250 


LD 


A,(BACKUP0) 


;Get system backup flag 




18260 


OR 


A 


; System disk? 




18270 


JR 


NZ^CNTBAKl 


;YeSs check if dir change 




18280 


ENDIF 








18290 ; 










18300 ; 


Clear 


the HALT inst from dest 




18310 ; 








30F4 21002D 


18320 


LD 


HL,BUF3$ 




30F7 55 


18330 


LD 


D,L 


;Now read the BOOT 


30F8 5D 


18340 


LD 


EsL 


; on the dest disk 


30F9 CD7228 


18350 


CALL 


RDSEC 




30FC C29726 


18360 


JP 


NZ,EXIT3 


;Quit if couldn't be read 


30FF 3600 


18370 


LD 


(HL),0 


;Clear the HALT 


3101 23 


18380 


INC 


HL 




3102 23 


18390 


INC 


HL 


;Pt to old DIR cyl 


3103 0600 


18400 STRDIR$ LD 


B,$-$ 


;P/u the old DIR cyl 


3105 3A0F30 


18410 


LD 


A,(DSTDIR+1) 


; Update the dir cyl 


3108 77 


18420 


LD 


(HL),A 


; in case it changed 


3109 2B 


18430 


DEC 


HL 


;Pt back to buffer start 


310A 2B 


18440 


DEC 


HL 




310B CD6828 


18450 


CALL 


WRSEC 


; Write back the BOOT 


310E CC7728 


18460 


CALL 


Z, VERSEC 


; and then verify it 


3111 C29726 


18470 


JP 


NZ,EXIT3 


;Go if write error 


3114 IC 


18480 


INC 


E 


; Point to sector 1 


3115 CD7228 


18490 


CALL 


RDSEC 


;Read it 
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3118 C29726 


18500 


JP 


NZ,EXIT3 




31 IB 3AiaF30 


18510 


LD 


A,(DSTDIR+1) 


;Do the same thing again 


311E 23 


18520 


INC 


HL 




311F 23 


18530 


INC 


HL 




3120 77 


18540 


LD 


(HL).A 


; Store new dir cyl 


3121 2B 


18550 


DEC 


HL 




3122 2B 


18560 


DEC 


HL 




3123 CD6828 


18570 


CALL 


WRSEC 


; Write it back 


3126 CC7728 


18580 


CALL 


Z,VERSEC 


;Verify it if written OK 


3129 C29726 


18590 
18600 ; 


JP 


NZ,EXIT3 


;Quit if we couldn't 


312C 262C 


18610 CNTBAKl 


LD 


H,BUF2$<-8 


;Destination GAT 


312E 78 


18620 


LD 


A,B 


;P/u old DIR cyl 


312F C660 


18630 


ADD 


A,60H 


;Point to lockout table 


3131 6F 


18640 


LD 


L,A 




3132 4E 


18650 


LD 


C,(HL) 


;Check lockout byte 


3133 68 


18660 


LD 


L,B 


;Pt to GAT byte 


3134 7E 


18670 


LD 


A,(HL) 


;Get GAT byte 


3135 Bl 


18680 


OR 


C 




3136 B9 


18690 


CP 


C 


jAnything allocated? 


3137 201E 


18700 


JR 


NZ,RESMF2B 


; Bypass if yes 


3139 78 


18710 


LD 


A,B 


;Save cylinder 


313A 21002D 


18720 


LD 


HL,BUF3$ 


; Write E5's to cylinder 


313D 11012D 


18730 


LD 


DE,BUF3$+1 


; to remove system DAM 


3140 01FF00 


18740 


LD 


BC,255 




3143 36E5 


18750 


LD 


(HL),0E5H 




3145 EDB0 


18760 


LDIR 






3147 69 


18770 


LD 


L,C 


;Pt back to buf3$ 


3148 57 


18780 


LD 


D,A 


;Set cylinder # in D 


3149 59 


18790 


LD 


E,C 


;Start with sector 


314A 3A7E2F 


18800 


LD 


A,(LDCYL4+1) 


;Get # of sectors 


314D 47 


18810 


LD 


B,A 


;Set loop counter 


314E CD6828 


18820 RESMF2A CALL 


WRSEC 


;Write normal sector 


3151 C29726 


18830 


JP 


NZ,EXIT3 




3154 IC 


18840 


INC 


E 


;Step to next sector 


3155 10F7 


18850 


DJNZ 


RESMF2A 




3157 CD5E28 


18860 RESMF2B CALL 


RESTOR 


;Restore to track 




18870 ; 










18880 ; 


Attempt 


to clear MOD fl 


ags of source 




18890 ; 








315A CD1A27 


18900 


CALL 


PMTSRC 


;Set up for source disk 


315D FD5609 


18910 
18920 ; 


LD 


D,(IY+9) 


;Get track = Dir 


3160 1E02 


18930 


LD 


E,2 


;Skip GAT and HIT 


3162 2A1626 


18940 RESMF3 


LD 


HL, (BUFFERS) 


;Use this as sector buffer 


3165 CD7228 


18950 


CALL 


RDSEC 


;Read source dir sector 


3168 FE06 


18960 


CP 


6 


;Expect error 6 


316A C29226 


18970 


JP 


NZ,DIRERR 




316D 2C 


18980 


INC 


L 


;Pt to DIR + 1 


316E CBB6 


18990 RESMF4 


RES 


6,(HL) 


;Turn off mod flag 


3170 7D 


19000 


LD 


A,L 




3171 C620 


19010 


ADD 


A,20H 


; Index to next direc 


3173 6F 


19020 


LD 


L,A 




3174 30F8 


19030 


JR 


NC,RESMF4 


;Loop 8 times/sector 


3176 2E00 


19040 


LD 


L,0 




3178 CD6D28 


19050 


CALL 


WRSYS 


;Write back dir sector 


3178 2810 


19060 


JR 


Z,RESMF5 


;Loop on no error 


317D FE0F 


19070 


CP 


15 


;Write protected source? 


317F 3E12 


19080 


LD 


Aa8 


;Init "DIR write error" 
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3181 C29726 


19090 


JP 


NZ,EXIT3 


;Exit if not WP error 


3184 


19100 


(agLOGOT 


CCMOD$ 


;"Can't clear mod flags 




00177 


IFEQ 


01H,1 




3184 21C629 


00178 
00179 


LD 
ENDIF 


HL,CCMOD$ 




3187 3E0C 


00180 


LD 


A, 12 




3189 EF 


00181 


RST 


40 






19110 


IF 


@M0D4 




318A C38526 


19120 
19130 


JP 
ENDIF 


EXITl 


; Backup is complete 




19140 


IF 


@M0D2 






19150 


JR 


CKWRTK0 


;Check if write cyl 




19160 


ENDIF 






318D IC 


19170 RESMF5 


INC 


E 


;Bump sector # 


318E 7B 


19180 


LD 


A,E 




318F FE00 


19190 RESMF6 


CP 


$-$ 


;Compare highest sect th 


3191 20CF 


19200 


JR 


NZ,RESMF3 


;Do another sector if no 




19210 


IF 


@M0D4 




3193 C38526 


19220 
19230 


JP 
ENDIF 


EXITl 


; Backup is complete 




19240 


IF 


@M0D2 






19250 CKWRTK0 LD 


A,(BACKUP0) 


;Get flag 




19260 


OR 


A- 


; Anything? 




19270 


JP 


Z, EXITl 


;Nope, go! 




19280 


CALL 


PMTSRC 


; Prompt for source 




19290 


CALL 


READ0 


;Read cyl 




19300 


JP 


NZ,EXIT3 


;Go on error 




19310 


CALL 


PMTDST 


; Prompt for dest drive 




19320 


CALL 


FORMAT0 


; Format cylinder 




19330 


JP 


NZ,EXIT3 


;Go on disk error 




19340 ; 










19350 ; 


Pass original step rate 


to new disk 




19360 ; 










19370 


LD 


HL, (BUFFERS) 


;Get I/O buffer 




19380 


INC 


HL 


;Bump to step rate 




19390 


INC 


HL 






19400 


INC 


HL 


;+3 




19410 


LD 


A,(BSMIR+1) 


;Get step 




19420 


LD 


(HL),A 


;Pass to buffer 




19430 


LD 


BC,80H 


;Offset to sector 1 




19440 


ADD 


HL,BC 


; Point to it 




19450 


LD 


(HL).A 


;Pass to buffer 




19460 


CALL 


PMTDST 


;Re-fetch DCT 




19470 


CALL 


WRITE0 


; Write cylinder 




19480 


JP 


NZ,EXIT3 


;Go on disk error 




19490 


CALL 


PMTDST 


; Fetch DCT 




19500 


LD 


A,(DSTDIR+1) 


;Get new dir cyl 




19510 


LD 


(IY+9),A 


; Update DCT 




19520 


CALL 


UPGAT0 


; Update GAT table 




19530 


JP 


NZ,EXIT3 


;Go on disk error 




19540 


JP 


EXITl 


; else program completed 




19550 


ENDIF 








19560 ; 










19570 ; 


Routine 


to convert cyli 


nder # & message stuff 




19580 ; 








3196 3620 


19590 CVTDEC 


LD 


(HL),' ' 


;Init to leading blank 


3198 0664 


19600 


LD 


8,100 




319A CDA831 


19610 


CALL 


CVDl 




319D 3620 


19620 


LD 


(HL),' ' 


;Init to blank 
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319F 
31A1 
31 A4 
31 A6 
31 A8 
31AA 
31 AB 
31 AD 
31 AE 
3lBi9 
31B1 
31 B2 
31B3 
31 B4 
31 B6 
31 B8 
31 B9 
31 BA 
31 BB 



31 BC 
31 BF 
31C2 



31D7 
31 EC 

3201 
3205 

3216 
3233 



3255 



3272 



060A 

CDA831 

3630 

0601 

0E00 

90 

3803 

0C 

18FA 

80 

F5 

79 

B7 

2803 

C630 

77 

Fl 

23 

C9 



210532 

C3AF26 

ID 

52 65 61 

3C 20 63 

65 72 20 

ID 

57 72 69 
3E 20 63 
65 72 20 
ID 

56 65 72 

67 20 63 

65 72 20 

30 

30 30 03 

0A 

42 61 63 

62 6F 72 

64 

65 73 74 

6F 6E 20 

69 72 72 

61 67 65 

44 

65 73 74 
6F 6E 20 
49 44 20 

66 66 65 
20 

4E 

61 6D 65 

58 58 58 
74 65 3D 
2F 79 79 
20 

20 45 6E 



19630 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780 

19790 

19800 

19810 

19820 

19830 

19840 

19850 

19860 

19870 

64 69 

79 6C 

03 

19880 

74 69 

79 6C 

03 

19890 

69 66 

79 6C 

03 

19900 

19910 
6B 75 
74 65 
19920 
69 6E 
6E 6F 
6F 72 
0D 

19930 
69 6E 
64 69 
69 73 
72 65 



CVDl 
CVD2 



CVD3 



CVD7 



LD 

CALL 

LD 

LD 

LD 

SUB 

JR 

INC 

JR 

ADD 

PUSH 

LD 

OR 

JR 

ADD 

LD 

POP 

INC 

RET 



B,10 

CVDl 

(HL).'0' 

B,l 

C,0 

B 

C,CVD3 

C 

CVD2 

A,B 

AF 

A,C 

A 

Z,CVD7 

A,30H 

(HL),A 

AF 

HL 



;Init to leading 

;Init digit counter 

;Sub 10 's power until carry 

; and bump count 

;Add back last sub 

;Check the count 

; Ignore if 

; else change to ASCII digit 



Message area 



NOTMIR LD 
JP 
LDCYL$ DB 
6E 67 20 
69 6E 64 

DUCYL$ DB 
6E 67 20 
69 6E 64 

VECYL$ DB 
79 69 6E 
69 6E 64 



CYL$ 



DB 



NOTMIR$ DB 
70 20 61 
64 2C 20 

DB 
61 74 69 
74 20 6D 
2D 69 6D 

DIFID$ DB 
61 74 69 
73 6B 20 
20 64 69 
6E 74 3A 



19940 PACKID$ DB 

3D 58 58 58 58 

58 20 20 44 61 

6D 6D 2F 64 64 

0D 

19950 OLDMPW$ DB 

74 65 72 20 69 



HL,NOTMIR$ 

EXIT4 

29, 'Reading < cylinder ',3 



29, 'Writing > cylinder ',3 

29, 'Verifying cylinder ',3 

'000', 3 

LF, 'Backup aborted, ' 

'destination not mirror-image' ,CR 
'Destination disk ID is different: ' 



Name=XXXXXXXX Date=rrin/dd/yy' ,CR 



Enter its Master Password' 
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74 73 20 4D 61 73 74 65 
72 20 50 61 73 73 77 6F 
72 64 

328 D 20 19960 DB 

6F 72 20 3C 42 52 45 41 

4B 3E 20 74 6F 20 61 62 

6F 72 74 3A 20 03 

32A4 41 19970 PMTYN$ DB 

72 65 20 79 6F 75 20 73 

75 72 65 20 79 6F 75 20 
77 61 6E 74 20 74 6F 20 
62 61 63 6B 75 70 20 74 
6F 20 69 74 20 

32 CA 3C 19980 DB 

59 2C 4E 3E 20 3F 20 03 
19990 ; 

32D3 00 20000 ' DC 



BACKUP - LS-DOS 6,2 
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or <BREAK> to abort: ',3 



'Are you sure you want to backup to it 



'<Y,N> ? ',3 
64,0 



; PATCH space 



0600 



2Ei80 

3800 
2E00 

2E00 



00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 

20010 ; 

20020 MIRSIZ EQU $<-8+l<8-BACKUP 

20030 ; 

20040 ; 

20050 ; Adjust PC & load address for CLASS 

20060 ; 

20070 ORG BACKUP 

20080 ; 

20090 CLSBU EQU CORE$+MIRSIZ 

20100 L0R6 CLSBU 

20110 ; 

20120 SUBTTL '<Backup By Class>' 
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20140 ; 










2E00 


20150 *GET 


BACKUPS 


::3 






20160 ;BACKUP3/ASM 


- 


Backup By Class 






20170 ; 












20180 ; 


Find 


hi 


ghest available 


memory page 




20190 ; 










2E00 210000 


20200 


LD 




HL,0 


;Set up to get HIGH$ 


2E03 45 


20210 


LD 




B,L 




2E04 


20220 


@@HIGH$ 






2E04 3E64 


00182 


LD 




A, 100 




2E06 EF 


00183 


RST 




40 




2E07 23 


20230 


INC 




HL 


;Find highest available 


2E08 25 


20240 


DEC 




H 


; memory page 


2E09 7C 


20250 


LD 




A,H 




2E0A 32CE32 


20260 


LD 




(DOFIL06+1),A 


;Save for later testing 


2E0D 32E332 


20270 


LD 




(DOFIL08+1),A 




2E10 32DA33 


20280 


LD 




(LSTBUF1+1),A 




2E13 3EC9 


20290 


LD 




A,0C9H 




2E15 32B027 


20300 


LD 




(PMTDST1),A 


; Ignore dest disk test 


2E18 CD8727 


20310 
20320 ; 


CALL 




PMTDST 


; Prompt dest drive 




20330 ; 


Calcu 


late mamximum free 


space per dest disk type 




20340 ; 










2E1B FD7E07 


20350 


LD 




A,(IY+7) 


;P/u # heads & sect/trk 


2E1E 47 


20360 


LD 




B,A 


;Save heads 


2E1F E61F 


20370 


AND 




IFH 


;Mask all but sectors 


2E21 4F 


20380 


LD 




C,A 




2E22 0C 


20390 


INC 




C 


;Adj for zero offset 


2E23 A8 


20400 


XOR 




B 


;Get # of heads 


2E24 07 


20410 


RLCA 








2E25 07 


20420 


RLCA 






; in bits 0-2 


2E26 07 


20430 


RLCA 








2E27 3C 


20440 


INC 




A 


;Adj to offset 


2E28 47 


20450 


LD 




B,A 


;Init loop counter 


2E29 AF 


20460 


XOR 




A 


;Init sector count to 


2E2A 81 


20470 


ADD 




A,C 


jMultiply # sectors/track 


2E2B 10FD 


20480 


DJNZ 




$-1 


; X # of heads/cyl 


2E2D 6F 


20490 


LD 




L,A 




2E2E 2600 


20500 


LD 




H,0 


;Xfer to 16-bit reg 


2E30 FDCB046E 20510 


BIT 




5,(IY+4) 


;If 2-sided diskette 


2E34 2801 


20520 


JR 




Z,$+3 




2E36 29 


20530 


ADD 




HL,HL 


; double the # of sectors 


2E37 FD4E06 


20540 


LD 




C,(IY+6) 


;P/u # cyls & adjust for 


2E3A 0D 


20550 


DEC 




C 


; BOOT & DIR 


2E3B 


20560 


@(aMULl6 




;Calc total records 


2E3B 3E5B 


00184 


LD 




A, 91 




2E3D EF 


00185 


RST 




40 




2E3E 65 


20570 


LD 




H.L 


;Results to HL 


2E3F 6F 


20580 


LD 




L,A 




2E40 225932 


20590 
20600 ; 


LD 




(SIZSAV+1),HL 


;Save for later 




20610 ; 


Read 


the BOOT sector of 


dest disk 




20620 ; 










2E43 110100 


20630 


LD 




DE,1 


;Track 0, sector 1 


2E46 21002C 


20640 


LD 




HL,BUF2$ 


;Disk buffer area 


2E49 CD7228 


20650 


CALL 




RDSEC 


;Read the sector 


2E4C C29726 


20660 


JP 




NZ,EXIT3 


;Quit on read error 


2E4F 3A0026 


20670 


LD 




A.(BOOTST$) 


;Locn of boot step rate 


2E52 6F 


20680 


LD 




L.A 




2E53 7E 


20690 


LD 




A.(HL) 


;Get the step rate in 
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Backup By Class 



2E54 E603 
2E56 321932 
2E59 3A022C 
2E5C FD7709 



2E5F CD8928 



2E62 3A6042 
2E65 B7 
2E66 CA1A2F 



2E69 210036 
2E6C 1E02 



2E6E CD7228 
2E71 C29726 
2E74 3AC036 
2E77 3C 
2E78 FD5609 
2E7B CACC2E 



2E7E 5D 
2E7F CD7228 
2E82 FE06 



20700 
20710 
20720 
20730 
20740 
20750 
20760 
20770 
20780 
20790 
20800 
20810 
20820 
20830 
20840 
20850 
20860 
20870 
20880 
20890 
20900 
20910 
20920 
20930 
20940 
20950 
20960 
20970 
20980 
20990 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 



AND 3 

LD (BSCLS+1),A 

LD A,(BUF2$+2) 

LD (IY+9),A 



; bits and 1 
;Save for later 
;P/u dir cyl 
; Stuff into OCT 



Check id type byte 

CALL CKSWDD 

If a system backup, then check the GAT & HIT 



SETSYS2 



LD 


A,(PRMTBL$+SYSRSP) 


OR 


A 


;P/u SYS parm response 


JP 


Z,CLSBU5 


; and skip next if not SYS 


If aire 


iady a SYSTEM disi 


<, don't check BOOT space 


IF 


@M0D2 




CALL 


PMTDST 


;6et dest data 


LD 


A, (IY+3) 


;Get DCT data 


AND 


28 H 


;Bit 5/3 


CP 


20H 


;8" floppy? 


JR 


NZ,SETSYS2 


;Go if not 


LD 


A,(IY+4) 


;Get data 


AND 


50H 


;Bit 6/4 


CP 


40H 


;DD not alien? 


LD 


D,0 


;Cyl if not 


JR 


NZ,$+3 


;Go if system 


INC 


D 


; Sysinfo on cyl 1 


ENDIF 






LD 


HL^HITBUF 


;Set disk buffer 


LD 


E,2 


; and sector 2 


Mod II 


save sysinfo sec 


tor for later check 


IF 


@M0D2 




LD 


(CKPR0T2),DE 


;Save cyl/sect 


ENDIF 






IF 


(aM0D4 




CALL 


RDSEC 


;Read the sysinfo sector 


JP 


NZ,EXIT3 


;QUit on read error 


LD 


A,(HITBUF+0C0H) 


;P/u & test the SYSTEM 


INC 


A 


; disk byte. If already 


LD 


D,(IY+9) 




JP 


Z,CLSBU01 


; a system disk, bypass 


ENDIF 






IF 


@M0D2 




LD 


D,(IY+9) 


;P/u dir cyl 


ENDIF 






LD 


E,L 


;Set sector 0, dir trk 


CALL 


RDSEC 


;Read the GAT 


CP 


6 


; Expect error 6 
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Backup By Class 



2E84 3E14 
2E86 C29726 



2E89 0600 
2E8B FDCB035E 
2E8F 2011 



2E91 0602 



2E93 FDCB036E 
2E97 2002 
2E99 0606 
2E9B 7E 
2E9C A0 
2E9D 2048 
2E9F 7E 
2EA0 BI9 
2EA1 77 



21290 

21300 

21310 ; 

21320 

21330 

21340 

21350 

21360 

21370 ; 

21380 ; 

21390 

21400 

21410 

21420 

21430 

21440 

21450 ; 

21460 ; 

21470 ; 

21480 

21490 

21500 

21510 

21520 

21530 ; 

21540 ; 

21550 ; 

21560 

21570 

21580 

21590 

21600 

21610 

21620 ; 

21630 ; 

21640 ; 

21650 

21660 

21670 

21680 

21690 ; 

21700 ; 

21710 ; 

21720 ; 

21730 

21740 

21750 

21760 ; 

21770 

21780 

21790 

21800 

21810 

21820 

21830 

21840 

21850 

21860 ; 

21870 ; 



LD 


A, 20 


JP 


NZ,EXIT3 


IF 


(3M0D4 


LD 


B,0 


BIT 


3,(IY+3) 


JR 


NZ,SETSYS 


ENDIF 





;Init "GAT read error 
;Quit on any other error 



;Need no more 

; if rigid drive 

;NZ = rigid 



Check GAT byte on Mod2/12 

IF (3M0D2 

LD LJCDH 

BIT 7,(HL) 

LD L,0 

JP Z,CLSBU01 ;Go if system disk 

ENDIF 

If ALIEN or NOT 8" space is OK 

IF (3M0D2 

LD A,(CKPR0T2+1) 

OR A 

JR Z.SETSYS ;Go if not 

ENDIF 

Mod II must have track fully available 



IF 
LD 
OR 
CP 
JP 
ENDIF 



@M0D2 

A,(HITBUF+60H) ;Track lockout data 

1 ;Boot/sys allocation 

(HL) ; Anything here? 

NZjNOTSYS ;Yes5 cannot use! 



Mod II must have 16 sectors available on cyl 1 



IF (3M0D2 

INC HL 

LD B,3 
ENDIF 



; Point to cyl 1 
;2 grans SD or DD 



Check to be sure additional grans needed for boot 
are not already allocated 



If 8" SDEN or DDEN, then 



IF 


@M0D4 


LD 


B,2 


ENDIF 




BIT 


5,(IY+3) 


JR 


NZj+4 


LD 


B,6 


LD 


A,(HL) 


AND 


B 


JR 


NZ,NOTSYS 


LD 


A,(HL) 


OR 


B 


LD 


(HL),A 



; need gran 1 

;5" needs grans 1 & 2 
;P/u GAT byte for BOOT 
; & ck for needed space 
;Go if no free space 
;Reserve the GAT space 



Mod II must make force locked/used cyl 
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Backup By Class 



2EA2 2ECD 
2EA4 CBBE 
2EA6 CDBF33 



2EA9 1E02 
2EAB CD7228 
2EAE FE06 
2EB0 3E11 
2EB2 C29726 
2EB5 04 
2EB6 04 
2EB7 CB28 
2EB9 CB28 



2EBB 
2EBD 
2EBE 
2EC0 
2EC2 
2EC4 
2EC7 
2EC9 



2E17 

70 

2E14 

3610 

2E00 

CD6D28 

3E12 

C29726 



2ECC 3A1026 
2ECF B7 
2ED0 2048 



21880 
21890 
21900 
21910 
21920 
21930 
21940 
21950 
21960 
21970 
21980 
21990 
22000 
22010 
22020 
22030 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22170 
22180 
22190 
22200 
22210 
22220 
22230 
22240 
22250 
22260 
22270 
22280 
22290 
22300 
22310 
22320 
22330 
22340 
22350 
22360 
22370 
22380 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 



IF 


@M0D2 


LD 


A,-l 


LD 


LJ 


LD 


(HL),A 


LD 


L,60H 


LD 


(HL),A 


ENDIF 





;Init 

;Reset to beginning 
; Allocate cyl 
;Locl<out table 
; Lockout cyl 



Mask the config byte "data/ system" disk bit 



SETSYS LD 
RES 
CALL 



LJCDH 
7,(HL) 
WRGAT 



; Point to config byte 
; & show system disk 



Adjust the allocation info for BOOT/SYS 



CLSBU0 LD 
CALL 
CP 
LD 
JP 
INC 
INC 
SRA 
SRA 

IF 
LD 
OR 
JR 
ENDIF 



RDSEC 
6 

NZ,EXIT3 



;Read the directory 
; sector containing 
; BOOT/SYS record 
;Init "dir read error 

;Code to 7 3 1 

;Code to 8 4 2 

;Code to 4 2 1 

;Code to 2 1 



@M0D2 

A,(CKPR0T2+1) 
A 
Z,CLSBU01 



Mod II must force BOOT/SYS to new cyl 1 



IF 
CLSBU00 LD 
LD 
ENDIF 

LD 

LD 

LD 

LD 

LD 

CALL 

LD 

JP 



@M0D2 
L,16H 
(HDJ 



Lj 17 H 

(HL),B 

L,14H 

(HL),16 

L,0 

WRSYS 

A, 18 

NZ,EXIT3 



; Cylinder start 
;Force cyl 1 



; Point to gran alloc 

;Reset alloc 

; Point to ERN 

; Update # BOOT records 

; Write dir sector back 
;Init "dir write error 
;Exit if so 



If OLD entered No SYS file check needed 



CLSBU01 



LD 
no 


A,(OLDPRM$) 

A 

NZ,CLSBU5 


;Check for OLD entered 


UK 

JR 


;Skip SYS setup if so 



Now check the HIT positions for /SYS files 
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2ED2 CD4F34 


22480 


CALL 


HITRD 


.Read in destination HIT 


2ED5 C29726 


22490 


JP 


NZ,EXIT3 




2ED8 119735 


22500 


LD 


DE,SYSDEC 


,Pt to SYS file hash codes 


2EDB EB 


22510 


EX 


DE , HL 


HIT to DE, hash tbl to HL 


2EDC 0610 


22520 


LD 


B,16 


.Check 16 DECs 


2EDE lA 


22530 CLSBUl 


LD 


A,(DE) 


.If dest spare, stuff 


2EDF B7 


22540 


OR 


A 


, with source else 


2EE0 2002 


22550 


JR 


NZ,CLSBU2 


. test for match 


2EE2 7E 


22560 


LD 


A,(HL) 




2EE3 12 


22570 


LD 


(DE),A 




2EE4 BE 


22580 CLSBU2 


CP 


(HL) 


.Dest match source? 


2EE5 2806 


22590 


JR 


Z,CLSBU3 


.Continue if so 


2EE7 213C35 


22600 NOTSYS 


LD 


HL, NOTSYS $ 


InifCan't make sys disk. 


2EEA C3AF26 


22610 


JP 


EXIT4 


.Display and quit 


2EED IC 


22620 CLSBU3 


INC 


E 


;Bump to next DEC 


2EEE 23 


22630 


INC 


HL 


; & our table 


2EEF 3E08 


22640 


LD 


A, 8 


.At midpoint? 


2EF1 BB 


22650 


CP 


E 




2EF2 2002 


22660 


JR 


NZ,CLSBU4 


;Skip if not 


2EF4 1E20 


22670 


LD 


E,20H 


.Adjust DEC row # 


2EF6 10E6 


22680 CLSBU4 


DJNZ 


CLSBUl 




2EF8 FD5609 


22690 


LD 


D,(IY+9) 


;0k to backup SYSTEM 


2EFB 1E01 


22700 


LD 


E,l 


;Init to HIT sector 


2EFD 210036 


22710 


LD 


HL,HITBUF 




2F00 CD6D28 


22720 


CALL 


WRSYS 


;Write back dest HIT 


2F03 3E17 


22730 


LD 


A, 23 


;Init "HIT write error 


2F05 CC4F34 


22740 


CALL 


Z, HITRD 


;Verify if write OK 


2F08 C29726 


22750 
22760 ; 


JP 


NZ,EXIT3 


;Quit on any error 




22770 ; 


Set up 


byte 'C0' in SYSINFO sector 




22780 ; 










22790 


IF 


@M0D2 






22800 


LD 


DE,(CKPR0T2) 


;Get sysinfo sector 




22810 


LD 


E,2 


;Force sector 2 




22820 


ENDIF 








22830 ; 










22840 


IF 


(9M0D4 




2F0B 110200 


22850 
22860 
22870 ; 


LD 
ENDIF 


DEJ2 


;P/u Mod4 SYSINFO sect 




22880 ; 


HL => 


to HITBUF at this 


Doint 




22890 ; 








2F0E CD7228 


22900 


CALL 


RDSEC 


;Read the sector 


2F11 2EC0 


22910 


LD 


L,0C0H 


; Point to type flag 


2F13 36FF 


22920 


LD 


(HDJFFH 


;Set it 


2F15 2E00 


22930 


LD 


LJ 


;Reset buffer 


2F17 CD6828 


22940 
22950 ; 
22960 CLSBU5 


CALL 


WRSEC 


; Write it back 


2F1A CD1A27 


22970 


CALL 


PMTSRC 


;Set up for source disk 


2F1D CD4F34 


22980 


CALL 


HITRD 


;Read source HIT 


2F20 C29726 


22990 
23000 ; 


JP 


NZ,EXIT3 






23010 ; 


Start 


the backup of files 




23020 ; 








2F23 210036 


23030 


LD 


HL, HITBUF 


;Init to start of HIT 


2F26 1834 


23040 


JR 


SCNH3 


;Branch to start 


2F28 D2 


23050 OPENIT 


DB 


'R'!80H 


;R2 
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2F29 El 


23060 


SCNHIT 


POP 


HL 


jRenove top stack entry 


2F2A CI 


23070 


SCNHl 


POP 


BC 


;Recover DEC posn 


2F2B 2636 


23080 




LD 


H,HITBUF<-8 


;HIT buf hi -order 


2F2D 68 


23090 




LD 


L,B 


; and lo-order 


2F2E 7D 


23100 SCNH2 


LD 


A,L 


;Get the current DEC posn 


2F2F C620 


23110 




ADD 


A,20H 


^Advance to next file on 


2F31 6F 


23120 




LD 


L,A 


; this dir sector until 


2F32 3028 


23130 




JR 


NC,SCNH3 


; end, then go to next 


2F34 2C 


23140 




INC 


L 


; dir sector in the HIT 


2F35 CB6D 


23150 




BIT 


5,L 


;Did we go off the end? 


2F37 2823 


23160 




JR 


Z,SCNH3 


; (ie from IF to 20) 


2F39 3E00 


23170 




LD 


A,0 




2F3A 


23180 


SETBIT 


EQU 


$-1 




2F3B B7 


23190 




OR 


A 




2F3C 281B 


23200 




JR 


ZJOEXITl 


;If notj all done 


2F3E CD8727 


23210 




CALL 


PMTDST 


;Get dest DCT in lY 


2F41 210036 


23220 




LD 


HL^HITBUF 




2F44 FD5609 


23230 




LD 


D,(IY+9) 


;Get dir cyl 


2F47 5D 


23240 




LD 


E,L 


; Point to GAT sector 


2F48 CD7228 


23250 




CALL 


RDSEC 


; & read it 


2F4B FEI96 


23260 




CP 


6 




2F4D 3E14 


23270 




LD 


A, 20 


;Init "GAT read error 


2F4F C29726 


23280 




JP 


NZ,EXIT3 




2F52 2ECD 


23290 




LD 


LJCDH 


; Point to config byte 


2F54 CBE6 


23300 




SET 


4,(HL) 




2F56 CDBF33 


23310 




CALL 


WR6AT 




2F59 C38526 


23320 
23330 


TOEXITl 


JP 


EXITl 






23340 




Continue to scan the 


major loop 




23350 










2F5C 7E 


23360 


SCNH3 


LD 


A,(HL) 


;Is HIT entry spare? 


2F5D B7 


23370 




OR 


A 




2F5E 28CE 


23380 




JR 


Z.SCNH2 


;Loop back if so 


2F60 7D 


23390 




LD 


A,L 




2F61 E6FE 


23400 




AND 


0FEH 


; Bypass if BOOT or DIR 


2F63 28C9 


23410 




JR 


Z,SCNH2 




2F65 45 


23420 




LD 


B,L 


;Save DEC 


2F66 C5 


23430 




PUSH 


BC 




2F67 CD1A27 


23440 




CALL 


PMTSRC 


;Set up for source disk 


2F6A FD5609 


23450 




LD 


D,(IY+9) 


;P/u DIR cyl 


2F6D 78 


23460 




LD 


A,B 


;Pt to dir sector of 


2F6E E61F 


23470 




AND 


IFH 


; this file 


2F70 C602 


23480 




ADD 


A,2 


;Adj for GAT & HIT 


2F72 5F 


23490 




LD 


E,A 




2F73 21002C 


23500 




LD 


HL,BUF2$ 


;Read dir sector 


2F76 CD7228 


23510 




CALL 


RDSEC 




2F79 FE06 


23520 




CP 


6 


; Proper er.rcod? 


2F7B C29226 


23530 




JP 


NZ,DIRERR 




2F7E 78 


23540 




LD 


A,B 


;Pt to dir record for 


2F7F E6E0 


23550 




AND 


0E0H 


; the source file 


2F81 6F 


23560 




LD 


L,A 




2F82 262C 


23570 




LD 


H,BUF2$<-8 


;Pt to hi -order dir buf 


2F84 7E 


23580 




LD 


A,(HL) 


; Ignore file if not 


2F85 326D31 


23590 




LD 


(ATTRIB+1),A 


; assigned in directory 


2F88 CB67 


23600 




BIT 


4, A 




2F8A 2831 


23610 




JR 


Z,NODOIT 




2F8C CB7F 


23620 




BIT 


7.A 


; Ignore file if FXDE 


2F8E C22A2F 


23630 




JP 


NZ, SCNHl 




2F91 2C 


23640 




INC 


L 


;Bump to DIR+1 
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2F92 3A1226 


23650 


LD 


A,(MODPRM$) 


; Bypass if Mod parm 


2F95 B7 


23660 


OR 


A 


; not entered 


2F96 2804 


23670 


JR 


Z,SCNH4 




2F98 CB76 


23680 


BIT 


6,(HL) 


;If Mod parm and bit not set 


2F9A 2821 


23690 
23700 ; 


JR 


Z, NODOIT 


; skip the file 


2F9C CB66 


23710 SCNH4 


BIT 


4.(HL) 


;Check date not current 


2F9E 2809 


23720 


JR 


Z,SCNH4A 




2FA0 3AA128 


23730 


LD 


A,(SVCTR) 




2FA3 B7 


23740 


OR 


A 


;Was date set? 


2FA4 2817 


23750 


JR 


Z, NODOIT 


; Bypass if not 


2FA6 3C 


23760 


INC 


A 


;Is date current? 


2FA7 2814 


23770 
23780 ; 


JR 


Z, NODOIT 


;Bypass if not 


2FA9 2D 


23790 SCNH4A 


DEC 


L 


;DIR + 


2FAA 3A8426 


23800 


LD 


A,(CLSFLG$) 


;P/u CLASS parm byte 


2FAD CB76 


23810 


BIT 


6,(HL) 


; Bypass if not SYS file 


2FAF 2806 


23820 


JR 


Z, CKINV 




2FB1 CB77 


23830 


BIT 


6,A 


;0k, it is, was SYS used? 


2FB3 2808 


23840 


JR 


Z, NODOIT 


;Go if no SYS parm 


2FB5 1809 


23850 


JR 


CKNAM 


; else back it up 


2FB7 CB5E 


23860 CKINV 


BIT 


3,(HL) 


;Test if file is INV 


2FB9 2805 


23870 


JR 


Z, CKNAM 




2FBB CB5F 


23880 


BIT 


3, A 


;File is, want INV files? 


2FBD CA2A2F 


23890 NODOIT 


JP 


Z,SCNH1 


; Don't want invisibles 


2FC0 3A0226 


23900 CKNAM 


LD 


A,(SPCFLD$) 


;Now test filespec match 


2FC3 FE20 


23910 


CP 


1 1 


;If blank, don't bother 


2FC5 2007 


23920 


JR 


NZ,CKNAM0 


; to match, take it 


2FC7 3A0A26 


23930 


LD 


A,(SPCFLD$+8) 


;How about the extension? 


2FCA FE20 


23940 


CP 


1 1 




2FCC 282C 


23950 
23960 ; 


JR 


Z,SCNH6 


;Go if no ext either 




23970 ; 


Test 


for a filespec match 




23980 ; 








2FCE E5 


23990 CKNAM0 


PUSH 


HL 




2FCF 7D 


24000 


LD 


A,L 




2FD0 C605 


24010 


ADD 


A, 5 


;Pt to filename in dir 


2FD2 6F 


24020 


LD 


L,A 




2FD3 110226 


24030 


LD 


DE,SPCFLD$ 


;Pt to user filespec 


2FD6 060B 


24040 


LD 


B,ll 


;11 char max 


2FD8 lA 


24050 CKNAMl 


LD 


A.(DE) 


;P/u user entry 


2FD9 FE24 


24060 


CP 


'$' 


;Wild card character? 


2FDB 2808 


24070 


JR 


Z,CKNAM2 


;Always matches 


2FDD BE 


24080 


CP 


(HL) 


;Same as filespec? 


2FDE 2805 


24090 


JR 


Z.CKNAM2 


;Loop if so 


2FE0 FE20 


24100 


CP 


1 1 


; Ignore any further? 


2FE2 C2F22F 


24110 


JP 


NZ, TSTMFLG 


;If not blank, no match 


2FE5 23 


24120 CKNAM2 


INC 


HL 


;Match so far 


2FE6 13 


24130 


INC 


DE 




2FE7 10EF 


24140 
24150 ; 


DJNZ 


CKNAMl 






24160 ; 


Files 


.pec class matches. 


check if NOT used 




24170 ; 








2FE9 3A0D26 


24180 


LD 


A,(MFLG$) 


;Bypass if a match but 


2FEC B7 


24190 


OR 


A 


; - exclude given 


2FED C2292F 


24200 


JP 


NZ,SCNHIT 


;- was used, skip file 


2FF0 1807 


24210 
24220 ; 


JR 


SCNH5 




2FF2 3A0D26 


24230 TSTMFLG 


LD 


A,(MFLG$) 


; Ignore if NG match & 
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2FF5 B7 


24240 




OR 


A 


; no exclude given 


2FF6 CA292F 


24250 




JP 


Z,SCNHIT 




2FF9 El 


24260 


SCNH5 


POP 


HL 


;Rcvr ptr to DIR+0 


2FFA E5 


24270 
24280 


SCNH6 

s 


PUSH 


HL 






24290 


s 


Now ch( 


sck if date matches 




24300 


s 








2FFB 23 


24310 




INC 


HL 


;Pt to date field 


2FFC CDAE33 


24320 




CALL 


UNPACK 


;Alter date for cpr 


2FFF 3A0126 


24330 




LD 


A,(FTFLG$) 




3002 07 


24340 




RLCA 




;Tst From bit 


3003 3010 


24350 




JR 


NC,SCNH7 




3005 7A 


24360 




LD 


A,D 


; Ignore if date was 


3006 B3 


24370 




OR 


E 


; 00/00/00 for file 


3007 CA292F 


24380 




JP 


Z,SCNHIT 




300A 2A8026 


24390 




LD 


HL,(FMPAKD$) 


;P/u user entry 


300 D EB 


24400 




EX 


DE,HL 




300E CD8233 


24410 




CALL 


CPHLDE 


;HL-DE 


3011 EB 


24420 




EX 


DE,HL 




3012 DA292F 


24430 




JP 


CSCNHIT 


;Bypass if date range bad 


3015 3A0126 


24440 


SCNH7 


LD 


A,(FTFLG$) 




3018 0F 


24450 




RRCA 




;Test TO bit 


3019 300E 


24460 




JR 


NC, MATCHES 


;Go if no TOPARM else 


301 B 7 A 


24470 




LD 


A,D 


; ck if file is dated 


301C B3 


24480 




OR 


E 




301 D CA292F 


24490 




JP 


Z,SCNHIT 


; Bypass if date was 00 


3020 2A8226 


24500 




LD 


HL,(TOPAKD$) 


;P/u user's packed date 


3023 CD8233 


24510 




CALL 


CPHLDE 


;HL-DE 


3026 DA292F 


24520 




JP 


CSCNHIT 


; Bypass if out of range 


3029 El 


24530 MATCHES 


POP 


HL 




302A 7D 


24540 


DO NAM 


LD 


A,L 


;Pt to start of dir rec 


302B E6E0 


24550 




AND 


0E0H 




302D 6F 


24560 




LD 


L,A 


;Make sure it's on stack 


302E E5 


24570 




PUSH 


HL 




302F C605 


24580 




ADD 


A, 5 


;Pt to start of filename 


3031 6F 


24590 




LD 


L,A 




3032 111826 


24600 




LD 


DE,FCB1$ 


;Move filename into fcb 


3035 0608 


24610 




LD 


B,8 


;Init 8 chars for filenam 


3037 7E 


24620 


DO NAM 1 


LD 


A,(HL) 


;P/u a char from the dir 


3038 FE20 


24630 




CP 


1 1 


; Space = end of name 


303A 2805 


24640 




JR 


Z,D0NAM2 




303C 12 


24650 




LD 


(DE),A 


;Move char to FCB 


303 D 23 


24660 




INC 


HL 


;Bump both ptrs 


303E 13 


24670 




INC 


DE 




303F 10F6 


24680 




DJNZ 


DONAMl 


;Loop for more 


3041 7D 


24690 


D0NAM2 


LD 


A.L 


;Pt to fi le extension 


3042 80 


24700 




ADD 


A,B 


; by adding the 


3043 6F 


24710 




LD 


L,A 


; loop remainder 


3044 7E 


24720 




LD 


A,(HL) 




3045 FE20 


24730 




CP 


1 1 




3047 2810 


24740 




JR 


Z,D0NAM5 


; Bypass if none there 


3049 3E2F 


24750 




LD 


A,'/' 


; else set separator 


304B 12 


24760 




LD 


(DE),A 


; into the FCB 


304C 13 


24770 




INC 


DE 




304 D 0603 


24780 




LD 


B,3 


;Now move in ext 


304F 7E 


24790 


D0NAM4 


LD 


A.(HL) 


;P/u ext char 


3050 FE20 


24800 




CP 


1 1 


;End if no more 


3052 2805 


24810 




JR 


Z,D0NAM5 




3054 12 


24820 




LD 


(DE),A 


;Put in in the FCB 
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3055 23 


24830 


INC 


HL 


;Bump both ptrs 


3056 13 


24840 


INC 


DE 




3057 10F6 


24850 


DJNZ 


D0NAM4 


;Loop for more 


3059 3E03 


24860 D0NAM5 


LD 


A, 3 


; Terminate with ETX 


305 B 12 


24870 


LD 


(DE),A 




305 C D5 


24880 
24890 ; 


PUSH 


DE 


;Save pointer to spec end 




24900 ; 


Check for NEW or OLD 


option 




24910 ; 








305 D 3A1026 


24920 


LD 


A, (OLDPRM$) 


;P/u parm & merge 


3060 210E26 


24930 


LD 


HL,NEWPRM$ 


; with new 


3063 B6 


24940 


OR 


(HL) 


;If neither, bypass 


3064 284F 


24950 


JR 


Z, BYPASS 




3066 211826 


24960 


LD 


HL,FCB1$ 


;Save current spec 


3069 115826 


24970 


LD 


DE,FCB3$ 




306C 012000 


24980 


LD 


BC,32 




306F EDB0 


24990 


LDIR 






3071 Dl 


25000 


POP 


DE 


;Recover spec end 


3072 D5 


25010 


PUSH 


DE 


; needed to add drivespec 


3073 CD8833 


25020 


CALL 


MAKSPC 


;Make it a file spec 


3076 CD4634 


25030 


CALL 


GETDST 


; Bring in the dest disk 


3079 2A1626 


25040 


LD 


HL, (BUFFERS) 


jBuffer is irrelevant 


307C 113826 


25050 


LD 


DE,FCB2$ 


;Pt to dest spec 


307F FDE5 


25060 


PUSH 


lY 




3081 


25070 


(3(3FLAGS 




;IY => flag table base 


3081 3E65 


00186 


LD 


Aa01 




3083 EF 


00187 


RST 


40 




3084 FDCB12C6 


< 25080 


SET 


0,(IY+'S'-'A' 


) ; Inhibit file open bit 


3088 FDEl 


25090 


POP 


lY 




308A 


25100 


@@OPEN 




;Attempt to open 


308A 3E3B 


00188 


LD 


A, 59 




308C EF 


00189 


RST 


40 




308 D Dl 


25110 


POP 


DE 


;Keep stack proper 


308E 2812 


25120 


JR 


Z»CKOLD 


;If file exists, ck OLD 


3090 FE19 


25130 


CP 


25 


;File access denied? 


3092 280E 


25140 


JR 


Z, CKOLD 


; means it exists 


3094 FE18 


25150 


CP 


24 


;File not found? 


3096 C2292F 


25160 


JP 


NZ,SCNHIT 


; Ignore if not 


3099 3A0E26 


25170 


LD 


A,(NEWPRM$) 


;Check if NEW requested 


309C B7 


25180 


OR 


A 




309 D 200 A 


25190 


JR 


NZ, GODOIT 


;Go if NEW & not found 


309F C3292F 


25200 


JP 


SCNHIT 




30A2 3A1026 


25210 CKOLD 


LD 


A,(OLDPRM$) 


;Was found, backup old 


30A5 B7 


25220 


OR 


A 


; files this time? 


30A6 CA292F 


25230 


JP 


Z,SCNHJT 


; Ignore if not OLD 


30A9 D5 


25240 GODOIT 


PUSH 


DE 




30AA 215826 


25250 


LD 


HL,FCB3$ 


;Recover the original 


30AD 111826 


25260 


LD 


DE,FCB1$ 


; file name 


30B0 012000 


25270 


LD 


BC,32 




30B3 EDB0 


25280 
25290 ; 


LDIR 








25300 ; 


Check i 


f prompting or 


not (Q parm) 




25310 ; 








30 B5 3A1526 


25320 BYPASS 


LD 


A,(QPARM$+1) 


;Query each file? 


30B8 B7 


25330 


OR 


A 




30B9 CA4931 


25340 


JP 


Z,NOPRMPT 


;Not if not entered 


30 BC 


25350 


(a@DSPLY 


QUERY 


;"backup filespec ? 




00190 


IFEQ 


01H,1 




30BC 217534 


00191 


LD 


HL, QUERY 
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BACKUP - LS-DOS 


6.2 Page 00044 


Backup By Ci 


ass 
00192 


ENDIF 






30 BF 3E0A 


00193 


LD 


A, 10 




30C1 EF 


00194 
25360 ; 


RST 


40 






25370 ; 


Display 


file info for user decision 




25380 ; 








30C2 Dl 


25390 


POP 


DE 


;Rcvr ptr to file buf 


30C3 El 


25400 


POP 


HL 


;Rcvr ptr to 1st dir byte 


30C4 D5 


25410 


PUSH 


DE 




30C5 23 


25420 


INC 


HL 


;Pt to MOD bit 


30C6 CB76 


25430 


BIT 


6,(HL) 


;Test MOD flag 


30C8 2808 


25440 


JR 


Z, SCDATl 


;Go if not set 


30CA 3E20 


25450 


LD 


A,' ' 


;Put a space 


30CC 12 


25460 


LD 


(DE),A 




30CD 13 


25470 


INC 


DE 




30CE 3E2B 


25480 


LD 


A,' + ' 




30D0 12 


25490 


LD 


(DE),A 


; Display '+' if MOD 


30D1 13 


25500 


INC 


DE 




30D2 3E20 


25510 SCDATl 


LD 


A,' ' 


; Write a space 


30D4 12 


25520 


LD 


(DE),A 




30 D5 13 


25530 


INC 


DE 




30 D6 23 


25540 


INC 


HL 


;Advance to date field 


30D7 EB 


25550 


EX 


DE,HL 




30D8 367B 


25560 


LD 


(HL),'{' 


; Stuff left brace 


30DA 23 


25570 


INC 


HL 




30DB EB 


25580 


EX 


DE,HL 




30DC 7E 


25590 


LD 


A,(HL) 


;If no date, then skip 


30DD B7 


25600 


OR 


A 




30DE 283D 


25610 


JR 


Z,SCDAT4 


; Ignore if no date saved 


30E0 0F 


25620 


RRCA 




;Has date, get day 


30E1 0F 


25630 


RRCA 






30E2 0F 


25640 


RRCA 






30E3 E61F 


25650 


AND 


IFH 




30E5 062F 


25660 


LD 


B,2FH 


;Convert day to decimal 


30E7 04 


25670 SCDAT2 


INC 


B 


; by counting # of 10 's 


30E8 D60A 


25680 


SUB 


10 


;Sub 10 from day # 


30EA 30FB 


25690 


JR 


NC,SCDAT2 




30EC C63A 


25700 


ADD 


A, 3 AH 


;Cvrt lo order to ASCII 


30EE F5 


25710 


PUSH 


AF 


;Save day low order 


30EF 78 


25720 


LD 


A,B 


; Stuff day hi order 


30F0 12 


25730 


LD 


(DE),A 




30F1 13 


25740 


INC 


DE 


;Bump 


30F2 Fl 


25750 


POP 


AF 


;Rcvr lo order day # 


30F3 12 


25760 


LD 


(DE),A 


; Stuff low order 


30F4 13 


25770 


INC 


DE 


;Bump pointer to msg 


30F5 3E2D 


25780 


LD 


A.'-' 




30F7 12 


25790 


LD 


(DE),A 


; Stuff '-' 


30F8 13 


25800 


INC 


DE 


;Pt to month field 


30F9 E5 


25810 


PUSH 


HL 


;Save DIR ptr 


30FA F5 


25820 


PUSH 


AF 


;Save separator char 


30FB 2B 


25830 


DEC 


HL 


;Pt to DIR+1 (month+) 


30FC 7E 


25840 


LD 


A,(HL) 


;P/u month etc 


30FD E60F 


25850 


AND 


0FH 


;Strip off flags 


30FF 3D 


25860 


DEC 


A 


; (mon-l)*3 to index 


3100 4F 


25870 


LD 


C,A 


; string conversion tabl 


3101 07 


25880 


RLCA 




;X2 


3102 81 


25890 


ADD 


A,C 


;X3 


3103 4F 


25900 


LD 


C,A 


;Results to BC 


3104 0600 


25910 


LD 


B,0 
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3106 217335 


25920 


LD 


HL,MONTBL 


;Ptr to month names 


3109 09 


25930 


ADD 


HL,BC 


;Add offset to tbl start 


310A 0E03 


25940 


LD 


C,3 




310C EDB0 


25950 


LDIR 




;Move 3-char month 


310E Fl 


25960 


POP 


AF 




310F 12 


25970 


LD 


(DE),A 




3110 13 


25980 


INC 


DE 


;Advance to year field 


3111 3E38 


25990 


LD 


A, '8' 


; Stuff 8 of 1980 


3113 12 


26000 


LD 


(DE),A 




3114 13 


26010 


INC 


DE 


;Bump msg ptr 


3115 El 


26020 


POP 


HL 


;Rcvr DIR+2 


3116 7E 


26030 


LD 


A,(HL) 


;P/u year field 


3117 E607 


26040 


AND 


7 


;Remove day 


3119 C630 


26050 


ADD 


A,'0' 


;Cvrt to ASCII 


311B 12 


26060 


LD 


(DE),A 


; Stuff -> msg 


311C 13 


26070 


INC 


DE 




311D 3E03 


26080 SCDAT4 


LD 


A, 3 


;Show etx for display 


311F 12 


26090 


LD 


(DE),A 




3120 


26100 


@@DSPLY FCB1$ 


;Display filename 




00195 


IFEQ 


01Ha 




3120 211826 


00196 
00197 


LD 
ENDIF 


HL,FCB1$ 




3123 3E0A 


00198 


LD 


A40 




3125 EF 


00199 


RST 


40 




3126 


26110 


(a^DSPLY QMARK$ 


;" } ? " 




00200 


IFEQ 


01Ha 




3126 216E35 


00201 
00202 


LD 
ENDIF 


HL,QMARK$ 




3129 3E0A 


00203 


LD 


A, 10 




312B EF 


00204 


RST 


40 




312C 2A1626 


26120 


LD 


HL, (BUFFERS) 


;Get user response 


312F 010003 


26130 


LD 


BC,3<8 


;3 char max 


3132 


26140 


@{3KEYIN 






3132 3E09 


00205 


LD 


A, 9 




3134 EF 


00206 


RST 


40 




3135 DAAC26 


26150 


JP 


CABRTBU 


;Quit on Break 


3138 7E 


26160 


LD 


A,(HL) 


;Get the 1st char 


3139 CBAF 


26170 


RES 


5, A 


;Strip Ic if present 


313B FE59 


26180 


CP 


'Y' 


;Yes means move the file 


313D 2808 


26190 
26200 ; 


JR 


Z, CPYMSG 


;Go if so 




26210 ; 


Accept 


'C for response 


to set QUERY=N 




26220 ; 








313F D643 


26230 


SUB 


'C 


;Was response "C"? 


3141 C2292F 


26240 


JP 


NZ.SCNHIT 


; Don't backup if not 


3144 321526 


26250 


LD 


(QPARM$+1),A 


;Set QUERY=N 


3147 E3 


26260 CPYMSG 


EX 


(SP),HL 


; Place durrmy HL below 


3148 E5 


26270 
26280 ; 


PUSH 


HL 


; FCB1$ ETX pointer 




26290 ; 


Display 


copying file info 




26300 ; 








3149 


26310 NOPRMPT 


@@CKBRKC 


;Ck if BREAK 


3149 3E6A 


00207 


LD 


A, 106 




314B EF 


00208 


RST 


40 




314C C2AC26 


26320 


JP 


NZ.ABRTBU 


;Quit if so 


314F 


26330 


@@LOGOT CPYFIL$ 


;" copying file.o . 




00209 


IFEQ 


01H,1 




314F 216534 


00210 
00211 


LD 
ENDIF 


HL,CPYFIL$ 
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■iss 








3152 3E0C 


00212 


LD 


A, 12 




3154 EF 


00213 


RST 


40 




3155 El 


26340 


POP 


HL 


;Get pointer where ETX 


3156 360D 


26350 


LD 


(HL),CR 


; is & replace with CR 


3158 E5 


26360 


PUSH 


HL 




3159 


26370 


(3@L0G0T FCB1$ 


;Display the filespec 




00214 


IFEQ 


01H,1 




3159 211826 


00215 
00216 


LD 
ENDIF 


HL,FCB1$ 




315C 3E0C 


00217 


LD 


A, 12 




315E EF 


00218 


RST 


40 




315F Dl 


26380 


POP 


DE 


;Rcvr ptr to CR 


3160 El 


26390 
26400 ; 


POP 


HL 






26410 ; 


Put in 


the drive spec 






26420 ; 








3161 CD8833 


26430 DOBU 


CALL 


MAKSPC 


;Make the filespec 


3164 CI 


26440 


POP 


BC 


;Get DEC of source 


3165 C5 


26450 


PUSH 


BC 




3166 78 


26460 


LD 


A,B 


;Test if a SYS DEC 


3167 E6D8 


26470 


AND 


0D8H 




3169 C23A32 


26480 


JP 


NZ,DOFIL0 


;Jump if not SYS 


316C 3E00 


26490 ATTRIB 


LD 


AJ 


;P/u attribute byte 


316E CB77 


26500 


BIT 


6, A 


; Don't do if not SYS 


3170 CA3A32 


26510 
26520 ; 


JP 


Z,DOFIL0 






26530 ; 


Routine 


i to copy over SYS files 




26540 ; 








3173 CD8727 


26550 


CALL 


PMTDST 


; Prompt dest drive 


3176 FD5609 


26560 


LD 


D,(IY+9) 


;P/u dir cyl of dest 


3179 78 


26570 


LD 


A,B 


;Get DEC & calc sector 


317A E61F 


26580 


AND 


IFH 




317C C602 


26590 


ADD 


A,2 


;Adj for GAT & HIT 


317E 5F 


26600 


LD 


E,A 




317F 2A1626 


26610 


LD 


HL, (BUFFERS) 


;P/u buffer addr 


3182 CD7228 


26620 


CALL 


RDSEC 


;Read dir sect 


3185 FE06 


26630 


CP 


6 


; Proper errcod? 


3187 C29226 


26640 


JP 


NZ.DIRERR 




31 8A 78 


26650 


LD 


A,B 


;Pt to 1st byte of 


318B E6E0 


26660 


AND 


0E0H 


; dir record 


318D 6F 


26670 


LD 


L,A 




318E CB66 


26680 


BIT 


4,(HL) 


;Go if already assigned 


3190 2019 


26690 


JR 


NZ^DOSYSl 




3192 365F 


26700 


LD 


(HL),5FH 


;Show assigned, SYS, INV 


3194 23 


26710 


INC 


HL 


; & no access 


3195 3500 


26720 


LD 


(HL) ,0 


;Zero out DIR+1 to DIR+4 


3197 54 


26730 


LD 


D,H 




3198 5D 


26740 


LD 


E,L 




3199 13 


26750 


INC 


DE 




319A 010300 


26760 


LD 


BC,3 




319D EDB0 


26770 


LDIR 






319F 7D 


26780 


LD 


A,L 


;Pt HL to DIR+16 


31A0 C60C 


26790 


ADD 


A, 12 




31A2 6F 


26800 


LD 


L,A 




31A3 3C 


26810 


INC 


A 




31A4 5F 


26820 


LD 


E,A 


;Pt DE to DIR+17 


31 A5 36 FF 


26830 


LD 


(HL),0FFH 


;Stuff X'FF' into extent 


31A7 0E0F 


26840 


LD 


C,15 


; & pswd fields 


31A9 EDB0 


26850 


LDIR 
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31AB 7D 
31AC E6E0 
31 AE CB76 
31 B0 CAE72E 
31 B3 C605 
31B5 6F 
31B6 5F 
31B7 262C 
31B9 3A1726 
31 BC 57 
31 BD 010D00 
31C0'EDB0 
31C2 FD5609 
31C5 CI 
31C6 C5 
31 C7 78 
31C8 E61F 
31 CA C602 
31CC 5F 
31CD 2A1626 
31 D0 CD6D28 
31D3 3E12 
31D5 C29726 



31 D8 CI 
31D9 C5 
31 DA 78 
31 DB FE02 
31 DD C23A32 
31E0 CD1A27 

31E3 0610 
31 E5 110000 



31 E8 2A1626 
31EB CD7228 
31EE C29726 
31 Fl 24 
31F2 IC 
31F3 10F6 



31F5 2A1626 
31F8 110102 
31FB 19 
31FC 36C9 



26860 
26870 
26880 
26890 
26900 
26910 
26920 
26930 
26940 
26950 
26960 
26970 
26980 
26990 
27000 
27010 
27020 
27030 
27040 
27050 
27060 
27070 
27080 
27090 
27100 
27110 
27120 
27130 
27140 
27150 
27160 
27170 
27180 
27190 
27200 
27210 
27220 
27230 
27240 
27250 
27260 
27270 
27280 
27290 
27300 
27310 
27320 
27330 
27340 
27350 
27360 
27370 
27380 
27390 
27400 
27410 
27420 
27430 
27440 



DOSYSl 



LD A,L 

AND 0E0H 

BIT 6,(HL) 

JP Z,NOTSYS 

ADD A, 5 

LD L,A 

LD E,A 

LD H,BUF2$<-8 

LD A,(BUFFER$+1) 

LD D.A 

LD BC,13 

LDIR 

LD D,(IY+9) 

POP BC 

PUSH BC 

LD A,B 

AND IFH 

ADD A, 2 

LD E,A 

LD HL, (BUFFERS) 

CALL WRSYS 

LD A, 18 

JP NZ,EXIT3 



Pt HL to Dir+0 

of dest 
Guard against writing 

over a non-SYS file 
Pt to name field 

Pt DE to name field of 

destination 
P/u buffer hi -order addr 

Move name/ext into dest 

P/u dir cyl of dest 
Rcvr DEC of source 

Calc dir sector for 
source SYS module 



;P/u buffer ptr for dest 
;Write the dir to dest 
;Init "Dir write error 
; and quit on bad write 



POP 
PUSH 
LD 
CP 
JP 

CALL 
IF 
LD 
LD 

ENDIF 
IF 
LD 
LD 
OR 
LD 
JR 
LD 
NBTSEC2 LD 

ENDIF 

9 

LD 
RDBOOT CALL 
JP 
INC 
INC 
DJNZ 



The HIT entries were transferred prior 

;Rcvr DEC of source 



BC 

BC 

A,B 

2 

NZ,DOFIL0 

PMTSRC 

@M0D4 

BJ6 

DE,0 

(aM0D2 

DE,(PROTSEC) 

A,D 

A 

B,5 

Z,NBTSEC2 

B,16 

E,0 



HL, (BUFFERS) 

RDSEC 

NZ,EXIT3 

H 

E 

RDBOOT 



;Test for SYS0 

; Bypass if not SYS0 
; Prompt source 

;Init to xfer BOOT track 
;Init track 0, sector 



;6et sysinfo sector 



;Set disk buffer 
;Read sector and 
; quit on error 
;Pt to next block 
; Point to next sector 
;Continue reading boot 



Turn off CONFIG on destination disk 



LD 
LD 
ADD 
LD 



HL, (BUFFERS) 
DEa00H*2+l 
HL,DE 
(HL),0C9H 



; Start cyl image 
;Offset to sector 2 +1 
;HL => config byte 
;Config off 
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27450 


» 








31FE CD8727 


27460 


D0SYS2 


CALL 


PMTDST 


;Prompt destination 




27470 




IF 


@M0D4 




3201 0610 


27480 




LD 


B,16 


; Sector count for boot 


3203 110000 


27490 
27500 




LD 
ENDIF 


DE,0 


;Init track and sector I 




27510 




IF 


@M0D2 






27520 




LD 


DE,(CKPR0T2) 


;6et dest cyl number 




27530 




LD 


A,(PR0TSEC+1) 






27540 




LD 


B,5 


;Default 5 sectors 




27550 




OR 


A 






27560 




JR 


Z, NBTSECS 






27570 




AND 


D 






27580 




JR 


Z, NBTSECS 






27590 




LD 


8,16 


;Use 16 sectors 




27600 


NBTSECS 


LD 


E,0 






27610 




ENDIF 






3206 2A1626 


27620 




LD 


HL, (BUFFERS) 


;P/u buffer start 


3209 7B 


27630 WRBOOT 


LD 


A,E 


;If sector or 1^ 


320A FE02 


27640 




CP 


2 


; correct DIRCYL & 


32 0C 3015 


27650 




JR 


NC,WRB00T2 


; BOOT step rate 


320E B7 


27660 




OR 


A 




320F 280A 


27670 
27680 


9 


JR 


Z, WRBOOTl 


;If sec only dir cyl 


3211 3A0026 


27690 




LD 


A,(BOOTST$) 


;P/u step pointer 


3214 6F 


27700 




LD 


L,A 




3215 7E 


27710 




LD 


A,(HL) 


;P/u BOOT step rate 


3216 E6FC 


27720 




AND 


0FCH 


; Strip the rate 


3218 F600 


27730 


BSCLS 


OR 





; Merge dest rate 


321A 77 


27740 




LD 


(HL),A 




321B FD7E09 


27750 


WRBOOTl 


LD 


A, (IY+9) 


;P/u DIR cyl 


321E 2E02 


27760 




LD 


L.2 




3220 77 


27770 




LD 


(HL),A 




3221 2E00 


27780 




LD 


L,0 


;Restart to buf start 


3223 CD6828 


27790 


WRBOOT 2 


CALL 


WRSEC 


; Write dest boot sector 


3226 C29726 


27800 




JP 


NZ,EXIT3 


;Quit on error 


3229 24 


27810 




INC 


H 


;Bump buffer page 


322A IC 


27820 




INC 


E 


;Bump sector 


322B 10DC 


27830 
27840 




DJNZ 


WRBOOT 






27850 




Verify 


this track 






27860 












27870 




IF 


@M0D4 




322D 0610 


27880 




LD 


B,16 


;16 sector just written 


322F 110000 


27890 
27900 




LD 
ENDIF 


DEJ 


; on track 




27910 




IF 


@M0D2 






27920 




LD 


A,(PR0TSEC+1) 






27930 




LD 


B,5 






27940 




LD 


DE,(CKPR0T2) 






27950 




OR 


A 






27960 




JR 


Z, NBTSECl 






27970 




AND 


D 






27980 




JR 


Z, NBTSECl 






27990 




LD 


B,16 






28000 


NBTSECl 


LD 


E,0 






28010 




ENDIF 






3232 CD7728 


28020 


VRBOOT 


CALL 


VERSEC 


; Verify a boot sector 


3235 C29726 


28030 




JP 


NZ,EXIT3 


;Quit on an error 
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3238 10F8 


28040 
28050 ; 


DJNZ 


VRBOOT 






28060 ; 


Mod II 


check if cyl to be formatted on dest 




28070 ; 










28080 


IF 


0MOD2 






28090 


LD 


DE9(CKPR0T2) 


;Get sysinfo sector 




28100 


LD 


A,(PR0TSEC+1) 






28110 


AND 


D 






28120 


JR 


Z,C0PYi9E 


;Go if yes 




28130 OKWRT0 


CALL 


PMTSRC 


;6et source disk 




28140 


CALL 


READ0 


;Read cyl 




28150 


JP 


NZ,EXIT3 


;Go on disk error 




28160 


CALL 


PMTDST 


;Get dest disk 




28170 


CALL 


FORMAT0 


; Format cyl 




28180 


JP 


NZ,EXIT3 


;Go on disk error 




28190 ; 










28200 ; 


Setup new track length 


into boot data 




28210 ; 










28220 


LD 


HL, (BUFFERS) 


;Get I/O buffer 




28230 


PUSH 


HL 


;Save start 




28240 


INC 


HL 


;+l 




28250 


INC 


HL 


;+2 (dir cyl) 




28260 


LD 


A,(IY+9) 


;Get dir cyl 




28270 


LD 


(HL),A 


;To buffer 




28280 


INC 


HL 


;+3 (boot step rate) 




28290 


LD 


A,(BSCLS+1) 


;Get step rate 




28300 


AND 


3 


;Step rate only 




28310 


LD 


(HL),A 


;Load into buffer 




28320 


INC 


HL 


;Bump 




28330 


LD 


A,(IY+7) 


;Get data 




28340 


AND 


IFH 


;Highest sector # 




28350 


INC 


A 


; Sectors / track 




28360 


LD 


(HL),A 


;To buffer 




28370 


INC 


HL 


;Bump 




28380 


LD 


A,(IY+3) 


;Get data 




28390 


ADD 


A, A 


; Density => bit 7 




28400 


AND 


80H 


;Keep only 




28410 


LD 


(HL),A 


;To buffer 




28420 


POP 


HL 


;HL => buffer start 




28430 


LD 


D,H 


;Pass to DE 




28440 


LD 


E,L 


;DE => buffer start 




28450 


LD 


BC,80H 


; Buffer length 




28460 


ADD 


HL,BC 


;HL => dest 




28470 


EX 


DE,HL 


;HL=>source, DE=>dest 




28480 


LDIR 




;Copy sector => sec 1 




28490 


CALL 


PMTDST 


; Re-fetch DCT 




28500 


CALL 


WRITE0 


; Write the cylinder 




28510 


JP 


NZ,EXIT3 


;Go on disk error 




28520 COPY0E 


EQU 


$ 






28530 


ENDIF 








28540 ; 










28550 ; 


Routine 


! to perform the 


file copy to destination 




28560 ; 








323A 11282F 


28570 DOFIL0 


LD 


DE,OPENIT 


;Check the name 


323D 


28580 


@@RENA^ 


I 




323D 3E38 


00219 


LD 


A, 56 




323F EF 


00220 


RST 


40 




3240 0600 


28590 


LD 


B,0 


;Lrl = 256 


3242 CD3D34 


28600 


CALL 


GETSRC 


; Prompt source & set fcb 
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3245 2A1626 

3248 

3248 3E65 

324A EF 

3248 FDCB12C6 

324F 

324F 3E3B 

3251 EF 

3252 C29726 



3255 2A2426 
3258 110000 
325 B AF 
325C ED52 
325E 3809 
3260 21FC34 
3263 



3263 
3265 
3266 
3269 
326C 
326C 
326 E 
326F 
3271 
3274 
3277 
3277 
3279 
327A 
327C 
327E 
3280 
3283 
3286 
3289 
328 D 
3290 
3291 
3292 
3294 
3295 
3297 
329A 
329D 
329E 
32 A0 
32A1 
32 A2 
32 A4 
32 A6 



3E0C 
EF 

C32A2F 
11282F 

3E38 

EF 

0600 

CD4634 

2A1626 

3E3A 

EF 

2807 

FE2A 

2803 

C39726 

3A3F26 

32FE32 

ED4B2426 

CDF 333 

CI 

68 

262C 

C5 

2806 

CD1A27 

C32A30 

7D 

E6E0 

3C 

6F 

CB66 

2803 

323A2F 



32A9 210000 



28610 
28620 
00221 
00222 
28630 
28640 
00223 
00224 
28650 
28660 
28670 
28680 
28690 
28700 
28710 
28720 
28730 
28740 
28750 
00225 
00226 
00227 
00228 
00229 
28760 
28770 
28780 
00230 
00231 
28790 
28800 
28810 
28820 
00232 
00233 
28830 
28840 
28850 
28860 
28870 
28880 
28890 
28900 
28910 
28920 
28930 
28940 
28950 
28960 
28970 
28980 
28990 
29000 
29010 
29020 
29030 
29040 
29050 
29060 



LD HL, (BUFFERS) ;Get buffer addr 

@(3FLAGS 

LD A, 101 

RST 40 

SET 0,(IY+'S'-'A') ;Inhibit file open bit 

(3(90PEN ;Open the source file 

LD A, 59 

RST 40 

JP NZ,EXIT3 ;Quit on open error 

Check if source file can fit on destination disk 



LD 
SIZSAV LD 

XOR 

SBC 

JR 

LD 

(3@L0G0T 

IFEQ 

LD 

ENDIF 

LD 

RST 

JP 
SIZOK LD 

(agRENAM 

LD 

RST 

LD 

CALL 

LD 

§(aiNIT 

LD 

RST 

JR 

CP 

JR 

JP 
LRLOK LD 

LD 

LD 

CALL 

POP 

LD 

LD 

PUSH 

JR 

CALL 

JP 
DOFIL02 LD 

AND 

INC 

LD 

BIT 

JR 

LD 

LD 



HL,(FCB1$+12) 

DE,$-$ 

A 

HL,DE 

C, SIZOK 

HL,SIZBIG$ 

00H,1 
HL, 

A, 12 
40 

SCNHl 
DE,OPENIT 

A, 56 

40 

BJ 

GETDST 

HL, (BUFFERS) 

A, 58 

40 

Z, LRLOK 

42 

Z, LRLOK 

EXIT3 

A,(FCB2$+7) 

(D0FIL11+1),A 

BC,(FCB1$+12) 

WRERN 

BC 

L,B 

H,BUF2$<-8 

BC 

Z,DOFIL02 

PMTSRC 

DONAM 

A,L 

0E0H 

A 

L,A 

4,(HL) 

Z,$+5 

(SETBIT),A 

HL,0 



;P/u ERN 

;P/u disk capacity 

;If < size, then OK 

; else file to big 
; Inform user & continue 



;Loop back for another file 
:Check the name 



;Lrl = 256 

; Prompt dest & set fcb 
;Get buffer addr 
;Init the dest 



If no error, cont. 
Was it LRL error? 
Ignore if so 

else real error, abort 
P/u DEC of dest 

P/u ERN & ck for enuf 
dest space on disk 
Recover DEC 
Reset HL to dir 

Save DEC 

Go if there was room 
else make source current, loop 
back because dest was swapped 

Check if date current 
; Index to proper direc 



;Check if bit set 
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32AC 224426 


29070 




LD 


(FCB2$+12),HL 


;Set dest ERN to 


32 AF 


29080 




(a@REW 




; Rewind the dest 


32AF 3E44 


00234 




LD 


A, 68 




32B1 EF 


00235 




RST 


40 




32B2 2A1626 


29090 


DOFIL03 


LD 


HL» (BUFFERS) 


; Buffer addr 


32B5 221B26 


29100 


DOFIL04 


LD 


(FCB1$+3),HL 


;Set buffer addr in fcb 


32B8 CD3D34 


29110 




CALL 


GETSRC 


;Prompt source & set fcb 


32 BB 


29120 




(aiaREAD 




;Read a source file sector 


32 BB 3E43 


00236 




LD 


A, 67 




32BD EF 


00237 




RST 


40 




32 BE 280 B 


29130 




JR 


Z,DOFIL05 


;Go if no error 


32C0 FEIC 


29140 




CP 


ICH 


;Eof? 


32C2 2824 


29150 




JR 


Z,DOFIL09 


;YeSs finished loading 


32C4 FEID 


29160 




CP 


IDH 


;Nrn > ern? 


32 C6 2820 


29170 




JR 


Z,DOFIL09 


;Also means load done 


32C8 C39726 


29180 




JP 


EXIT3 


;Abort on any other error 


32 CB 24 


29190 


DOFIL05 


INC 


H 


;Bump the buffer ptr 


32CC 7C 


29200 




LD 


A,H 




32 CD FE00 


29210 


DOFIL06 


CP 


$-$ 


;Test out of memory 


32CF 20E4 


29220 




JR 


NZ,DOFIL04 


;Loop if more room 


32D1 2A1626 


29230 




LD 


HL, (BUFFERS) 


;P/u buffer start 


32D4 223B26 


29240 


DOFIL07 


LD 


(FCB2$+3),HL 


; & set into dest fcb 


32D7 CD4634 


29250 




CALL 


GETDST 


; Prompt dest & set fcb 


32 DA 


29260 




(3@VER 




;Write dest w/verify 


32DA 3E49 


00238 




LD 


A, 73 




32 DC EF 


00239 




RST 


40 




32DD C29726 


29270 




JP 


NZ,EXIT3 


;Quit on error 


32E0 24 


29280 




INC 


H 


;Bump buffer page 


32E1 7C 


29290 




LD 


A,H 




32E2 FE00 


29300 


DOFIL08 CP 


$-$ 


;Out of memory? 


32E4 20EE 


29310 




JR 


NZ,DOFIL07 


;Write another if not 


32 E6 18CA 


29320 
29330 




JR 


DOFIL03 


; else back to loading 




29340 




Reached 


the end of the 


source file 




29350 










32E8 CDD433 


29360 


DOFIL09 CALL 


LSTBUF 


; Write remaining buffer 


32EB 2A2026 


29370 




LD 


HL,(FCBl$+8) 


;P/u DEC & LRL 


32EE 224026 


29380 




LD 


(FCB2$+8),HL 


; & stuff into dest 


32F1 CD4634 


29390 




CALL 


GETDST 


;Set for dest fcb 


32F4 


29400 




(a@CLOSE 




;Close 'er up 


32F4 3E3C 


00240 




LD 


A, 60 




32F6 EF 


00241 




RST 


40 




32F7 C29726 


29410 
29420 




JP 


NZ,EXIT3 


;Abort on close error 




29430 




Now remove the mod flag 


from destination 




29440 




and do 


CLONE function 






29450 










32FA FD5609 


29460 




LD 


D.(IY+9) 


;P/u dir cyl 


32FD 0600 


29470 


DOFILll 


LD 


B,$-$ 


;P/u DEC 


32 FF 78 


29480 




LD 


A,B 


;Pt to dir sector 


3300 E61F 


29490 




AND 


IFH 




3302 C602 


29500 




ADD 


A.2 


; Bypass GAT and HIT 


3304 5F 


29510 




LD 


E,A 




3305 D5 


29520 




PUSH 


DE 


;Save cyl /sect 


3306 2A1626 


29530 




LD 


HL, (BUFFERS) 


;P/u buffer addr 


3309 CD7228 


29540 




CALL 


RDSEC 


;Read the dir sect 


330C FE06 


29550 




CP 


6 


; Proper errcod? 


330E 3E11 


29560 




LD 


Aa7 


;Init "Dir read error 


3310 C29726 


29570 




JP 


NZ,EXIT3 
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3313 
3314 
3316 
3317 
331A 
331B 
331C 
331D 
331E 
331F 
3320 
3322 
3323 
3325 
3326 
3328 
3329 
332C 
332E 
332F 
3331 
3332 
3333 
3335 
3336 
3339 
333B 
333 E 
333F 
3342 
3344 



3347 
3349 
334A 
334D 
334E 
334F 
3350 
3352 
3353 
3354 
3356 
3358 
335B 
335E 
335F 
3361 
3363 
3364 
3367 
336A 
336D 
336F 
3371 
3374 
3376 



78 

E6E0 

5F 

3A1726 

57 

El 

CI 

C5 

E5 

78 

E6E0 

6F 

262C 

2C 

CBB6 

2D 

010500 

EDB0 

7B 

C60B 

5F 

7D 

C60B 

6F 

010400 

EDB0 

2A1626 

Dl 

CD6D28 

3E12 

C29726 



3E00 

B7 

C22A2F 

CI 

C5 

78 

E6E0 

3C 

6F 

262C 

CBB6 

CD1A27 

FD5609 

78 

E61F 

C602 

5F 

21002C 

CD6D28 

CA2A2F 

FE0F 

3E12 

C29726 

3EFF 

324833 



29580 

29590 

29600 

29610 

29620 

29630 

29640 

29650 

29660 

29670 

29680 

29690 

29700 

29710 

29720 

29730 

29740 

29750 

29760 BYSPACE 

29770 

29780 

29790 

29800 

29810 

29820 

29830 

29840 

29850 

29860 

29870 

29880 

29890 ; 

29900 ; 

29910 ; 

29920 D0FIL12 

29930 

29940 

29950 

29960 

29970 

29980 

29990 



30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 
30120 
30130 
30140 
30150 
30160 



LD A,B 

AND 0E0H 

LD E,A 

LD A,(BUFFER$+1) 

LD D,A 

POP HL 

POP BC 

PUSH BC 

PUSH HL 

LD A,B 

AND 0E0H 

LD L,A 

LD H,BUF2$<-8 

INC L 

RES 6,(HL) 

DEC L 

LD BC,5 

LDIR 

LD A,E 

ADD A, 11 

LD E,A 

LD A,L 

ADD A, 11 

LD L,A 

LD BC,4 

LDIR 

LD HL, (BUFFERS) 

POP DE 

CALL WRSYS 

LD A, 18 

JP NZ,EXIT3 



;Pt to dir record 

;Pt to DIR lo order 
;P/u hi order buffer pos 



;P/u DEC & buffer of src 



Get source DEC 

and pt to the direc 
of the current file 

Pt to mod flag byte 

Reset the MOD bit 

Point to DIR+0 

Transfer up thru 

DIR+4 
;Point DE to the dest 
; password fields 

; Point HL to the source 
; password fields 

;Move both pswds 

;P/u buffer addr 
;Rcvr cyl/sect 
;Write back 

;Init "Dir write error 
;Quit on error 



Attempt to clear mod flag of source 



LD A,0 

OR - A 

JP NZ.SCNHl 

POP BC 

PUSH BC 

LD A,B 

AND 0E0H 

INC A 

LD L,A 

LD H,BUF2$<-8 

RES 6,(HL) 

CALL PMTSRC 

LD D,(IY+9) 

LD A,B 

AND IFH 

ADD A, 2 

LD E,A 

LD HL,BUF2$ 

CALL WRSYS 

JP Z^SCNHl 

CP 15 

LD Aa8 

JP NZ,EXIT3 

LD A,0FFH 

LD (D0FIL12+1),A 



;Test for write prot src 
; Which implies, can't 
; clear mod flags 
;P/u DEC of source 

;Clear mod flag on source 
;Dir sector is resident 
;In a buffer at BUF2 



;Reset mod bit 

;Set for source i/o 

;P/u dir cyl 

;Pt to dir sect of source 

;Adjust for GAT and HIT 



;Write it back 

;Back on good write 

;Accept only "write prot error 

;Any other, "Dir write error 

; and quit 

;Turn off clear mod 

; flag test 
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3379 


30170 


(3@L0G0T 


CCMOD$ 


;" can't clear.. . 




00242 


IFEQ 


01 HJ 




3379 21C629 


00243 
00244 


LD 
ENDIF 


HL,CCMOD$ 




337C 3E0C 


00245 


LD 


A, 12 




337E EF 


00245 


RST 


40 




337F C32A2F 


30180 
30190 ; 


JP 


SCNHl 


;Loop to next file 




30200 ; 


Routine 


to compare HL to DE^ ret Z if equal 




30210 ; 








3382 7C 


30220 CPHLDE 


LD 


A,H 


;Test H=D 


3383 92 


30230 


SUB 


D 




3384 C0 


30240 


RET 


NZ 


;Back if not 


3385 7D 


30250 


LD 


A,L 


;Test L=E 


3386 93 


30260 


SUB 


E 




3387 C9 


30270 
30280 ; 


RET 




;Back with condition 




30290 ; 


Routine 


to construct fi 


lespec from name/ext 




30300 ; 








3388 3E3A 


30310 MAKSPC 


LD 


A/:' 


; Prepare for drivespec 


338A 12 


30320 


LD 


(DE),A 




338B 13 


30330 


INC 


DE 




338C D5 


30340 


PUSH 


DE 


;Save pointer 


338D 3A7B27 


30350 


LD 


A,(DSTDRV$+1) 


;P/u dest drive # 


3390 E607 


30360 


AND 


7 


;Cvrt to ASCII 


3392 C630 


30370 


ADD 


A,'0' 




3394 12 


30380 


LD 


(DE),A 


; & stuff at fi lespec e 


3395 13 


30390 


INC 


DE 




3396 3E03 


30400 


LD 


A, 3 


;Terminate with ETX 


3398 12 


30410 


LD 


(DE),A 




3399 211826 


30420 


LD 


HL,FCB1$ 


;Copy source fcb to 


339C 113826 


30430 


LD 


DE,FCB2$ 


; dest fcb 


339F 012000 


30440 


LD 


BC,32 




33A2 EDB0 


30450 


LDIR 






33A4 Dl 


30460 


POP 


DE 


;Rcvr where source spec 


33A5 3A0E27 


30470 


LD 


A,(SRCDRV$+1) 


;P/u source drive # 


33A8 E607 


30480 


AND 


7 


;Cvrt to ASCII 


33AA C630 


30490 


ADD 


A,'0' 




33AC 12 


30500 


LD 


(DE),A 


; Stuff in dest fcb 


33 AD C9 


30510 
30520 ; 


RET 








30530 ; 


Routine 


to extract date 


from directory 




30540 ; 








33 AE 7E 


30550 UNPACK 


LD 


A,(HL) 


;P/u DIR+1 


33AF E60F 


30560 


AND 


0FH 


;Remove flags 


33B1 57 


30570 


LD 


D,A 


;Save month 


33B2 23 


30580 


INC 


HL 


;Pt to DIR+2 


33B3 7E 


30590 


LD 


A,(HL) 


;P/u day and year 


33B4 E6F8 


30500 


AND 


0F8H 


; Strip year 


33B6 5F 


30610 


LD 


E,A 


;Save day in E 


33B7 7E 


30620 


LD 


A,(HL) 


;Get the year back 


33B8 AB 


30530 


XOR 


E 


; Strip the day 


33B9 0F 


30540 


RRCA 




;Shift year to 5-7 


33 BA 0F 


30550 


RRCA 






33 BB 0F 


30560 


RRCA 






33 BC B2 


30570 


OR 


D 


;Merge with month 


33BD 57 


30580 


LD 


D,A 




33BE C9 


30590 
30700 ; 


RET 
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30710 ; 


Write 


the GAT back to disk 




30720 ; 








33 BF 2E00 


30730 WRGAT 


LD 


L,0 


HL to start of buffer 


33C1 CD6D28 


30740 


CALL 


WRSYS 


Write dir sector 


33C4 3E15 


30750 


LD 


A, 21 


, Init GAT write error 


33C6 C29726 


30760 


JP 


NZ,EXIT3 


and quit on error 


33C9 CD7728 


30770 


CALL 


VERSEC 


Verify good write 


33 CC FE06 


30780 


CP 


6 


Expect error 6 


33CE 3E14 


30790 


LD 


A, 20 


Init GAT read error 


33DJ9 C29726 


30800 


JP 


NZ,EXIT3 


Quit on any other error 


33D3 C9 


30810 
30820 ; 


RET 








30830 ; 


Write 


last buffer if needed 




30840 ; 








33D4 3A1726 


30850 LSTBUF 


LD 


A,(BUFFER$+1) 


P/u hi order buffer start 


33 D7 BC 


30860 


CP 


H 


Are we there now? 


33 D8 C8 


30870 


RET 


z 


Back if sOs nothing loaded 


33 D9 3E00 


30880 LSTBUF 1 


LD 


A,$-$ 


P/u last available page 


33 DB BC 


30890 


CP 


H 


There now? 


33 DC C8 


30900 


RET 


z 


Already written if so 


33 DD 44 


30910 


LD 


B,H 


Need to write to this page 


33DE 2A1626 


30920 


LD 


HL, (BUFFERS) 


P/u buffer start 


33E1 223B26 


30930 LSTBUF2 


LD 


(FCB2$-5-3),HL ; 


and put in dest fcb 


33E4 CD4634 


30940 


CALL 


GETDST 


Prompt dest 


33E7 


30950 


0(3VER 




Write with verify 


33E7 3E49 


00247 


LD 


A, 73 




33E9 EF 


00248 


RST 


40 




33EA C29726 


30960 


JP 


NZ,EXIT3 


Quit on bad write 


33ED 24 


30970 


INC 


H 


Bump buffer page 


33 EE 7C 


30980 


LD 


A,H 




33 EF B8 


30990 


CP 


B ; 


At the end? 


33F0 20EF 


31000 


JR 


NZ,LSTBUF2 ; 


Loop if more 


33F2 C9 


31010 
31020 ; 


RET 








31030 ; 


Check 


if enough space on 


destination disk 




31040 ; 








33F3 78 


31050 WRERN 


LD 


A,B ; 


If ERN = 0, don't 


33F4 Bl 


31060 


OR 


C ; 


write a ERN 


33F5 C8 


31070 


RET 


Z 




33F6 0B 


31080 


DEC 


BC ; 


Adjust for offset 


33F7 CD4634 


31090 


CALL 


GETDST ; 


Prompt dest 


33 FA D5 


31100 


PUSH 


DE ; 


Save fcb pointer 


33FB 


31110 


@@POSN 




Position to end 


33FB 3E42 


00249 


LD 


A, 66 




33FD EF 


00250 


RST 


40 




33FE 2A1626 


31120 


LD 


HL, (BUFFERS) ; 


P/u buffer addr 


3401 54 


31130 


LD 


D,H ; 


Construct a format 


3402 5D 


31140 


LD 


E,L ; 


sector of all X'E5's 


3403 13 


31150 


INC 


DE 




3404 01FF00 


31160 


LD 


BC,255 




3407 36 E5 


31170 


LD 


(HL),0E5H 




3409 EDB0 


31180 


LDIR 






340B Dl 


31190 


POP 


DE ; 


Rcvr fcb ptr 


340C 


31200 


(a@VER 


» 


Write with verify 


340C 3E49 


00251 


LD 


A, 73 




340E EF 


00252 


RST 


40 




340F C8 


31210 


RET 


z ; 


Ret if no error 


3410 FEIB 


31220 


CP 


27 ; 


Disk Full? 


3412 2026 


31230 


JR 


NZ,NOTDF ; 


No - quit on real error 
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3414 
3414 3E39 

3416 EF 

3417 FDCB035E 
341B 280B 
341D FDCB0356 
3421 2805 
3423 217D34 
3426 183A 
3428 

3428 3E65 

342A EF 

342B FDCB126E 

342F 202E 

3431 218B34 

3434 CDD327 

3437 F601 

3439 C9 

343A 

343A C39726 

343D C5 
343E 111826 
3441 CD1A27 

3444 CI 

3445 C9 

3446 C5 

3447 113826 
344A CD8727 
344D CI 
344E C9 

344F FD5609 
3452 1E01 
3454 210036 
3457 CD7228 
345A FE06 
345C 3E17 
345E C9 

345F 21CA34 
3462 C3AF26 



3465 ID 
43 
66 

3475 42 
61 

347 D 44 
69 
75 

348B 44 
69 
75 
73 
20 
65 

34AF 64 



6F 70 
69 6C 

63 6B 

73 6B 
6C 6C 

73 6B 
6C 6C 

65 72 

66 6F 

64 20 



31240 
00253 
00254 
31250 
31260 
31270 
31280 
31290 
31300 
31310 
00255 
00256 
31320 
31330 
31340 
31350 
31360 
31370 
31380 
31390 
31400 
31410 
31420 
31430 
31440 
31450 
31460 
31470 
31480 
31490 
31500 
31510 
31520 
31530 
31540 
31550 
31560 
31570 
31580 
31590 
31600 
31610 
31620 
31630 
31640 
79 69 
65 3A 
31650 
75 70 
31660 
20 69 
20 0D 
31670 
20 69 
20 2D 
74 20 
72 6D 

31680 



(a@REMOV 

LD 

RST 

BIT 

JR 

BIT 

JR 

LD 

JR 
NOTHARD eiaFLAGS 

LD 

RST 

BIT 

JR 

LD 

CALL 

OR 

RET 
NOTDF EQU 

JP 

GETSRC PUSH 
LD 

CALL 
POP 
RET 

GETDST PUSH 
LD 

CALL 
POP 
RET 



HITRD 



LD 

LD 

LD 

CALL 

CP 

LD 

RET 



DOING LD 
DOINGl JP 

CPYFIL$ DB 
6E 67 20 
20 03 

QUERY DB 
20 03 

FULDRV$ DB 
73 20 66 

NEWDISK DB 
73 20 66 
20 49 6E 
6E 65 77 
61 74 74 

DB 



A, 57 

40 

3,(IY+3) 

Z, NOTHARD 

2,(IY+3) 

Z, NOTHARD 

HL,FULDRV$ 

DOINGl 

A, 101 

40 

5,(IY+'S'-'A') 

NZ, DOING 

HL, NEWDISK 

FLASH 

1 

$ 
EXIT3 

BC 

DE,FCB1$ 
PMTSRC 
BC 



BC 

DE,FCB2$ 
PMTDST 
BC 



D,(IY+9) 

E,l 

HL,HITBUF 

RDSEC 

6 

A,17H 



;Remove what can't fit 



;Is this a rigid disk? 
;Go if not 

;Shown as Removable? 
; Prompt disk swap if so 
; Prepare disk full error 



;Can't switch while DOing 
;"disk full, enter new... 
;Show switched dest 

;Error exit 



;Pt to source FCB 
;Show source is current 
; for disk I/O 



;Pt to dest FCB 
;Show dest is current 
; for disk I/O 



;P/u dir cyl of source 

;Read HIT 

;Into HIT buffer 

;Errcod correct? 

; Init "HIT read error 

;Return w/condition 



HL,DOMSG 
EXIT4 

29, 'Copying file: ',3 



'Backup ',3 

'Disk is full ',CR 

'Disk is full - Insert new formatted ' 



'destination disk, <ENTER>' ,29,3 
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65 
6F 
20 
ID 

34 CA 44 
69 
75 
61 
74 

34E7 11 
68 
3E 
65 

34 PC 20 
20 
20 
74 
74 
20 

351 E 63 
61 
2D 
20 
73 

353C 43 
61 
61 
45 
2D 

3557 64 
69 
20 
6E 

356E 7D 
20 

3573 4A 
61 
41 
6E 
65 
44 

3597 A2 
C4 

359F 28 



73 74 
6E 20 
3C 45 
03 

73 6B 
6C 6C 
6E 27 
63 68 

69 6C 
20 69 
63 74 

46 69 
6C 61 

68 61 

69 6E 



70 61 
20 62 

69 73 

73 65 

6E 27 

74 65 
4D 20 
20 

72 65 

73 6C 
20 75 

3F 20 

6E 46 

70 72 
4A 75 
70 4F 
65 63 



69 6E 61 74 69 
64 69 73 6B 2C 
4E 54 45 52 3E 



31690 

20 69 

21 20 
74 20 
20 

31700 
65 20 
6E 20 
0D 

31710 
6C 55 
72 67 
6E 20 
61 74 



DOMSG DB 
73 20 66 
2D 20 43 
73 77 69 

DB 
3C 44 4F 
65 66 66 

SIZBIG$ DB 
20 69 73 
65 72 20 
64 65 73 
69 6F 6E 



31720 DB 

63 69 74 79 20 
61 63 6B 75 70 
20 62 79 70 61 

64 0D 

31730 NOTSYS$ DB 
74 20 63 72 65 
20 53 59 53 54 

64 69 73 6B 20 

31740 DB 

63 74 6F 72 79 

6F 74 73 20 69 

73 65 0D 

31750 QMARK$ DB 

03 

31760 MONTBL DM 

65 62 4D 61 72 
4D 61 79 4A 75 
6C 41 75 67 53 
63 74 4E 6F 76 



31770 SYSDEC DB 

2E 2F 2C 2D 2A 2B 

31780 DB 

29 26 27 27 A7 26 A6 

31790 ; 
35 A7 00 31800 DC 

00 00 00 00 00 

00 00 00 00 00 



00 00 
00 00 
00 00 
00 00 
00 00 



3600 
0100 



00 00 00 00 00 

00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 

31810 ; 

31820 ORG 
31830 HITBUF DS 
31840 ; 



'Disk is full! - Can"t switch 



'while <D0> in effect',CR 



' File is larger than destination 



capacity - backup is bypassed' jCR 



Can"t create SYSTEM disk - ' 



'directory slots in use',CR 



'} ? '.3 

' JanFebMarAprMayJunJulAugSepOctNovDec 



0A2H,0C4H,2EH,2FH,2CH,2DH,2AH,2BH 
28H,29H,26H,27H,27H,0A7H,26H,0A6H 



64,0 



; PATCH space 



$<-8+l<+8 
256 
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0900 


318/0 ; 
31880 CLSSIZ 
31890 ; 


EQU 


$-BACKUP 






31900 ; 


Establi 


sh PC for rest 


of BACKUP initialization 




31910 ; 








4100 


31920 


ORG 


CORE$+MIRSIZ+CLSSIZ 


4100 


31930 
31940 ; 


LORG 


$ 


;No offset here 




31950 ; 


Shift in Mirror or By- 


■file module 




31960 ; 








4100 3E00 


31970 CLSTST 


Id 


A,0 


; Non-zero if any option 


4102 B7 


31980 


OR 


A 




4103 C21341 


31990 


JP 


NZ,MVBYCLS 


; Bypass if special 


4106 210032 


32000 


LD 


HL,MIRBU 


;Move in standard code 


4109 11002E 


32010 


LD 


DE, BACKUP 




410C 010006 


32020 


LD 


BCMIRSIZ 




410F EDB0 


32030 


LDIR 






4111 1846 


32040 
32050 ; 


JR 


SETBFR 




4113 3ACF27 


32060 MVBYCLS 


LD 


A,(SX0RD+1) 


;Restrict by class 


4116 B7 


32070 


OR 


A 


; if a single drive 


4117 2009 


32080 


JR 


NZ, MVBYCl 




4119 211B44 


32090 


LD 


HL,CLS1DB$ 


;Can't by class on 1 drv 


411C 


32100 MOV NOT 


0@DSPLV 


r 


; Display the error 




00257 


IFEQ 


00H,1 






00258 


LD 


HL, 






00259 


ENDIF 






411C 3E0A 


00260 


LD 


Aa0 




411E EF 


00261 


RST 


40 




411F C3AC26 


32110 
32120 ; 


JP 


ABRTBU 


; and abort the backup 


4122 3ACA26 


32130 MVBYCl 


LD 


A,(XPARM$+1) 


;By class backup requires 


4125 B7 


32140 


OR 


A 


; either non (X) or reside 


4126 2826 


32150 


JR 


Z,MVBYC2 


; of SYS 2, 3, 10, and 12 


4128 110000 


32160 RESLOC 


LD 


DE,$-$ 


;Store location (RES$) 


412B 7B 


32170 


LD 


A,E 




412C B2 


32180 


OR 


D 


;Check if there 


412D 214744 


32190 


LD 


HL,RESREQ$ 


;Init "Must be resident 


4130 28EA 


32200 


JR 


Z, MOV NOT 


;Error if not in use 


4132 D5 


32210 


PUSH 


DE 


;0K, it's in use, 


4133 DDEl 


32220 


POP 


IX 


; are all modules 


4135 DD7E09 


32230 


LD 


A,(IX+2*2+5) 


; present and accounted 


4138 B7 


32240 


OR 


A 


;SYS2 resident? 


4139 28E1 


32250 


JR 


Z, MOV NOT 




413B DD7EJ9B 


32260 


LD 


A,(IX+3*2+5) 


;Is SYS3 resident? 


413E B7 


32270 


OR 


A 




413F 28DB 


32280 


JR 


Z, MOV NOT 




4141 DD7E19 


32290 


LD 


A,(IX+10*2+5) 


;Is SYS10 resident? 


4144 B7 


32300 


OR 


A 




4145 28D5 


32310 


JR 


Z, MOV NOT 




4147 DD7E1D 


32320 


LD 


A,(IX+12*2+5) 


;Is SYS12 resident? 


414A B7 


32330 


OR 


A 




414B CA1C41 


32340 


JP 


Z, MOV NOT 




414E 210038 


32350 MVBYC2 


LD 


HL,CLSBU 


;Move in special code 


4151 11002E 


32360 


LD 


DE, BACKUP 




4154 010009 


32370 


LD 


BC, CLSSIZ 




4157 EDB0 


32380 


LDIR 






4159 IB 


32390 SETBFR 


DEC 


DE 


;Set the buffer 


415A 14 


32400 


INC 


D 


; one page above the code 


415B 1E00 


32410 


LD 


E,0 
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415D ED531626 
4161 C3002E 



4164 CD6D41 
4167 3EE4 
4169 EF 

416A 3E84 
416C EF 



416D 
416E 
416F 
4171 
4174 
4175 
4177 
4178 
417A 
417C 
417E 
4180 
4182 
4184 
4185 
4186 
4187 
4189 



418B 



418B 
418D 
418E 
4191 
4194 
4195 
4195 
4197 
4198 
419B 
419C 
419E 
419F 
41A0 
41A2 
41A3 
41A5 
41A6 
41 A8 
41A9 
41AB 
41AC 



7A 

B3 

281A 

21002D 

E5 

0608 

lA 

FE0D 

282A 

FE2C 

2826 

FE22 

2822 

13 

77 

23 

10EE 

1820 



3E0A 

EF 

010008 

21002D 

E5 

3E09 

EF 

DAAC26 

EB 

2600 

68 

19 

3E08 

90 

2806 

47 

3620 

23 

10FB 

El 

E5 



32420 LD 

32430 JP 

32440 ; 

32450 ; 

32460 ; 

32470 GETMPW 

32480 

32490 

32500 ; 

32510 GETSYS2 

32520 

32530 ; 

32540 GMPWl 

32550 

32560 

32570 

32580 

32590 

32600 GMPW2 

32610 

32620 

32630 

32640 

32650 

32660 

32670 

32680 

32690 

32700 

32710 

32720 ; 

32730 ; 

32740 ; 

32750 GMPW3 

00262 

00263 

00264 

00265 

00266 

32760 

32770 

32780 

32790 

00267 

00268 RST 

32800 JP 

32810 EX 

32820 LD 

32830 LD 

32840 ADD 

32850 LD 

32860 SUB 

32870 JR 

32880 LD 

32890 GMPW4 LD 

32900 INC 

32910 DJNZ 

32920 GMPW5 POP 

32930 PUSH 



(BUFFERS), DE 
BACKUP 



and save starting posn 



Routine to get password 



CALL 

LD 

RST 

LD 
RST 

LD 

OR 

JR 

LD 

PUSH 

LD 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

INC 

LD 

INC 

DJNZ 

JR 



GMPWl 

A,0E4H 

28H 

A,84H 
28H 

A,D 

E 

Z,GMPW3 

HL.BUF3$ 

HL 

B,8 

A,(DE) 

CR 

Z,6MPW4 

z'6MPW4 
I II I 

Z,GMPW4 

DE 

(HL),A 

HL 

GMPW2 

GMPW5 



;Get SYS2 for hash 

;Load SYS2, no function 

;Pswd entered as parm? 
; Prompt if not 

;P/u pswd character 
;At end of line? 
; Space out if yes 
;Comma separator? 

;Closing quote? 
;Xfer the character 



Not entered as parm, grab from keyboard 

;Display request 



@@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

LD 

LD 

PUSH 

(30KEYIN 

LD A.9 



.1 
HL, 

A, 10 

40 

BC,8<8 

HL,BUF3$ 

HL 



40 

CABRTBU 

DE,HL 

H,0 

L,B 

HL,DE 

A, 8 

B 

Z,GMPW5 

B,A 

(HL),' ' 

HL 

GMPW4 

HL 

HL 



;Max 8 chars input 
; Point to buffer 

;6rab password 



;Abort on BREAK 
;Buf start to DE 
;Buf length to HL 

;Pt to 1st unused pos 
;Calculate spaces needed 

; Don't put any if 8 input 
;Set space counter 



;Rcvr pointer to buf 
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41 AD 0608 


32940 


LD 


B,8 


;Loop thru field 


41AF 7E 


32950 GMPW6 


LD 


A,(HL) 




41B0 FE61 


32960 


CP 


'a' 




41 B2 3806 


32970 


JR 


C,GMPW7 




41B4 FE7B 


32980 


CP 


'z'+l 




41 B6 3002 


32990 


JR 


NC,GMPW7 




41 B8 CBAE 


33000 


RES 


5,(HL) 


;Lc -> UC 


41BA 23 


33010 GMPW7 


INC 


HL 




41BB 10F2 


33020 


DJNZ 


GMPW6 




41BD Dl 


33030 


POP 


DE 


;Rcvr pointer to start 


41BE C9 


33040 
33050 ; 


RET 








33060 ; 


Check a 


drive for availability 




33070 ; 










33080 CKDRV 








41 BF 3AC827 


33090 


LD 


A,(CURDSK+1) 


;P/u drive spec 


41C2 4F 


33100 


LD 


C,A 


;Place in C 


41C3 FD7E00 


33110 


LD 


A,(IY+0) 


;P/u drive vector 


41C6 FEC3 


33120 


CP 


0C3H 


;Ck for enabled 


41C8 C24242 


33130 


JP 


NZ,CKDR5 


;Bypass if disabled 


41CB E5 


33140 


PUSH 


HL 




41CC D5 


33150 


PUSH 


DE 




41CD FD7E06 


33160 


LD 


A,(IY+6) 


;Make sure the current 


41D0 FDBE05 


33170 


CP 


(IY+5) 


; cylinder count is in range 


41D3 D2DC41 


33180 


JP 


NC, CKDRVl 


;Go if in range 


41D6 CD5E28 


33190 


CALL 


RESTOR 


;Restore drive 


41D9 C24F42 


33200 
33210 ; 


JP 


NZ,CKDR7A 


;Go if error 


41 DC FD5605 


33220 CKDRVl 


LD 


D,(IY+5) 


;P/u current track 


41 DF 1E00 


33230 


LD 


E,0 


;Set for sector 


41E1 


33240 


(a@SEEK 




;Set track info to FDC 


41E1 3E2E 


00269 


LD 


A, 46 




41E3 EF 


00270 


RST 


40 




41E4 2069 


33250 


JR 


NZ,CKDR7A 


;Go if error 


41E6 CD6328 


33260 


CALL 


RSELCT 


;Wait until not busy 


41E9 2064 


33270 


JR 


NZ,CKDR7A 


;Not there - ret NZ 


41EB FDCB035E 33280 


BIT 


3,(IY+3) 


;If hard drive, bypass 


41 EF 2047 


33290 


JR 


NZ,CKDR3A 


; GAT data update 


41F1 FDCB0466 


33300 


BIT 


4,(IY+4) 


;If "ALIEN" by pass 


41F5 201E 


33310 


JR 


NZ,CKDR2B 


; test of index pulses 




33320 


IF 


@M0D4 




41F7 3E09 


33330 


LD 


A,09 


;Set MSB of count down 


41F9 F3 


33340 
33350 


DI 
ENDIF 








33360 


IF 


@M0D2 






33370 


LD 


A, 20 






33380 


ENDIF 






41FA 320642 


33390 INTRON 


LD 


(CDCNT+1),A 


;Store in 'LD H' instruction 


41FD 212000 


33400 
33410 ; 


LD 


HL,0020H 


;Set up count (short) 




33420 ; 


Test for diskette in 


drive & rotating 




33430 ; 








4200 CD4342 


33440 CKDRl 


CALL 


INDEX 


;Test index pulse 


4203 20FB 


33450 


JR 


NZ, CKDRl 


;Jump on index 


4205 2600 


33460 CDCNT 
33470 


LD 


H,00H 


;CKDRV counter (long) 
;Count set from above 


4207 CD4342 


33480 CKDR2 


CALL 


INDEX 


;Test index pulse 


420A 28FB 


33490 


JR 


Z,CKDR2 


;Jump on no index 




33500 


IF 


@M0D4 
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420C FB 


33510 
33520 


EI 
ENDIF 




;0K for INTs now 


420D 212000 


33530 


LD 


HL,0020H 


; Index off wait (short) 


4210 CD4342 


33540 CKDR2A 


CALL 


INDEX 




4213 20FB 


33550 
33560 ; 


JR 


NZ,CKDR2A 


;Jump on index 




33570 ; 


Diskette is rotating 






33580 ; 








4215 F5 


33590 CKDR2B 


PUSH 


AF 


;Save FDC status 


4216 FD5609 


33600 


LD 


D,(IY+9) 




4219 210046 


33610 


LD 


HL.CKDRBUF 


; Point to HIT buffer 


421C 5D 


33620 


LD 


E,L 


; Sector for GAT 


421D 


33630 


(3@RDSSC 




;Read the GAT 


42 ID 3E55 


00271 


LD 


A, 85 




421F EF 


00272 


RST 


40 




4220 202C 


33640 


JR 


NZ,CKDR7 


;Jump on error 


4222 2 AC C 46 


33650 


LD 


HL,(CKDRBUF+0CCH) ;P/u excess trad 


4225 3E22 


33660 


LD 


A,22H 


;Add offset 


4227 85 


33670 


ADD 


A,L 




4228 FD7705 


33680 


LD 


(IY+6),A 


;Max track # to DCT 


422B FDCB04AE 


33690 


RES 


5,(IY-i-4) 


;Set to side 


422F CB6C 


33700 


BIT 


5,H 


;Test double sided 


4231 2804 


33710 


JR 


Z,CKDR3 


;Jump if only single 


4233 FDCB04EE 


33720 


SET 


5,(IY-f4) 


;Set for side 2 


4237 Fl 


33730 CKDR3 


POP 


AF 


;Recover FDC status 


4238 07 


33740 CKDR3A 


RLCA 




; Shi ft write prot to 7 


4239 FDB603 


33750 


OR 


(IY+3) 


; Merge Soft WP bit 


423C E680 


33760 


AND 


80 H 


; Strip all but 7 


423E 87 


33770 
33780 ; 


ADD 


A, A 


; Write prot to carry fig 


423F 


33790 CKDR4 


EQU 


$ 




423F FB 


33800 


EI 






4240 Dl 


33810 


POP 


DE 




4241 El 


33820 


POP 


HL 




4242 C9 


33830 CKDR5 


RET 






4243 7C 


33840 INDEX 


LD 


A,H 


;Count down tries 


4244 B5 


33850 


OR 


L 




4245 2807 


33860 


JR 


Z,CKDR7 


; Error if counted out 


4247 2B 


33870 


DEC 


HL 


;Dec the count 


4248 CD6328 


33880 


CALL 


RSELCT 


;Check for index pulse 


424B CB4F 


33890 


BIT 


l.A 


;Test index 


424D C9 


33900 


RET 




;Back with condition 


424E Fl 


33910 CKDR7 


POP 


AF 




424F 3E08 


33920 CKDR7A 


LD 


A»8 


;Set Device not avail 


4251 B7 


33930 


OR 


A 


;Set NZ ret 


4252 18EB 


33940 
33950 ; 


JR 


CKDR4 


;Leave 




33960 ; 


Data area 






33970 ; 










33980 PRMTBL$ 








0080 


33990 VAL 


EQU 


80H 




0040 


34000 SW 


EQU 


40 H 




0020 


34010 STR 


EQU 


20H 




0010 


34020 SGL 


EQU 


10H 




4254 D3 


34030 


DB 


'S'!80H 




4255 63 


34040 


DB 


SW!STR!3,'MPW', 





4D 50 57 


00 








0005 


34050 MPWRSP 


EQU 


$-PRMTBL$-l 




42 5 A DA30 


34060 


DW 


MPWPRM 
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425C 

000C 
4261 
4263 

0013 
4268 
42 6 A 

001A 
426F 
4271 

0023 
4278 
427A 



427D 
427F 

0030 
4285 
4287 

0037 
428C 
428E 

003 E 
4293 
4295 



73 
53 59 

102F 
53 
49 4E 

192F 
53 
4D 4F 

1226 
55 
51 55 

1426 
41 
58 00 

CA26 
34 
44 41 

D82E 
53 
4E 45 

0E26 
53 
4F 4C 

1026 



53 



56 



44 



34070 

00 

34080 SYSRSP 

34090 

34100 

00 

34110 INVRSP 

34120 

34130 



34140 MODRSP 
34150 
34160 
45 52 59 00 
34170 QRSP 
34180 
34190 

34200 XRSP 

34210 

34220 
54 45 00 

34230 DATRSP 

34240 

34250 
57 00 

34260 NEWRSP 

34270 

34280 



DB 

EQU 

DW 

DB 

EQU 

DW 

DB 

EQU 

DW 

DB 

EQU 

DW 

DB 

EQU 

DW 

DB 

EQU 

DW 

DB 

EQU 

DW 

DB 



4296 53 

69 6E 
69 76 
75 70 
69 64 
67 

42 B8 20 

3C 44 
63 65 

42 C9 44 

65 73 
6F 6E 
6E 6F 
61 74 

42E7 20 

2D 20 
20 61 
0D 

42F9 42 

41 43 

42FF 



42FF 20 

2D 20 
2D 20 



34290 OLDRSP EQU 
34300 DW 
34310 NOP 
34320 ; 

34330 NOINDO$ DB 
67 6C 65 20 64 72 
65 20 62 61 63 6B 
20 69 6E 76 61 6C 
20 64 75 72 69 6E 



34340 
4F 3E 20 

73 73 69 
34350 

74 69 6E 
20 64 69 
74 20 66 
74 65 64 

34360 
42 61 63 
62 6F 72 



DB 
70 72 6F 
6E 67 0D 
NOFMT$ DB 
61 74 69 
73 68 20 
6F 72 6D 



DB 



6B 75 70 
74 65 64 



DB 



SW!STR!SGL!3,'SYS',0 

$-PRMTBL$-l 

SYSPRM+1 

SW!SGL!3,'INV',0 

$-PRMTBL$-l 

INVPRM+1 

SW!SGL!3,'MOD',0 

$-PRMTBL$-l 
MODPRM$ 
SW!SGL!5,'QUERY' J 

$-PRMTBL$-l 

QPARM$ 

SW!1,'X',0 

$-PRMTBL$-l 

XPARM$+1 

STR!SGL!4,'DATE',0 

$-PRMTBL$-l 

DATPRM+1 

SW!SGL!3,'NEW',0 

$-PRMTBL$-l 
NEWPRM$ 
SW1SGL13,'0LD' J 

$-PRMTBL$-l 
OLDPRM$ 



'Single drive backup invalid during 



34370 HELLO$ 
4B 55 50 

34380 *GET CLIENT: 

34390 ;CLIENTS/ASM - 

34400 ; 

34410 DB 
36 2E 32 2E 30 20 
43 6F 70 79 72 69 



' <D0> processing' ,CR 



'Destination disk not formatted 



' - Backup aborted ',CR 



'BACKUP' 



File to establish sign-on headers 
' - 6.2.0 - Copyright 1982/83/84 by Logical 
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67 


68 74 20 31 39 38 32 


2F 


38 33 2F 38 34 20 62 


79 20 4C 6F 67 69 63 61 


6C 




4329 20 


34420 DB 


53 


79 73 74 65 6D 73 2C 


20 49 6E 63 2E 20 20 20 


20 20 20 0A 




34430 ; 


433E 41 


34440 DB 


6C 


6C 20 52 69 67 68 74 


73 


20 52 65 73 65 72 76 


65 


64 2E 20 4C 69 63 65 


6E 


73 65 64 20 31 39 38 


32 


2F 38 33 2F 38 34 


4366 20 


34450 DB 


74 


6F 20 78 78 78 78 78 


78 


78 78 78 78 78 78 78 


78 


78 78 78 78 0A 0D 


437E 43 


34460 LDOS$ DB 


6F 


6D 6D 61 6E 64 20 65 


78 


65 63 75 74 65 73 20 


6F 


6E 6C 79 20 66 72 6F 


6D 20 44 4F 53 20 52 65 


61 


64 79 0D 


43A3 50 


34470 PRMERR$ DB 


61 


72 61 6D 65 74 65 72 


20 65 72 72 6F 72 0D 


43B3 53 


34480 SRCNUM$ DB 


6F 


75 72 63 65 20 64 72 


69 


76 65 20 6E 75 6D 62 


65 


72 20 3F 20 20 20 20 


20 20 20 20 03 


43 Dl 44 


34490 DSTNUM$ DB 


65 


73 74 69 6E 61 74 69 


6F 


6E 20 64 72 69 76 65 


20 


6E 75 6D 62 65 72 20 


3F 


20 20 20 03 


43EF 4E 


34500 NODAT$ DB 


6F 


20 64 61 74 65 20 65 


73 


74 61 62 6C 69 73 68 


65 


64 0D 


4403 42 


34510 CLASS$ DB 


61 


63 68 75 70 20 62 79 


20 


63 6C 61 73 73 20 69 


6E 


76 6F 68 65 64 0D 


4418 0A 


34520 CLS1DB$ DB 


53 


69 6E 67 6C 65 20 64 


72 


69 76 65 20 42 41 43 


48 


55 50 20 69 6E 76 61 


6C 


69 64 20 62 79 20 66 


69 


6C 65 73 0D 




34530 IF 


4441 53 


34540 RES$ DB 


59 


53 52 45 53 


4447 0A 


34550 RESREQ$ DB 


54 


68 69 73 20 62 61 63 


68 


75 70 20 72 65 71 75 


69 


72 65 73 20 72 65 73 
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Systems, Inc. 



',10 



All Ricihts Reserved. Licensed 1982/83/84' 



to xxxxxxxxxxxxxxxxxx' ,10,13 



Command executes only from DOS Ready', CR 



'Parameter error' ,CR 



Source drive number ? 



.3 



Destination drive number ? ',3 



'No date established' ,CR 



'Backup by class invoked', CR 



LF, 'Single drive BACKUP invalid by files', CR 



.NOT. SMALL 

•SYSRES' ;Terminate with LF 

LF,'This backup requires residency 
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69 64 65 6E 63 79 20 
4467 6F 34560 DB 

66 20 53 59 53 27 73 3A 

20 32 2C 20 33 2C 20 31 

30 20 26 20 31 32 2E 0D 

34570 ENDIF 

34580 IF 

34590 RESREQ$ DB 

34600 DB 

34610 ENDIF 

4480 42 34620 RECON$ DB 

61 63 6B 75 70 2D 72 65 

63 6F 6E 73 74 72 75 63 
74 20 69 6E 76 6F 6B 65 

64 0D 
449B 43 34630 MIRRORS DB 

79 6C 69 6E 64 65 72 20 

63 6F 75 6E 74 20 64 69 

66 66 65 72 73 20 2D 20 
44B4 41 , 34640 DB 

74 74 65 6D 70 74 20 6D 
69 72 72 6F 72 2D 69 6D 
61 67 65 20 62 61 63 6B 

75 70 20 3F 20 03 
44 D3 4D 34650 PMTMPW$ DB 

61 73 74 65 72 20 70 61 

73 73 77 6F 72 64 20 3F 

20 20 20 20 20 20 03 

44EB IF 34660 MAXDAYS DB 

IC IF IE IF IE IF IF IE 

IF IE IF 

44F7 42 34670 BADFMT$ DB 

61 64 20 64 61 74 65 20 

66 6F 72 6D 61 74 0D 

4600 34680 CKDRBUF EQU 
0100 34690 DS 

4607 34700 LAST EQU 

00140 ; 
4607 00150 SUBTTL <> 
2E00 00160 END BACKUP 



'of SYS"s: 2, 3, 10 & 12.',CR 



SMALL 

'Backup by class requires the us' 

'e of a SYSTEM diskette! ' ,CR 

'Backup-reconstruct invoked', CR 



'Cylinder count differs - 



Attempt mirror-image backup ? ',3 



'Master password ? 



,3 



31,28,31,30,31,30,31,31,30,31,30,31 
'Bad date format' ,CR 



$<-8+l<8 
256 

$ 
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$A1 


2E9E $A2 


2F1D $EX4 


2EBB 


mi 


0000 @@2 


0000 ms 


0000 


0(34 


0000 @M0D2 


0000 @M0D4 


FFFF 


ABRTBU 


26AC ABRTBU$ 


2A0D ATTRIB 


316C 


AUTO 


00E0 BACKUP 


2E00 BACKUPA 


2E09 


BADFMT 


SUE BADFMT$ 


44F7 BADMPW$ 


28E6 


BCKl 


2E2B BCK2 


2E3F BCK3 


2E50 


BCK4 


2E6B BCK5 


2E77 BCK6 


2E9C 


BOOTST$ 


2600 BREAK 


26AC BSCLS 


3218 


BSMIR 


3005 BUCA0$ 


29FC BUCORE$ 


2A69 


BUF1$ 


2B00 BUF2$ 


2C00 BUF3$ 


2D00 


BUFFERS 


2616 BYCLAS 


30AB BYPASS 


30 B5 


BYSPACE 


332 E CANTBU 


2FEC CANTBU$ 


2A1F 


CCMOD$ 


29C6 CDCNT 


4205 CKBOOT 


2FF7 


CKCLAl 


2F21 CKCLAS 


2F0D CKDRl 


4200 


CKDR2 


4207 CKDR2A 


4210 CKDR2B 


4215 


CKDR3 


4237 CKDR3A 


4238 CKDR4 


423F 


CKDR5 


4242 CKDR7 


424E CKDR7A 


424F 


CKDRBUF 


4600 CKDRV 


41 BF CKDRV 1 


41 DC 


CKDST 


305F CKGAT 


2FF2 CKINV 


2FB7 


CKNAM 


2FC0 CKNAM0 


2FCE CKNAMl 


2FD8 


CKNAM2 


2FE5 CKOLD 


30 A2 CKSWDD 


2889 


CKTO 


2EF8 CLASS$ 


4403 CLS1DB$ 


441B 


CLSBU 


3800 CLSBU0 


2EA9 CLSBU01 


2ECC 


CLSBUl 


2EDE CLSBU2 


2EE4 CLSBU3 


2EED 


CLSBU4 


2EF6 CLSBU5 


2F1A CLSFLG$ 


2684 


CLSSIZ 


0900 CLSTST 


4100 CNTBAKl 


312C 


CORES 


3200 CPHLDE 


3382 CPRID 


2E36 


CPRLOK 


2EA6 CPYFIL$ 


3465 CPYMSG 


3147 


CR 


000D CURDSK 


27C7 CVDl 


31 A8 


CVD2 


31AA CVD3 


31 B0 CVD7 


31 B9 


CVTDEC 


3196 CYL$ 


3201 DAT 


00 D8 


DATFLD$ 


2678 DATPRM 


2ED7 DATRSP 


0030 


DIFDSTS 


298F DIFID$ 


3233 DIFSRC 


276B 


DIFSRCS 


295D DIOl 


287A DIRERR 


2692 


DOBU 


3161 DOFIL0 


323 A DOFIL02 


329D 


DOFIL03 


32 B2 DOFIL04 


32 B5 DOFIL05 


32 CB 


[X)FIL06 


32 CD DOFIL07 


32 D4 DOFIL08 


32 E2 


DOFIL09 


32E8 DOFILll 


32FD D0FIL12 


3347 


DOING 


345F DOINGl 


3462 DOMSG 


34CA 


DO NAM 


302A DONAMl 


3037 D0NAM2 


3041 


D0NAM4 


304F D0NAM5 


3059 DOSYSl 


31AB 


D0SYS2 


31FE DSTDFT 


301A.DSTDIR 


300E 


DSTDRV$ 


277A DSTNUM$ 


43D1 DSTWP$ 


28C1 


DUCYL 


2FA4 DUCYL$ 


31D7 DUCYLl 


2FA6 


DUCYL2 


2FE1 DUCYL2A 


300B DUCYL2B 


300 D 


DUCYL3 


301A DUCYL4 


3022 DUCYL5 


3025 


DUCYL6 


3030 ERREXIT 


26BA EXl 


28 B4 


EX2 


28BA EXIT 


26BD EXITl 


2685 


EXIT2 


2695 EXIT3 


2697 EXIT4 


26AF 


EXIT5 


26C9 EXIT5A 


26D8 EXIT5B 


26DF 


FCB1$ 


2618 FCB2$ 


2638 FCB3$ 


2658 


FCNTl 


nil FCNT2 


1555 FLASH 


27D3 


FLASH0 


27E3 FLSl 


27F9 FLS2 


2814 


FLS4 


2827 FLS5 


2828 FLSH6 


283D 


FMPAKDS 


2680 FMT 


0000 FRCDAT 


2F01 


FRCPMT 


27C1 FTFLG$ 


2601 FULDRV$ 


347D 


GET DAT 


2F5D GETDATl 


2F7B GETDST 


3446 
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GETGM 


2F6D GETMPW 


4164 GETSRC 


343 D 


GETSYS2 


416A GMPWl 


416D 6MPW2 


4177 


GMPW3 


418B GMPW4 


41A6 GMPW5 


41AB 


GMPW6 


41AF GMPW7 


41 BA GODOIT 


30A9 


GOTDST 


3047 GOTSRC 


2FAA HELLO$ 


42F9 


HITBUF 


3600 HITRD 


344 F IDMATCH 


2E9A 


INDEX 


4243 INTRON 


41FA INVPRM 


2F18 


INVRSP 


0013 LAST 


4607 LDCYL$ 


31C2 


LDCYL2 


2F70 LDCYL3 


2F7A LDCYL4 


2F7D 


LDCYL5 


2F81 LDCYL6 


2F88 LDCYL7 


2F8D 


LDCYL8 


2F9B LDOS$ 


437E LDTKS 


2F30 


LDTKSl 


2F37 LF 


000A LILBUFS 


2658 


LOCK 


0060 LRLOK 


3283 LSTBUF 


33D4 


LSTBUFl 


33D9 LSTBUF2 


33E1 MAKSPC 


3388 


MATCHES 


3029 MAX DAYS 


44 EB MFLG$ 


260D 


MIRBU 


3200 MIRROR 


30B7 MIRRORS 


449 B 


MIRSIZ 


0600 MODPRM$ 


2612 MODRSP 


001 A 


MONTBL 


3573 MOVID 


308F MOVNOT 


411C 


MPWPRM 


30DA MPWRSP 


0005 MVBYCl 


4122 


MVBYC2 


414E MVBYCLS 


4113 NDSYS$ 


26FB 


NEWDISK 


348B NEWPRM$ 


260E NEWRSP 


0037 


NODAT$ 


43EF NODOIT 


2FBD NOFMT$ 


42C9 


NOINDO$ 


4296 NOPRMPT 


3149 NOTDF 


343A 


NOT HARD 


3428 NOTMIR 


31 BC NOTMIRS 


3205 


NOTSYS 


2EE7 NOTSYSS 


353C OLDMPW 


2E66 


OLDMPW$ 


3272 OLDPRM$ 


2610 OLDRSP 


003 E 


OPENIT 


2F28 PACKID$ 


3255 PACKNDO 


2E97 


PAKDAT 


310B PARSDAT 


3154 PASSWORD 


42 E0 


PMTDD 


303D PMTDST 


2787 PMTDSTS 


293A 


PMTDSTl 


27 B0 PMTMPW$ 


44 D3 PMTSRC 


271A 


PMTSRC$ 


291C PMTSYS$ 


28FE PMTYN 


2E7E 


PMTYN$ 


32A4 PRMERR$ 


43A3 PRMTBL$ 


4254 


PROT$ 


2A4A PROTSEC 


2897 PRS4 


3180 


PRSDl 


3159 PRSD2 


3169 PRSD3 


317E 


PRSPEC 


30F0 PSl 


30FE PSRCl 


275F 


PSRC3 


2774 PSWD 


00CE QMl 


30C0 


QMARK$ 


356 E QPARM$ 


2614 QRSP 


0023 


QUERY 


3475 RDBOOT 


31EB RDSEC 


2872 


RECON 


30AE RECON$ 


4480 RES$ 


4441 


RESKFLG 


284C RESLOC 


4128 RESMF 


30 D0 


RESMFl 


30DC RESMF2 


30F0 RESMF2A 


314E 


RESMF2B 


3157 RESMF3 


3162 RESMF4 


316E 


RESMF5 


318D RESMF6 


318F RESREQS 


4447 


RESTOR 


285E RETCOD 


26C1 RSELCT 


2863 


SCDATl 


30 D2 SCDAT2 


30E7 SCDAT4 


311D 


SCNHl 


2F2A SCNH2 


2F2E SCNH3 


2F5C 


SCNH4 


2F9C SCNH4A 


2FA9 SCNH5 


2FF9 


SCNH6 


2FFA SCNH7 


3015 SCNHIT 


2F29 


SELECT 


2859 SET0 


3008 SETBFR 


4159 


SETBIT 


2F3A SETSYS 


2EA2 SGL 


0010 


SHOPROT 


308F SIZBIGS 


34FC SIZOK 


3269 


SIZSAV 


3258 SMALL 


0000 SPCFLD$ 


2602 


SPSAV 


26BD SRCDFT 


2F95 SRCDRV$ 


270D 


SRCNUMS 


43B3 STR 


0020 STRDIRS 


3103 


SVCTR 


28A1 SW 


0040 SXORD 


27CE 


SYSDEC 


3597 SYSDRVS 


2700 SYSPRM 


2F0F 


SYSRSP 


000C TKCAP 


00CC TOEXITl 


2F59 


TOPAKD$ 


2682 TST5 8 


304C TSTCAP 


3097 


TSTDRV 


2855 TSTMFLG 


2FF2 TSTMPW 


30CF 
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UNPACK 


33AE VAL 


VECYLl 


303C VECYL2 


VECYL4 


307A VECYL5 


VERSEC 


2877 VRBOOT 


WRBOOTl 


3218 WRB00T2 


WRGAT 


33BF WRSEC 


XPARM$ 


26C9 XRSP 


@@ADTSK 


6CF8 @@BANK 


@@BREAK 


7226 @0CHNIO 


(a^CKDRV 


6D4C @@CKEOF 


@(3CL0SE 


6EDB @(3CLS 


(a@CMNDR 


6CA4 men 


@@DCSTAT 


6D8B @(9DEBUG 


@@DIRRD 


70FD @(3DIRWR 


@@DIV8 


7166 @@DODIR 


@(3DSPLY 


6B18 @0ERROR 


@@FEXT 


706A (a@FLAGS 


@@FSPEC 


7055 @@GATRD 


@@GET 


6A8C @(36TDCB 


@@GTMOD 


70 BE @@HDFMT 


@@HEX8 


71BA (a@HEXDEC 


@@INIT 


6EB1 @@KBD 


(3@KEYIN 


6B04 (a@KLTSK 


@@LOC 


6F1A @@LOF 


@(3L0G0T 


6B64 mnsG 


@@MUL8 


713C @(aOPEN 


@@PAUSE 


6BFC mPEOF 


(30 PR I NT 


6BB0 @@PRT 


(3@RAMDIR 


6D76 @@RDSEC 


(a@READ 


6F6E @@REMOV 


(3@REW 


6F83 mmiSK 


@@RREAD 


6F98 @@RSLCT 


@@RUN 


7040 @@RWRIT 


geSEEKSC 


6FC2 mSKlP 


@(aSTEPI 


6DCA (30TIME 


@@VER 


6FEC @(3VRSEC 


@@WHERE 


6ADC @@WRITE 


§@WRSSC 


6E5D eeWRTRK 


2E00 is the 


transfer address 


00000 Total 


errors 
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0080 VECYL$ 31EC 

306E VECYL3 3078 

307E VECYL6 3084 

3232 WRBOOT 3209 

3223 WRERN 33F3 

2868 WRSYS 286D 

0028 @@ABORT 6C65 

7210 @(3BKSP 6EF0 

6C50 @@CKBRKC 7274 

6F05 mCKlSK 6CE3 

725E @@CMNDI 6C8F 

6AB4 @@DATE 6C26 

6CCE @@DECHEX 7190 

7112 @@DIV16 717B 

6D61 @@DSP 6A78 

6CB9 mEUJ 6C7A 

71FA (a@FNAME 707F 

70E8 @(9GATWR 7127 

70A9 @@GTDCT 7094 

6E33 @@HEX16 71CF 

71A5 @@HIGH$ 71E4 

6AF0 (3@KEY 6A64 

6D37 (a@LOAD 702B 

6F2F @@LOGER 6B4F 

6B9B mmiie 7151 

6EC6 @@PARAM 6C11 

6F44 @@POSN 6F59 

6AC8 @@PUT 6AA0 

6E09 (PiaRDSSC 70D3 

6E9C @(aRENAM 6E87 

6D0D (3@RPTSK 6D22 

6DF4 @@RSTOR 6DB5 

6FAD @@SEEK 6DDF 

6FD7 IPiaSLCT 6DA0 

6C3B mVDCll 6BE7 

6E1E @@WEOF 7001 

7016 mmSEC 6E48 
6E72 
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CLICK/FLT - Sound click device filter 

The Click filter can be used to generate a short clicking sound on the occurence of 

all characters sent to a device, or on a specific character only. Click will always 

install itself in high memory, and will not attempt to load in the low driver zone. 
It is installed with the SET and FILTER Library commands. 
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The Source 


UTILITY Fi 


les CLICK/FLT - 


LS- 


DOS 6.2 Page 00001 






00100 ; CLICK/ASM - Device Click F 


ilter 


0000 




00110 
00120 ; 
00130 ; 
00140 


TITLE <CLICK/FLT 
IF @M0D4 


- LS 


-DOS 6.2> 


0048 




00150 TONE 


EQU 48H 






0018 




00160 LEN 


EQU 18H 






0090 




00170 SNDPORT 

00180 

00190 


EQU 90H 

ENDIF 

IF @M0D2 










00200 LEN 


EQU 180H 




; Length 






00210 SNDPORT 


EQU 0A0H 










00220 


ENDIF 










00230 ; 








0000 




00240 *GET 


SVCMAC:3 




;SVC Macro equivalents 






00010 ;SVCMAC/ASM - LS-DOS Version VI 








00020 *LIST 


OFF 










03900 *LIST 


ON 






0000 




00250 *GET 


VALUES: 3 




;Misc. equates 






03920 ;VALUES/ASM - Version 6 










03930 *LIST OFF 










04200 *LIST ON 






0000 




00260 *GET 


COPYCOM: 3 




;Copyright messages 






04210 ; COPYCOM - File for Copyright 


COMment block 






04220 ; 








0000 




04230 
00270 ; 


COM '<*(C) 1982 


,83, 


84 by LSI*>' 


2400 




00280 
00290 ; 
00300 START 


ORG 2400H 






2400 




00310 


@@CKBRKC 






2400 3E6A 


00001 


LD A, 106 






2402 


EF 


00002 


RST 40 






2403 


2804 


00320 


JR Z, STARTA 




;Continue if no BREAK 


2405 


21FFFF 


00330 


LD HL,-1 




; set up abort RET 


2408 


C9 


00340 
00350 ; 


RET 






2409 


ED730B25 


00360 STARTA 


LD (EXIT+1),SP 




;Save stack for error exit 


240D CD1724 


00370 


CALL DOINIT 




;Do initialization 


2410 CD9624 


00380 


CALL INSTFLT 




;Relocate/install filter 


2413 


210000 


00390 NORMEX 


LD HL,0 




;Good exit 


2416 


C9 


00400 
00410 ; 


RET 










00420 ; 


Xfer DCB ptr to IX 


Si Stuff addrs' in driver 






00430 ; 








2417 


D5 


00440 DO I NIT 


PUSH DE 




;DE => DCB+0 


2418 


DDEl 


00450 


POP IX 




;Xfer to IX 


241A 


ED535F24 


00460 
00470 ; 
00480 ; 
00490 ; 


LD (DCB),DE 
Sign-on 




;Xfer into header 


241 E 


E5 


00500 


PUSH HL 






241F 


215125 


00510 


LD HL,HELLO$ 




;Sign on message 


2422 


CDEC24 


00520 
00530 ; 


CALL DSPLY 










00540 ; 


Check PARMS and if 


entry from SET command 






00550 ; 








2425 


111125 


00560 


LD DE,PRMTBL 




; Point to parms 


2428 


El 


00570 


POP HL 




;Recover cmdline posn 


2429 




00580 


(3@PARAM 




;Parse the parms 


2429 


3E11 


00003 


LD A, 17 
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les 


CLICK/FLT 


- LS- 


-DOS 6.2 Page 00002 


242B EF 


00004 




RST 


40 






242C C2F224 


00590 
00600 


> 


JP 


NZ,IOERR 




;Exit on parm error 


242F 


00610 




@@FLAGS 






;IY => System Flags Base 


242F 3E65 


00005 




LD 


A, 101 







2431 EF 


00006 




RST 


40 






2432 FDCB025E 00620 




BIT 


3,(IY+'C' 


-'A') 


; System request? 


2436 CAFD24 


00630 
00640 




JP 


Z,VIASET 




;"Install with SET 




00650 




Before 


anything - 


Make 


sure hi -mem is avail 




00660 












2439 FDCB0246 


00670 




BIT 


0,(IY+CFLAG$) 


;High memory available ? 


243D C20125 


00680 
00690 




JP 


NZ,CANT 




;No - display error 




00700 




Set up 


filter for 


CHAR 


if entered 




00710 












2440 110000 


00720 CHARPRM LD 


DE.00 




;Char parm lands here 


2443 7A 


00730 




LD 


A,D 




;Check if entered and 


2444 SB 


00740 




CP 


E 




; is normal character 


2445 C8 


00750 




RET 


Z 




;Done if not entered 


2446 FE00 


00760 




CP 







;Check is MSB is altered 


2448 3E2C 


00770 




LD 


A, 44 




;Init "Parameter error 


244A C2F224 


00780 
00790 


9 


JP 


NZ, lOERR 




;Bad if so 


244D 53 


00800 




LD 


D,E 




;Set up CP nn 


244E lEFE 


00810 




LD 


E,0FEH 




;Reverse it and 


2450 ED537424 


00820 




LD 


(CKCHAR), 


DE 


; put it in the filter 


2454 C9 


00830 
00840 


•*-*=* 


RET 










00850 




Actual 


CLICK filter Code 




00860 


•*=*=* 










2455 180C 


00870 


HEADER 


JR 


FILTER 






2457 0000 


00880 OLDHI 


DW 







;HIGH$ before CLICK 


2459 05 


00890 




DB 


5, 'CLICK' 






43 4C 49 


43 4B 












245 F 0000 


00900 


DCB 


DW 


$-$ 




;DCB pointing to CLICK 


2461 0000 


00910 
00920 


SPARE 


DW 







; System wants it 




00930 




Is ther 


e a charad 


ter here? 




00940 












2463 DD2A5F24 


00950 FILTER 


LD 


IX, (DCB) 




;P/u DCB address 


2467 3806 


00960 




JR 


C, NOTCTL 




;Go if Get 


2469 2804 


00970 




JR 


Z, NOTCTL 




; or Put 


246B 


00980 


IS_CTL 


@@CHNIO 






;Pass the CTL call 


246B 3E14 


00007 




LD 


A, 20 






246D EF 


00008 




RST 


40 






246E C9 


00990 




RET 








246F 


01000 


NOTCTL 


@0CHNIO 






;Go to next in line 


246F 3E14 


00009 




LD 


A, 20 






2471 EF 


00010 




RST 


40 






2472 C0 


01010 
01020 


» 


RET 


NZ 




;None - RETurn NZ 




01030 


» 


Generat 


e short Cli 


ck 






01040 


> 










2473 F5 


01050 


SOUND 


PUSH 


AF 




;Save registers 


2474 0000 


01060 CKCHAR 


DW 


00 




;Space for a CP instruct 


2476 201C 


01070 




JR 


NZ.POPAF 




; exit if CP above fails 


2478 C5 


01080 SNDNOW 


PUSH 


EC 






2479 D5 


01090 
01100 




PUSH 
IF 


DE 
@M0D2 








01110 




LD 


BCLEN 




;DTation 
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les 
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-DOS 6.2 Page 00003 




01120 


LD 


A,-l 


;0N value 




01130 


OUT 


(SNDPORT),A 


;Turn on sound 




01140 


LD 


A, 16 


;Svc ©PAUSE 




01150 


RST 


28 H 


; Del ay 




01160 


XOR 


A 


;OFF value 




01170 


OUT 


(SNDPORT),A 


;Turn off sound 




01180 


ENDIF 








01190 ; 










01200 


IF 


0MOD4 






01210 ; 








247A 111848 


01220 STFVALS 


LD 


DE,T0NE<8!LEN 


;D = Tone, E = Length 


247D 3E00 


01230 


LD 


A,0 


;Init on/off toggle 


247F 0E90 


01240 
01250 ; 


LD 


CSNDPORT 


; Point to port 




01260 ; 


ON port 


ion 






01270 ; 








2481 3C 


01280 DURLP 


INC 


A 


;Hold output high 


2482 ED79 


01290 


OUT 


(C),A 


; for count of (B) 


2484 42 


01300 


LD 


B,D 


;Play tone 


2485 10FE 


01310 
01320 ; 


DJNZ 


$ 






01330 ;OFF portion 








01340 ; 








2487 3D 


01350 


DEC 


A 


; for count of (B) 


2488 ED79 


01360 


OUT 


(C),A 




248A 42 


01370 


LD 


B,D 


;Hold output low for 


248B 10FE 


01380 
01390 ; 


DONZ 


$ 




248D ID 


01400 


DEC 


E 


;Dec the duration 


248E 20F1 


01410 


JR 


NZ, DURLP 




2490 10FE 


01420 
01430 
01440 ; 


DJNZ 
ENDIF 


$ 


;Hold for 256 count 


2492 Dl 


01450 


POP 


DE 


;Restore regs 


2493 CI 


01460 


POP 


BC 




2494 Fl 


01470 POPAF 


POP 


AF 




2495 C9 


01480 
01490 ; 


RET 




;And RETurn 


0041 


01500 LENGTH 
01510 ; 


EQU 


$-HEADER 


;Length of Filter 




01520 ; 


INSTFLT 


- Relocate & Install Filter 




01530 ; 








2496 DD360047 01540 INSTFLT 


LD 


(IX+0),47H 


;Set Filter,Ctl,Get,Put 




01550 ; 










01560 ; 


Pick up 


Old HIGH$ and 


save in driver 




01570 ; 








249A 210000 


01580 


LD 


HL,0 


;Get HIGH$ 


249 D 45 


01590 


LD 


B,L 




249E 


01600 


@@HIGHS 






249E 3E64 


00011 


LD 


A, 100 




24A0 EF 


00012 


RST 


40 




24A1 225724 


01610 
01620 ; 


LD 


(OLDHI),HL 


; Stuff into header 




01630 ; 


Calculate New HIGH$ & 


stuff into DCB 




01640 ; 








24A4 014100 


01650 


LD 


BC, LENGTH 


; Length of driver 


24A7 C5 


01660 


PUSH 


BC 


;Save length 


24A8 B7 


01670 


OR 


A 




24A9 ED42 


01680 


SBC 


^ HL,BC 


;HL => New HIGHS 


24AB 


01690 


@@HIGH1 


) 


;(B=0) set new HIGH$ 


24AB 3E64 


00013 


LD 


A, 100 
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- LS-DOS 6.2 Page 00004 


24AD EF 


00014 


RST 


40 




24AE 23 


01700 


INC 


HL 


;Pt to driver 


24AF DD7501 


01710 


LD 


(IX+1),L 


; Stuff driver address 


24B2 DD7402 


01720 
01730 ; 


LD 


(IX+2),H 


; into DCB 




01740 ; 


Calc offset between source & dest for relo 




01750 ; 








24B5 115524 


01760 


LD 


DE, HEADER 


;Start of driver 


24B8 E5 


01770 


PUSH 


HL 


;Save Source & Dest ptrs 


24B9 D5 


01780 


PUSH 


DE 




24BA B7 


01790 


OR 


A 


;Clear carry 


24BB ED52 


01800 
01810 ; 


SBC 


HL,DE 


;Get offset 




01820 ; 


Relocate 


e internal 


references in driver 




01830 ; 








24BD DD21DC24 


01840 


LD 


IX, RELTBL 


;Point to relocation tbl 


24C1 44 


01850 


LD 


B,H 


;Move to BC 


24C2 4D 


01860 


LD 


C.L 




24C3 DD6E00 


01870 RLOOP 


LD 


L,(IX) 


;Get address to change 


24C6 DD6601 


01880 


LD 


H,(IX+1) 




24C9 7C 


01890 


LD 


A,H 




24 CA B5 


01900 


OR 


L 




24CB 2819 


01910 


JR 


Z, RELDUN 




24CD 5E 


01920 


LD 


E.(HL) 


;P/U address 


24CE 23 


01930 


INC 


HL 




24CF 56 


01940 


LD 


D,(HL) 




24 D0 EB 


01950 


EX 


DE,HL 


; Offset it 


24 Dl 09 


01960 


ADD 


HL,BC 




24 D2 EB 


01970 


EX 


DE,HL 




24 D3 72 


01980 


LD 


(HL),D 


;Put it back 


24 D4 2B 


01990 


DEC 


HL 




24 D5 73 


02000 


LD 


(HL).E 




24 D6 DD23 


02010 


INC 


IX 




24 D8 DD23 


02020 


■INC 


IX 




24DA 18E7 


02030 
02040 ; 


JR 


RLOOP 


;Loop till done 




02050 ; 


Relocat 


ion Table 


for Driver 




02060 ; 








24 DC 6524 


02070 RELTBL 


DW 


FILTER+2, 


0,0,0,0 


0000 0000 0000 0000 










02080 ; 










02090 ; 


Transfer Filter code to high memory 




02100 ; 








24E6 El 


02110 RELDUN 


POP 


HL 


;HL => Source DE => Dest 


24E7 Dl 


02120 


POP 


DE 




24E8 CI 


02130 


POP 


BC 


;BC = length of filter 


24E9 EDB0 


02140 


LDIR 




;Block move. 


24EB C9 


02150 
02160 ; 


RET 




;RETurn 




02170 ; 


DSPLY - 


Display a 


string 




02180 ; 








24 EC D5 


02190 DSPLY 


PUSH 


DE 


;Save DE 


24 ED 


02200 


(a@DSPLY 




; Display it 




00015 


IFEQ 


00H,1 






00016 


LD 


HL, 






00017 


ENDIF 






24ED 3E0A 


00018 


LD 


A, 10 




24EF EF 


00019 


RST 


40 




24F0 Dl 


02210 


POP 


DE 


, 


24F1 C8 


02220 
02230 ; 


RET 


Z 


; Ret urn if good 
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02240 ; 


lOERR 


- Any fatal 


Errors come here 




02250 ; 








24F2 6F 


02260 lOERR 


LD 


L.A 


;Xfer error # to HL 


24F3 2600 


02270 


LD 


H,0 


3 


24F5 F6C0 


02280 


OR 


0C0H 


;Short msg & RETurn 


24F7 4F 


02290 


LD 


C,A 




24F8 


02300 


(30 ERROR 


;Di splay error 


24F8 3E1A 


00020 


LD 


A, 26 




24 FA EF 


00021 


RST 


40 




24FB 180D 


02310 
02320 ; 


JR 


EXIT 


;Go to exit routine 




02330 ; 


Error 


Handler 






02340 ; 








24FD 213C25 


02350 VIASET LD 


HL,VIASET$ 


;" Install with Set 


2500 DD 


02360 


DB 


0DDH 




2501 212225 


02370 CANT 
02380 ; 


LD 


HL, CANTS 


;"No memory space 


2504 


02390 


@@LOGOT 


;Log error 




00022 


IFEQ 


00H,1 






00023 


LD 


HL. 






00024 


ENDIF 






2504 3E0C 


00025 


LD 


A, 12 




2506 EF 


00026 


RST 


40 




2507 21FFFF 


02400 
02410 ; 


LD 


HL,-1 


;Set abort code 


250A 310000 


02420 EXIT 


LD 


SP.$-$ 


;P/u original SP 


250D 


02430 


(3@CKBRKC 


;Clear out break 


250D 3E6A 


00027 


LD 


A, 106 




250F EF 


00028 


RST 


40 




2510 C9 


02440 
02450 ; 


RET 




; and RETurn 


2511 43 


02460 PRMTBl 


. DB 


'CHAR ' 




48 41 52 


20 20 








2517 4124 


02470 


DW 


CHARPRM+1 




2519 43 


02480 


DB 


'C 




20 20 20 20 20 








251F 4124 


02490 


DW 


CHARPRM+1 




2521 00 


02500 
02510 ; 
02520 ; 


NOP 




;End of table 


2522 4E 


02530 CANT$ 


DB 


'No memory 


space available' ,CR 


6F 20 6D 65 6D 6F 72 


79 






20 73 70 61 63 65 20 61 






76 61 69 


6C 61 62 6C 


65 






0D 










253C 4D 


02540 VIASET$ DB 


'Must instc 


ill via SET',CR 


75 73 74 20 69 6E 73 


74 






61 6C 6C 


20 76 69 61 


20 






53 45 54 


0D 
02550 ; 








2551 43 


02560 HELL03 


> DB 


'CLICK' 




4C 49 43 


4B 








2556 


02570 *GET 


CLIENT 


:3 






04240 ;CLIENTS/ASM - 


File to establish sign-on headers 




04250 ; 








2556 20 


04260 


DB 


' - 6.2.0 - 


Copyright 1982/83/84 by Logical 


2D 20 36 


2E 32 2E 30 20 






2D 20 43 6F 70 79 72 


69 






67 68 74 


20 31 39 38 


32 






2F 38 33 


2F 38 34 20 62 






79 20 4C 6F 67 69 63 


61 
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6C 














2580 20 






04270 






DB 




53 


79 


73 


74 65 


6D 


73 


2C 




20 49 


6E 


63 2E 


20 20 20 




20 20 


20 0A 
















04280 


» 






2595 


41 






04290 






DB 




6C 


6C 


20 


52 69 


67 


68 


74 




73 


20 


52 


65 73 


65 


72 


76 




65 


64 


2E 


20 4C 69 


63 


65 




6E 


73 


65 


64 20 


31 


39 


38 




32 


2F 


38 


33 2F 


38 


34 




25BD 


20 






04300 






DB 




74 


6F 20 78 78 


78 


78 


78 




78 


78 


78 


78 78 


78 


78 


78 




78 


78 


78 


78 78 


0A 0D 












02580 


» 






2400 








02590 






EN! 



to xxxxxxxxxxxxxxxxxx' ,10,13 



START 
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mi 


0000 m2 


@@4 


0000 @M0D2 


ABB 


0010 AP 


BS 


0008 CANT 


CFLA6$ 


0002 CHARPRM 


CR 


000 D DCB 


[X3INIT 


2417 DSPLY 


ETX 


0003 EXIT 


FLAG 


0040 HEADER 


INSTFLT 


2496 lOERR 


KFLAG$ 


000 A LEN 


LF 


000A NORMEX 


NUM 


0080 OLDHI 


POPAF 


2494 PRMTBL 


RELTBL 


24 IX RLOOP 


SNDNOW 


2478 SNDPORT 


SPARE 


2461 START 


STFVALS 


247A STR 


TONE 


0048 VFLAG$ 


VIASET$ 


253C (a@ABORT 


@(3BANK 


85CB 0(aBKSP 


@@CHNIO 


800B (a^CKBRKC 


@0CKEOF 


82C0 @§CKTSK 


§(aCLS 


8619 @@CMNDI 


@@CTL 


7E6F eeOATE 


§0DEBUG 


8089 @@ DEC HEX 


©(aoiRWR 


84CD 0@DIV16 


@(3D0DIR 


811C @@DSP 


@(3 ERROR 


8074 @@EXIT 


@@FLAGS 


85 B5 @@FNAME 


eeGATRD 


84A3 (a@GATWR 


@@GTDCB 


8464 @@GTDCT 


0@HDFMT 


81 EE @@HEX16 


@@HEXDEC 


8560 (a@HIGH$ 


@@KBD 


7EAB @@KEY 


@@KLTSK 


80F2 @(3L0AD 


(a@LOF 


82 EA @@LOGER 


@@MSG 


7F56 @§MUL16 


@0OPEN 


8281 (a@PARAM 


@@PEOF 


82FF @@POSN 


@@PRT 


7E83 @(apUT 


@@RDSEC 


81C4 (a@RDSSC 


(agREMOV 


8257 @0RENAM 


(a@RMTSK 


80C8 @0RPTSK 


(3@RSLCT 


81 AF @@RSTOR 


@0RWRIT 


8368 @@SEEK 


(30 SKIP 


8392 ({XaSLCT 


@@TIME 


7FF6 eeVDCTL 


eiaVRSEC 


81 D9 0@WEOF 


@@ WRITE 


83D1 @@WRSEC 


@0WRTRK 


822D 


2400 is the 


transfer address 


00000 Total 


errors 
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0000 ms 


0000 


(3M0D4 


0027 


BREAK 


2501 


CANT$ 


2440 


CKCHAR 


245F 


DFLAG$ 


24 EC 


DURLP 


250A FILTER 


2455 


HELLO$ 


24F2 


IS CTL 


0018 


LENGTH 


2413 


NOTCTL 


2457 


PAR ERR 


2511 


RELDUN 


24C3 SFLAG$ 


0090 


SOUND 


2400 


STARTA 


0020 


TAB 


0015 VIASET 


8020 (a@ADTSK 


82AB 


(3(3 BREAK 


862F 


@@CKDRV 


809E (a@CLOSE 


804A @@CMNDR 


7FE1 


0@DCSTAT 


854B 


@(3DIRRD 


8536 


(3@DIV8 


7E33 


0(3 DSPLY 


8035 @@FEXT 


843A 


@@FSPEC 


84E2 


@(3GET 


844F 


(3@GTM0D 


858A 


(3@HEX8 


859F 


(3@INIT 


7E1F 


@@KEYIN 


83E6 


@@LOC 


7F0A @@LOGOT 


850C mmi8 


7FCC 


(3@ PAUSE 


8314 


(3(3PRINT 


7E5B 


@@RAMDIR 


848 E 


0@READ 


8242 


@@REW 


80DD @@RREAD 


8170 @0RUN 


819A 


(3@SEEKSC 


815B 


@(3STEPI 


7FA2 


@@VER 


83 BC 


@(3WHERE 


8203 


@@WRSSC 



FFFF 
0080 
2522 
2474 
0003 
2481 
2463 
2551 
246B 
0041 
246F 
002C 
24 E6 
0012 
2473 
2409 
0009 
24FD 
80 B3 
85 El 
8107 
8296 
805 F 
8146 
84 B8 
8521 
7ED3 
8425 
8410 
7E47 
8479 
8575 
826C 
7EBF 

82 D5 
7F1F 
84F7 
7FB7 
7F6B 
8131 
8329 
833 E 
8353 

83 FB 
837 D 
8185 
83A7 
7E97 
8218 
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COM/DVR - RS232 hardware driver 

The Com driver program will initialize the UART and allow characters to be sent and 

received via the RS232 hardware. The driver will attempt to install itself in the low 

driver zone, but will relocate to high memory if necessary. It must be installed with 
the SET Library command. 
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0000 

000A 
000 D 



00100 ; COM/ASM - RS232 Driver Program 

00110 TITLE '<COM/DVR - LS-DOS 6.2>' 

00120 ; 

00130 LF EQU 10 

00140 CR EQU 13 

00150 ; 

00160 *GET C0PYC0M:3 ;Copyright message 

00010 ; COPYCOM - File for Copyright COMment block 

00020 ; 

00030 COM •<*(C) 1982,83, 

00170 *GET SVCMAC:3 

00040 ;SVCMAC/ASM - LS-DOS Version VI 

00050 *LIST OFF 



% by LSI*>' 

;SVC Macro equivalents 





03930 *LIST 


ON 








00180 ; 








2400 


00190 
00200 ; 
00210 BEGIN 


ORG 


2400 H 




2400 


00220 


(3(9CKBRKC 




2400 3E6A 


00001 


LD 


A, 106 




2402 EF 


00002 


RST 


40 




2403 2804 


00230 


JR 


Z,BEGINA 


;Continue if no BREAK 


2405 21FFFF 


00240 


LD 


HL,-1 




2408 C9 


00250 
00260 ; 


RET 




;Return with abort code 


2409 D5 


00270 BE6INA 


PUSH 


DE 


;Save DCB address 


240A DDEl 


00280 


POP 


IX 


; in index reg 


240C ED537F26 


00290 


LD 


(CLDCB),DE 


; and in driver header 


2410 


00300 


(aiaoSPLY HELLO$ 


; Wei come the user 




00003 


IFEQ 


01H,1 




2410 215B25 


00004 
00005 


LD 
ENDIF 


HL,HELLO$ 




2413 3E0A 


00006 


LD 


A, 10 




2415 EF 


00007 
00310 ; 


RST 


40 






00320 ; 


Check 


if entry from SET 


command 




00330 ; 








2416 


00340 


(3(aFLAGS 


;IY => flag table base 


2416 3E55 


00008 


LD 


A. 101 




2418 EF 


00009 


RST 


40 




2419 FDCB025E 00350 


BIT 


3,(IY+'C'-'A') 


;System request? 


241D CA3325 


00360 
00370 ; 


JP 


Z,VIASET 


;" Install with Set 




00380 ; 


Grab 


system dependent vectors 




00390 ; 








2420 FDE5 


00400 


PUSH 


lY 


;Set DE to flag base 


2422 Dl 


00410 


POP 


DE 




2423 210A00 


00420 


LD 


HL,'K'-'A' 


;KFLAG$ 


2426 19 


00430 


ADD 


HL,DE 




2427 223127 


00440 


LD 


(KFLAG),HL 


;Save keyboard flag locn 


242A 211200 


00450 


LD 


HL,'S'-'A' 


;SFLAG$ 


242D 19 


00460 


ADD 


HL,DE 




242E 225327 


00470 


LD 


(SFLAG),HL 


;Save system flag location 


2431 211600 


00480 


LD 


HL,'W'-'A' 


;WRINT$ 


2434 19 


00490 


ADD 


HL,DE 




2435 229026 


00500 


LD 


(WRINT),HL 


;Save int mask 


2438 21DEFF 


00510 


LD 


HL, 10-44 


;INTVC$+10 


243B 19 


00520 


ADD 


HL,DE 


;Save for receive int 


243C 228D26 


00530 
00540 ; 


LD 


(INTVC),HL 


; vector 




00550 ; 


Move 


(PICNFG vector into 


driver 
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243F FD7E1C 
2442 329A26 
2445 FD6E1D 
2448 FD661E 
244B 229B26 



244E 115725 
2451 
2451 3E53 

2453 EF 

2454 EB 

2455 201A 



2457 
2458 
2459 
245A 
245 D 

245 E 
245F 
2460 
2461 
2462 
2465 
2468 
2469 
246B 

246 E 
2471 
2474 
2474 
2476 
2477 
247A 
2478 
247C 
247D 

247 E 
2481 
2484 
2485 
2488 
248B 
248C 
248E 



4E 

23 

46 

210600 

09 

7E 

2C 

66 

6F 

221D26 

2A7F26 

B7 

ED42 

C23725 

C31425 

114B49 

3E52 

EF 

C24825 

2D 

56 

2D 

5E 

22FA24 

21EF00 

19 

22C424 

010013 

AF 

ED42 

382D 



00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00010 
00011 
00670 



00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 



00810 
00820 
00830 



00850 

00860 

00870 NOTRES 

00880 

00012 

00013 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 



2490 FDCB0246 
2494 C23B25 
2497 210000 
249A 45 
249 B 

249B 3E64 
249 D EF 
249E 22C424 



00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
00014 
00015 
01100 



LD 
LD 
LD 
LD 
LD 



A,(IY+28) 

(LINK),A 

L,(IY+29) 

H,(IY+30) 

(LINK+1),HL 



;Get current opcode 
;Save in driver 
;Get current address 
;Put in driver code 



Check if driver alread resident 



LD DE,CL$ 

@(aGTMOD 

LD A,83 

RST 40 

EX DE,HL 

JR NZ, NOTRES 



;Check if driver is 
; already resident 



;Put DCB ptr to HL 
;Go if not 



Make sure that the new DCB is same as the old 



LD 

INC 

LD 

LD 

ADD 

LD 

INC 

LD 

LD 

LD 

LD 

OR 

SBC 

JP 

JP 

LD 

@@GTDCB 

LD 

RST 

JP 

DEC 

LD 

DEC 

LD 

LD 

LD 

ADD 

LD 

LD 

XOR 

SBC 

JR 



C,(HL) 

HL 

B,(HL) 

HL,6 

HL,BC 

A,(HL) 

L 

H,(HL) 

L,A 

(DCBNAM$),HL 

HL,(CLDCB) 

A 

HL J BC 

NZ,DCBERR 

ISRES 

DE,'IK' 

A, 82 



;P/u DCB pointer LSB 

;P/u DCB pointer MSB 
;Get old DCB name & 
; stuff into error 
; message in case 
; a different DCB 
; is referenced 

; Stuff message with spec 
;P/u DCB existing DCB 
; pointer 
;Same DCB pointer? 
;Can't install if diff 



; Locate low memory ptr 
;Go if not found 



;P/u pointer to 
; start of free 
; low core 
;Save ptr for later 



NZ, lOERR 

L 

D,(HL) 

L 

E J (HL) 

(LCPTR+1),HL 

HL,CLEND-CLDVR-1 

HLjDE ;Start + driver length 

(SVEND+1),HL 

BC,1300H ;Max addr + 1 

A 

HL,BC ;See if room low 

CPUTLOW ; and install there if so 



Check if high memory available 

BIT 0,(IY+'C'-'A') ; Memory frozen? 

JP NZ,NOROOM ; Can't install if so 

LD HL,0 

LD B,L ;Get HIGH$ 

@@HIGH$ 

LD A, 100 

RST 40 

LD (SVEND+1),HL ;Top of driver 
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24A1 B7 


01110 


OR 


A 




24 A2 01F000 


01120 


LD 


BC,CLEND-CLDVR 


; minus length 


24A5 ED42 


01130 


SBC 


HL.BC 




24A7 0600 


01140 


LD 


B,0 




24A9 E5 


01150 


PUSH 


HL 




24AA 


01160 


mmmt 




; is new HIGH$ 


24 AA 3E64 


00016 


LD 


A, 100 




24AC EF 


00017 


RST 


40 




24AD El 


01170 


POP 


HL 




24AE 23 


01180 


INC 


HL 


;Plus one is start 


24AF 225525 


01190 


LD 


(HCPTR),HL 


;Save it 


24B2 215525 


01200 


LD 


HL,HCPTR 


; and point to it 


24B5 22FA24 


01210 


LD 


(LCPTR+1),HL 




24B8 3EFF 


01220 


LD 


A,0FFH 


.Flag himem used 


24BA 322525 


01230 
01240 , 


LD 


(HGHFLG),A 






01250 . 


Relocate internal references in driver 




01260 , 








24BD DDE5 


01270 [ 


WLOW PUSH 


IX 




24BF DD216727 


01280 


LD 


IX,RELTAB 


.Point to relocation tbl 


24C3 210000 


01290 : 


5VEND LD 


HL,$-$ 


.Find distance to move 


24C6 227926 


01300 


LD 


(CLDVR+2),HL 


.Set last byte used 


24C9 116627 


01310 


LD 


DE,CLEND-1 




24CC B7 


01320 


OR 


A 


;Clear carry flag 


24CD ED52 


01330 


SBC 


HL,DE 




24 CF 44 


01340 


LD 


B,H 


;Move to BC 


24D0 4D 


01350 


LD 


C,L 




24D1 3E0D 


01360 


LD 


A,TABLEN 


;Get table length 


24 D3 DD6E00 


01370 RLOOP LD 


L.(IX) 


.Get address to change 


24 D6 DD6601 


01380 


LD 


H,(IX+1) 




24D9 5E 


01390 


LD 


E,(HL) 


;P/U address 


24 DA 23 


01400 


INC 


HL 




24 DB 56 


01410 


LD 


D,(HL) 




24DC EB 


01420 


EX 


DE,HL 


.Offset it 


24 DD 09 


01430 


ADD 


HL,BC 




24 DE EB 


01440 


EX 


DE.HL 




24 DF 72 


01450 


LD 


(HL),D 


;Put it back 


24E0 2B 


01460 


DEC 


HL 




24E1 73 


01470 


LD 


(HL).E 




24E2 DD23 


01480 


INC 


IX 




24E4 DD23 


01490 


INC 


IX 




24E6 3D 


01500 


DEC 


A 




24E7 20EA 


01510 


JR 


NZ, RLOOP 


;Loop till done 


24 E9 DDEl 


01520 
01530 


POP 


IX 


;Restore DCB 




01540 


» Set up 


@ICNF6 






01550 








24EB 218926 


01560 


LD 


HL.INIT 


.Get (relocated) 


24 EC 


01570 f 


mi EQU 


$-2 




24EE FD751D 


01580 


LD 


(IY+29),L 


, init address & put 


24F1 FD741E 


01590 


LD 


(IY+30),H 


, into system ICNFG area 


24F4 3EC3 


01600 


LD 


A,0C3H 


.Get JP instruction 


24F6 FD771C 


01610 
01620 


LD 


(IY+28),A 


.Turn on ICNFG 




01630 , 


Move dr 


iver 






01640 , 








24F9 210000 


01650 L 


-CPTR LD 


HL,$-$ 


.Low core or himem pointe 


24FC 5E 


01660 


LD 


E,(HL) 




24FD 2C 


01670 


INC 


L 




24FE 56 


01680 


LD 


D,(HL) 




24FF D5 


01690 


PUSH 


DE 


;Save start 
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The Source 


UTILITY Fi 


les 


COM/DVR - LS-D 


2500 217726 


01700 




LD 


HL,CLDVR 


2503 01F000 


01710 




LD 


BC,CLEND-CLDVR 


2506 EDB0 


01720 




LDIR 




2508 2AFA24 


01730 




LD 


HL,(LCPTR+1) 


250B 73 


01740 




LD 


(HL),E 


250C 2C 


01750 




INC 


L 


250D 72 


01760 
01770 ; 




LD 


(HL),D 




01780 ; 




Initial 


ize the driver 




01790 ; 








250E F3 


01800 




DI 




250F CD8926 


01810 




CALL 


INIT 


2510 


01820 RXll 


EQU 


$-2 


2512 FB 


01830 
01840 ; 




EI 




2513 Dl 


01850 
01860 , 




POP 


DE 


2514 212026 


01870 ] 


SRES 


LD 


HL,CLACT$ 


2517 DD360007 


01880 




LD 


(IX), 7 


251 B DD7301 


01890 




LD 


(IX+1),E 


251E DD7202 


01900 




LD 


(IX+2),D 


2521 


01910 




0@LO6OT 






00018 




IFEQ 


00H,1 




00019 




LD 


HL, 




00020 




ENDIF 




2521 3E0C 


00021 




LD 


A, 12 


2523 EF 


00022 




RST 


40 


2524 3E00 


01920 




LD 


A,$-$ 


2525 


01930 I 


^GHFLG 


EQU 


$-1 


2526 B7 


01940 




OR 


A 


2527 2806 


01950 




JR 


Z,NTHGH 


2529 215026 


01960 




LD 


HL,HMEM$ 


252C 


01970 




@@LOGOT 






00023 




IFEQ 


00H,1 




00024 




LD 


HL, 




00025 




ENDIF 




252C 3E0C 


00026 




LD 


A,12 


252E EF 


00027 




RST 


40 


252F 210000 


01980 


MTHGH 


LD 


HL,0 


2532 C9 


01990 
02000 


1 


RET 






02010 


» 


Error exits 




02020 


» 






2533 213B26 


02030 


i/IASET 


LD 


HL,VIASET$ 


2536 DD 


02040 




DB 


0DDH 


2537 210126 


02050 


DCBERR 


LD 


HL,DCBERR$ 


253A DD 


02060 




DB 


0DDH 


253B 21E725 


02070 


NOROOM 


LD 


HL,NOROOM$ 


253E 


02080 




(a@LOGOT 






00028 




IFEQ 


00H,1 




00029 




LD 


HL, 




00030 




ENDIF 




253E 3E0C 


00031 




LD 


A, 12 


2540 EF 


00032 




RST 


40 


2541 21FFFF 


02090 




LD 


HL,-1 


2544 


02100 




(a@CKBRKC 


2544 3E6A 


00033 




LD 


A, 106 


2546 EF 


00034 




RST 


40 


2547 C9 


02110 




RET 





Page 00004 



Calc driver length 
Move into place 
If driver went low, 
need to update new 
driver zone pointer 



;Init the UART 



;Pop filter start 

;Advise COM/DVR installed 
;Init DCB type to "C/P/G" 
; & stuff the driver 
: address 



;Did it use high memory? 

;NZ if high 

;" Driver in hi mem.. . 



;Init on error code 
: and exit 



;"Install with Set 
;"Driver being used already 
;" Memory frozen 



2548 6F 



02120 ; 
02130 lOERR 



LD 



L,A 



;Set abort code 
;Clear any break 



;Error code to HL 
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UTILITY F- 


lies 


COM/DVR 


- LS-DOi 


; 6.2 Page ! 


2549 2600 




02140 


LD 


H,0 






254B F6C0 




02150 


OR 


0C0H 




;Set short, return 


254D 4F 




02160 


LD 


C,A 




; Error to C 


254E 




02170 


@@ERROR 






; for error dsply 


254E 3E1A 




00035 


LD 


A, 26 






2550 EF 




00036 


RST 


40 






2551 




02180 


eeCKBRKC 




;Clear any break 


2551 3E6A 




00037 


LD 


A. 106 






2553 EF 




00038 


RST 


40 






2554 C9 




02190 
02200 ; 


RET 












02210 ; 


Messages & Data 


tables 








02220 ; 










2555 0000 




02230 HCPTR 


DW 







;Save start if goii 


2557 24 




02240 CL$ 


DB 


'$CL',3 






43 4C 03 












255B 52 




02250 HELLO$ 


DB 


'RS-232 


Dri ver ' 




53 2D 


32 


33 32 20 44 72 








69 76 


65 


72 











2568 



02260 ; 

02270 *GET CLIENT:3 

03950 ;CLIENTS/ASM - File to establish sign-on headers 

03960 ; 

' - 6.2.0 - Copyright 1982/83/84 by Logical 



2568 20 






03970 




DB 




2D 20 


36 


2E 32 2E 


30 20 




2D 20 43 6F 70 79 


72 


69 




67 


68 


74 


20 31 39 


38 


32 




2F 


38 


33 


2F 38 34 


20 62 




79 


20 4C 6F 67 69 63 


61 




6C 












2592 


20 






03980 




DB 




53 


79 


73 


74 65 6D 


73 


2C 




20 49 


6E 


63 2E 20 20 20 




20 20 20 0A 














03990 ; 






25A7 


41 






04000 




DB 




6C 


6C 


20 52 69 67 68 


74 




73 


20 52 


65 73 65 


72 


76 




65 


64 2E 20 4C 69 63 


65 




6E 


73 


65 


64 20 31 


39 


38 




32 


2F 


38 


33 2F 38 


34 




25CF 


20 






04010 




DB 




74 6F 20 78 78 78 


78 


78 




78 


78 


78 


78 78 78 


78 


78 




78 


78 


78 


78 78 0A 0D 












02280 ; 






25E7 


4E 






02290 NOROOM$ DB 




6F 20 6D 65 6D 6F 


72 


79 




20 73 


70 61 63 65 


20 61 




76 


61 


69 


6C 61 62 


6C 


65 




0D 












2601 


44 






02300 DCBERR$ DB 




72 


69 


76 


65 72 20 61 


6C 




72 


65 


61 


64 79 20 61 


74 




74 


61 


63 


68 65 64 20 74 




6F 


20 2A 78 78 0D 






261D 








02310 DCBNAM$ EQU 


2620 43 






02320 CLACTI 


5 DB 




4F 4D 20 64 72 69 


76 


65 




72 


20 69 73 20 6E 6F 77 




20 72 


65 


73 69 64 


65 


6E 



Systems, Inc 



M0 



'All Rights Reserved. Licensed 1982/83/84' 



to xxxxxxxxxxxxxxxxxx' ,10,13 



'No memory space available' ,CR 



'Driver already attached to *xx',CR 



$-3 

'COM driver is now resident',CR 
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UTILITY Files 



COM/DVR - LS-DOS 6.2 



Page 00006 



74 0D 
263B 4D 

75 73 
61 6C 
53 45 

2650 0A 

4E 6F 
69 76 
74 61 
6E 20 
65 6D 

00E0 



00E8 
00E8 
00E9 
00EA 
00 EA 
00EB 



2677 

2677 1831 
2679 6727 
267B 03 

24 43 
267F 
2681 
2683 



2683 



0001 

2684 A5 

2685 55 
0003 

2686 03 
0004 

2687 00 
0005 

2688 00 



02330 
74 20 69 
6C 20 76 
54 0D 

02340 

74 65 3A 

65 72 20 

6C 6C 65 

68 69 67 

6F 72 79 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

4C 

02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 



2689 211827 

268A 

268C 220000 



VIASET$ DB 
6E 73 74 
69 61 20 

HMEM$ DB 
20 64 72 
69 6E 73 
64 20 69 
68 20 6D 
0D 

eWRINT EQU 
WRINT$ EQU 

MASRES EQU 
MODSTAT EQU 
BAUDSET EQU 
UARTCTL EQU 
UARTST EQU 
DATAREG EQU 



'Must install via SET',CR 



LFj'Note: driver installed in high memory' ,CR 



CLDVR 



02810 INIT 
02820 RX02 
02830 



0E0H 
80H 

0E8H 
0E8H 
0E9H 
0EAH 
0EAH 
0EBH 



;RS232 ports 



Actual driver 



EQU 
OR 
DW 
DB 



CLDCB DW 
DW 
CLDATA$ EQU 
MSMASK EQU 
DB 



CLBGN 
CLEND 
3,'$CL' 

$-$ 



$ 

$-CLDATA$ 



; Branch around linkage 
;Last byte used 



UART control port image 

bit 7: 1 = even parity, = odd parity 

bits 6,5: word length <00=5, 10=6, 01=7, 11=8> 

bit 4: 1 = 2 stop bits, 0=1 stop bit 

bit 3: 1 = disable parity, = enable parity 

bit 2: 1 = enable transmit data, = break 

bit 1: = Data Terminal Ready 

bit 0: = Request to Send 



UC IMAGE EQU 

DB 
BAUDRT DB 
LOGBRK EQU 

DB 
CLFLG EQU 

DB 
CLBUF EQU 

DB 



$-CLDATA$ 

0A5H 

55H 

$-CLDATA$ 

3 

$-CLDATA$ 



$-CLDATA$ 



;Init 300 baud 
; Default is Control -C 
;Init no char in buf 
;One-char buffer 



CL initialization routine. Set up DR interrupt 
vector & initialize the hardware 



LD 

EQU 

LD 



HL,RECVINT 
$-2 
($-$), HL 



; Vector address 
;INTVC$+10 
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The Source 


UTILITY Fi 


les 


COM/DVR - LS-DOS 


6.2 Page 00007 


268 D 


02840 INTVC 


EQU 


$-2 




268F 218000 


02850 


LD 


HL,WRINT$ 


Interrupt enable mask 


2690 


02860 WRINT 


EQU 


$-2 




2692 CBEE 


02870 


SET 


5,(HL) 


Enable RS232 DR 


2694 7E 


02880 


LD 


A.(HL) 




2695 D3E0 


02890 


OUT 


((aWRINT),A 




2697 CD9D26 


02900 


CALL 


CTL2 


Init the hardware 


2698 


02910 RX03 


EQU 


$-2 




269A C9 


02920 LINK 


RET 




;Link back thru any 


269B 00 
00 


02930 


OB 


0.0 


existing ICNFG 


02940 ; 




1 






02950 ; 


Initia 


lize the UART & BRG 




02960 ; 








269D ED4B8426 


02970 CTL2 


LD 


BC,(CLDATA$+UC IMAGE) ;P/u values from DCB 


269F 


02980 RX04 


EQU 


$-2 




26A1 D3E8 


02990 


OUT 


(MASRES),A 


Reprime UART 


26A3 79 


03000 


LD 


A,C 




26A4 D3EA 


03010 


OUT 


(UARTCTL),A 




26A6 78 


03020 


LD 


A,B 




26A7 D3E9 


03030 


OUT 


(BAUDSET),A 




26A9 C9 


03040 
03050 ; 


RET 






26AA DD218326 


03060 CLB6N 


LD 


IX,CLDATA$ 


.Point to data area 


26AC 


03070 RX05 


EQU 


$-2 




26AE 3855 


03080 


JR 


CRECV 


Go if @GET request 


26B0 2841 


03090 


JR 


Z.SEND 


,Go if @PUT request 


26B2 79 


03100 


LD 


A,C 


;P/U eCTL byte 


26B3 B7 


03110 


OR 


A 


,(aCTL 00 ? 


26B4 2826 


03120 


JR 


Z, CANISND 


,Go if so 


26B6 3D 


03130 


DEC 


A 


■Mil 01 ? 


26B7 2857 


03140 


JR 


Z,CTL1 


;Go if so 


26B9 3D 


03150 


DEC 


A 


.Was it CTL-2 "INIT UART" 


26BA 28E1 


03160 


JR 


Z,CTL2 


;Go if so 


26BC FE02 


03170 


CP 


4-2 


;Wakeup feature? 


26BE 2802 


03180 


JR 


Z,CTL4 


,Go if wakeup feature 


26C0 AF 


03190 


XOR 


A 




26C1 C9 


03200 
03210 ; 


RET 






26C2 FDE5 


03220 CTL4 


PUSH 


lY 


; Transfer pointer to HL 


26C4 El 


03230 


POP 


HL 




26C5 7C 


03240 


LD 


A,H 


;Test if set or reset 


26C6 B5 


03250 


OR 


L 




26C7 3EC9 


03260 


LD 


A,0C9H 


, Init disable wakeup 


26C9 EB 


03270 


EX 


DE,HL 


; Switch new value to DE 


26CA 2A2127 


03280 


LD 


HL,(WAKEADR+1) 


; & p/u old in HL 


26CB 


03290 RX06 


EQU 


$-2 




26CD 2802 


03300 


JR 


Z, SETWAK 


;Jump if disable 


26CF 3EC3 


03310 


LD 


A,0C3H 


;Make enable 


26D1 322027 


03320 SETWAK 


LD 


(WAKE ADR), A 


;Load the opcode 


26D2 


03330 RX07 


EQU 


$-2 




2604 ED532127 


03340 


LD 


(WAKEADR+1),DE 


;Then the address 


26D6 


03350 RX08 


EQU 


$-2 




26D8 E5 


03360 


PUSH 


HL 


; Transfer pointer to lY 


2609 FDEl 


03370 


POP 


lY 




26DB C9 


03380 
03390 ; 


RET 








03400 ; 


Check 


if ready to send 






03410 ; 








26DC DBEA 


03420 CANISND 


IN 


A,(UARTST) 


;Look at TX empty bit 


260E 2F 


03430 


CPL 




;Flip it 
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UTILITY Files 



COM/DVR - LS-DOS 6.2 



Page 



26 DF 
26 El 
26E3 
26E4 
26 E5 
26 E8 
26E9 
26 EA 
26 EB 
26 EC 
26 EF 
26F1 
26F2 



E640 

DBE8 

C0 

47 

DDAE0a 

IF 

IF 

IF 

IF 

DDA600 

E60F 

78 

C9 



26F3 DD7E01 
26F6 D3EA 
26F8 CDDC26 
26F9 

26FB 20FB 
26FD 79 
26FE D3EB 
2700 C9 



2701 CD2327 
2702 

2704 C0 

2705 DDCB0426 
2709 30F6 
270B DD7E05 
270E BF 

270F C9 



2710 DD7E01 
2713 CB97 
2715 D3EA 
2717 C9 



2718 DD218326 

271A 

271C CD2327 

271D 

271F 78 

2720 C9 

2721 



2723 DBEA 

2725 47 

2726 E680 
2728 EE80 
272A 3E00 
272C C0 



03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 



SEND 

SWA IT 
RX09 



RECVl 
RX10 

RECV 



CTLl 



AND 

IN 

RET 

LD 

XOR 

RRA 

RRA 

RRA 

RRA 

AND 

AND 

LD 

RET 



40 H 

A,(mDSTAT) 

NZ 

B,A 

(IX+MSMASK) 



(IX+MSMASK) 
0FH 



A,B 



;Mask out all else 
;P/U modem status reg 
;Return if can't send 
;Save modem status reg 
;Mask for which to flip 
;Move into bits 0-3 



;Mask for which to check 

;Mask off garbage 

;Get back reg 

;Ret with Z or NZ 



Send character 



LD A,(IX+UCIMAGE) ;Get UART Ctrl reg 

OUT (UARTCTL),A ;Put it (clears BREAK) 

CALL CANISND ;Poll 

EQU $-2 

JR NZ,SWAIT ; until ready 

LD A,C ;Get byte to send 

OUT (DATAREG),A ;Send it with Z-flag 

RET ; unchanged for return 

Receive character - Get from buffer if available 

;Ck if avail from port 



CALL 

EQU 

RET 

SLA 

JR 

LD 

CP 

RET 



CKINP 

$-2 

NZ 

(IX+CLFLG) 

NC, RECVl 

A,(IX+CLBUF) 

A 



;Back if none 

;Ck if avail from buf 

;Go if none avail 

;Get the char 

;Set Z-flag & exit 



Break request 



RECV I NT 
RX13 

RX12 

WAKEADR 



CKINP 



LD A,(IX+UCIMAGE) ;Pick up UART ctl image 

RES 2, A ;Show BREAK bit 

OUT (UARTCTL),A 

RET ;With Z-flag 

Data received interrupt handler 

;Base of data area 



LD 

EQU 

CALL 

EQU 

LD 

RET 

DW 



IX,CLDATA$ 

$-2 

CKINP 

$-2 

A,B 





;See if available from port 



;Wakeup if enabled 
;Space for address 



Routine to check on a received character 



IN A,(UARTST) 

LD B,A 

AND 80H 

XOR 80 H 

LD A,0 

RET NZ 



;Check if actually RX 
;Save status 
;Mask Data Received bit 
;Set NZ if none avail 
;Set "No error" 
;Return if none 
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The Source 


UTILITY Fi 


les 


COM/DVR - LS-DOS 6.2 Page 00009 


272D DBEB 


04050 


IN 


A,(DATAREG) 


;Pick up character 


272F 4F 


04060 
04070 ; 


LD 


C,A 


;Save tempy in reg-C 




04080 ; 


Breaks 


Pause & Enter handler routine 




04090 ; 








2730 210000 


04100 


LD 


HL,$-$ 


;KFLAG$ 


2731 


04110 KFLAG 


EQU 


$-2 




2733 FE0D 


04120 


CP 


OR 


;ENTER char received? 


2735 2004 


04130 


JR 


NZ, PAWSCK 


;Go if not 


2737 CBD6 


04140 


SET 


2,{HL) 


;Set ENTER bit 


2739 1823 


04150 
04160 ; 


JR 


RECVEX 




273B FE60 


04170 PAWSCK 


CP 


60 H 


; Pause char received? 


27 3D 2004 


04180 


JR 


NZ, BRKCHK 


;Go if not 


273F CBCE 


04190 


SET 


1,(HL) 


;Set pause bit 


2741 181B 


04200 
04210 ; 


JR 


RECVEX 




2743 DD7E03 


04220 BRKCHK 


LD 


A,(IX+LOGBRK) 


; Break char received? 


2746 B7 


04230 


OR 


A 


; Check if LOGBRK=0 


2747 2815 


04240 


JR 


Z, RECVEX 


;No valid break if =0 


2749 89 


04250 


CP 


C 


;Check if a valid BREAK 


274A 2806 


04260 


JR 


Z, BRKRECD 


;Go if so 


274C DBEA 


04270 


IN 


A,(UARTST) 


; Check for framing error 


274E CB67 


04280 


BIT 


4,A 




2750 280C 


04290 
04300 ; 


JR 


Z, RECVEX 


;Quit if none 




04310 ; 


A BREAK 


: was received, ck system's BREAK disable 




04320 ; 








2752 3A0000 


04330 BRKRECD 


LD 


A,($-$) 


;Check if break key 


2753 


04340 SFLAG 


EQU 


$-2 




2755 E610 


04350 


AND 


10H 


; is disabled 


2757 3E00 


04360 


LD 


AJ 


; Return NZ & A=0 if 


2759 C0 


04370 


RET 


NZ 


; the BREAK is disabled 


275A CBC6 


04380 


SET 


0,(HL) 


;Else set break bit 


275C 0E80 


04390 


LD 


Cs80H 


; & reset BREAK code 


275E DD7105 


04400 RECVEX 


LD 


(IX+CLBUF),C 


;Put char into 1-char buf 


2761 DD360480 04410 


LD 


(IX+CLFLG),80H 


; & set char available 


2765 AF 


04420 


XOR 


A 


;Set Z flag 


2766 C9 


04430 


RET 






2767 


04440 CLEND 
04450 ; 


EQU 


$ 




2767 EC24 


04460 RELTAB 


DW 


RX01,RX02,RX03, 


,RX04,RX05 sRX06 ,RX07 ,RX08 


8A26 9826 9F26 AC26 CB26 D226 


D626 




2777 F926 


04470 


DW 


RX09,RX10,RX1L 


,RX12,RX13 


0227 1025 1D27 1A27 








000 D 


04480 TABLE N 
04490 ; 


EQU 


$-RELTAB/2 




2400 


04500 


END 


BEGIN 
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mi 


0000 002 


@@4 


0000 0MOD2 


eWRINT 


00E0 BAUDRT 


BEGIN 


2400 BEGINA 


BRKRECD 


2752 CANISND 


CL$ 


2557 CLACT$ 


CLBUF 


0005 CLDATA$ 


CLDVR 


2677 CLEND 


CR 


000D CTLl 


CTL4 


26C2 DATAREG 


DCBERR$ 


2601 DCBNAM$ 


HELLO$ 


255B HGHFLG 


INIT 


2689 INTVC 


ISRES 


2514 KFLAG 


LF 


000A LINK 


MASRES 


00E8 MODSTAT 


NOROOM 


253B NOROOM$ 


MTHGH 


252F PAWSCK 


RECV 


2705 RECVl 


RECVINT 


2718 RELTAB 


RX01 


24EC RX02 


RX04 


269F RX05 


RX07 


26 D2 RX08 


RX10 


2702 RXll 


RX13 


271A SEND 


SFLAG 


2753 SVEND 


TABLEN 


000D UARTCTL 


UCIMAGE 


0001 VIASET 


WAKEADR 


2720 WRINT 


@@ABORT 


948A 00ADTSK 


@0BKSP 


9715 00BREAK 


eeCKBRKC 


9A99 00CKDRV 


@@CKTSK 


9508 00CLOSE 


@@CMNDI 


94B4 00CMNDR 


@@DATE 


944B 00 DC STAT 


@@DECHEX 


99B5 00DIRRD 


@@DIV16 


99A0 00DIV8 


@@DSP 


929D 00DSPLY 


mEXll 


949F 00FEXT 


mFumE 


98A4 00FSPEC 


@@GATWR 


994C 00GET 


@@GTDCT 


98B9 00GTMOD 


00 HEX 16 


99F4 00HEX8 


00HIGH$ 


9A09 00 INIT 


00 KEY 


9289 00KEYIN 


00LOAD 


9850 00LOC 


00LOGER 


9374 00LOGOT 


00MUL16 


9976 00MUL8 


00 PAR AM 


9436 00 PAUSE 


00POSN 


977E 00PRINT 


00 PUT 


92 C5 00RAMDIR 


00RDSSC 


98F8 00READ 


00 RE NAM 


96AC 00REW 


00RPTSK 


9547 00RREAD 


00RSTOR 


95 DA 00RUN 


00 SEEK 


9604 00SEEKSC 


00 SLOT 


95C5 00STEPI 


00VDCTL 


940C 00VER 


00WEOF 


9826 00WHERE 


00WRSEC 


966D 00WRSSC 



COM/DVR - LS-DOS 6,2 
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0000 


003 


0000 0MOD4 


2685 


BAUDSET 


2409 


BRKCHK 


26 DC 


CKINP 


2620 


CLBGN 


2683 


CLDCB 


2767 


CLFLG 


2710 


CTL2 


00EB 


DCBERR 


261D 


HCPTR 


2525 


HMEM$ 


268D 


lOERR 


2731 


LCPTR 


269A 


LOGBRK 


00E8 MSMASK 


25E7 


NOTRES 


273B 


PUTLOW 


2701 


RECVEX 


2767 


RLOOP 


268A RX03 


26AC 


RX06 


26 D6 RX09 


2510 RX12 


26F3 


SETWAK 


24C3 


SWAIT 


00 EA 


UARTST 


2533 


VIASET$ 


2690 WRINT$ 


951D 


00 BANK 


9A4B 


00CHNIO 


9571 


00CKEOF 


9700 00CLS 


94C9 00CTL 


95 B0 00 DEBUG 


9922 


00DIRWR 


998B 


00DODIR 


933 D 


00 ERROR 


988F 


00FLAGS 


987A 


00GATRD 


92B1 


00GTDCB 


98E3 


00HDFMT 


99 DF 


00HEXDEC 


96 D6 


00KBD 


9329 


00KLTSK 


973F 


00LOF 


9389 


00MSG 


9961 


00OPEN 


9421 


00PEOF 


93 D5 


00PRT 


959B 


00RDSEC 


9793 


00 RE MOV 


97 A8 


00RMTSK 


97 BD 


00RSLCT 


9865 


00RWRIT 


97E7 00SKIP 


95 EF 


00TIME 


9811 


00VRSEC 


9301 


00WRITE 


9682 


00WRTRK 



FFFF 
00E9 
2743 
2723 
26AA 
267F 
0004 
269 D 
2537 
2555 
2650 
2548 
24F9 
0003 



2471 
24BD 
275E 
24 D3 
2698 
26CB 
26F9 
271D 
26D1 
26F8 
00 EA 
263B 
0080 
9A35 
9475 
972A 
9A83 
92D9 
94F3 
9937 
9586 
94 DE 
9A1F 
990D 
98CE 
9658 
99CA 
9315 
955C 
9754 
93C0 

96 EB 
9769 
92ED 
962E 
96C1 
9532 
9619 

97 D2 
97 FC 
9460 
9643 
983 B 
9697 
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2400 is the transfer address 
Total errors 
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COMM/CMD - Terminal program with file send and receive 

The Comm utility program acts as a terminal for communications work. Its features 
include file send and receive, and fully buffered device I/O (including printer 
spooling). 
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Page 00001 



0000 
FFFF 



00100 *GET LCOMM 

00010 ;LCOMM/ASM - COMM Communications Program 
TITLE <COMM - LS-DOS 6.2> 

<Program Code Section>' 



000A 
000 D 
0013 



0000 



00030 SUBTTL 

00040 ; 

00050 BUFFRD EQU -1 

00060 BREAK EQU 80H 

00070 LF EQU 10 

00080 CR EQU 13 

00090 XOFF EQU 'S'&IFH 

00100 ; 

00110 *GET SVClviAC:3 

00120 ;SVCMAC/ASM - LS-DOS Version VI 

00130 *LIST OFF 

04010 *LIST ON 

04030 *GET C0PYC0M:3 

04040 ; COPYCOM - File for Copyright COMment block 

04050 ; 



;Set true 

;Char fm keyboard 



;SVC Macro equivalents 



;Copyright messages 



0000 


04060 
04070 


s 


COM 


'<*(C) 1982,83, 


,84 by LSI*>' 


3000 


04080 


BASE 


EQU 


3000H 




3000 


04090 
04100 


» 


ORG 


BASE 




3000 210000 


04110 


$EXIT 


LD 


HL,0 


;Init no error 


3003 310000 


04120 QUITS 


LD 


SP4-$ 


;P/u original stack 


3004 


04130 


STACK 


EQU 


$-2 




3006 


04140 




(a@CKBRKC 


;Clear break bit 


3006 3E6A 


00001 




LD 


A, 106 




3008 EF 


00002 




RST 


40 




3009 C9 


04150 
04160 


» 


RET 






300A 21FFFF 


04170 $ABORT 


LD 


HL,-1 


;Set abort code 


300D 18F4 


04180 
04190 


9 


JR 


QUITS 




300F E5 


04200 $OPEN 


PUSH 


HL 




3010 210000 


04210 




LD 


HL,$-$ 


;Address of SFLAG$ 


3011 


04220 


SFLG 


EQU 


$-2 




3013 CBC6 


04230 




SET 


09(HL) 


;Set open inhibit bit 


3015 El 


04240 




POP 


HL 




3016 


04250 




@(aOPEN 




;Do the open 


3016 3E3B 


00003 




LD 


A, 59 




3018 EF 


00004 




RST 


40 




3019 C9 


04260 
04270 


9 


RET 




;Return with status 


301A C5 


04280 $ERROR 


PUSH 


BC 




301 B F6C0 


04290 




OR 


0C0H 


;Set short, return 


301 D 4F 


04300 




LD 


C,A 


; Error code to C 


301 E 


04310 




(9(9 ERROR 




; for error display 


301E 3E1A 


00005 




LD 


A, 26 




3020 EF 


00006 




RST 


40 




3021 CI 


04320 




POP 


BC 




3022 C9 


04330 
04340 


9 


RET 






3023 3E00 


04350 


MAINLP 


LD 


A,0 


;Test warning flag set 


3025 B7 


04360 




OR 


A 


; by OUTPUT on NEXTAP 


3026 280F 


04370 




JR 


Z,ENUFPG 


;Go if > 2K of space 


3028 21AC37 


04380 




LD 


HL,LILPG$ 


;Display warning 


302 B 


04390 




mospu 








00007 




IFEQ 


00H,1 






00008 
00009 




LD 
ENDIF 


HL, 
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Section 








302 B 3E0A 


00010 


LD 


A,10 




302 D EF 


00011 


RST 


40 




302E 3E13 


04400 


LD 


A,XOFF 


; Schedule a forced PUT 


302 F 


04410 X0FFP2 


EQU 


$-1 




3030 325234 


04420 


LD 


(FRCPUT+D^A 




3033 AF 


04430 


XOR 


A 




3034 322430 


04440 


LD 


(MAINLP+1),A 


; Inhibit until next page 


3037 DD219536 


1 04450 ENUFPG 


LD 


IX^KIVCTR 


;Get key from buffer if 


303B CDB438 


04460 


CALL 


P6MGET 


; available 


303 E 2022 


04470 


JR 


NZ.SENDIT 


; Bypass if got one 


3040 3E00 


04480 FSSW 


LD 


AJ 


;FS On/Off (XMIT File) 


3042 B7 


04490 


OR 


A 




3043 2832 


04500 


JR 


Z, FSOFF 


; Bypass if not XMTG 


3045 3AAD38 


04510 CKFREPG 


LD 


A,(FREEPG) 


; Don't get from file 


3048 FE0C 


04520 


CP 


12 


; if < 3K buffer space 


304A DA7730 


04530 


JP 


C, FSOFF 


;Go if less 


304D 110438 


04540 


LD 


DE,FS_FCB 


;Get sending FCB 


3050 


04550 FSSWGO 


@@GET 




;Get a byte to XMIT 


3050 3E03 


00012 


LD 


A, 3 




3052 EF 


00013 


RST 


40 




3053 280D 


04560 


JR 


Z.SENDIT 


; Bypass if got byte 


3055 FEIC 


04570 


CP 


ICH 


;EOF encountered? 


3057 2803 


04580 


JR 


Z, EOFFS 


; Bypass if EOF 


3059 CD1A30 


04590 


CALL 


$ERROR 


;Output error message 


305C CDDA33 


04600 EOFFS 


CALL 


FS OFF 


;Turn off XMIT 


305F C3F430 


04610 


JP 


SKIPREC 


; and ignore this round 


3062 4F 


04620 SE-NDIT 


LD 


C,A 


;Xfer byte 


3063 FE00 


04630 XLTSl 


CP 





;Single character send 


3065 2002 


04640 


JR 


NZ, DPLXSW 


; translate table 


3067 0E00 


04650 XLTS2 


LD 


C,0 




3069 0600 


04660 DPLXSW 


LD 


B,0 


; Duplex On/Off 


306 B 04 


04670 


INC 


B 




306C 05 


04680 


DEC 


B 


;Display on our devices 


306D C41631 


04690 


CALL 


NZ, DEVOUT 


; if duplex on (half) 


3070 3AFA33 


04700 LCMON 


LD 


A,(TASK8A+2) 


;Ck CL on 


3073 B7 


04710 


OR 


A 




3074 C40231 


04720 


CALL 


NZ,SNDOUT 


;Send char if ON 


3077 3AFA33 


04730 FSOFF 


LD 


A,(TASK8A+2) 


;Test for CL ON 


307A B7 


04740 


OR 


A 




307 B CAF430 


04750 


JP 


Z, SKIPREC 


;Go if not 


307E DD219D38 04760 


LD 


IX.CLREC 




3082 CDB438 


04770 


CALL 


PGMGET 


;Ck for char avail 


3085 CAF430 


04780 


JP 


Z, SKIPREC 


;Go if no char 


3088 0600 


04790 DSPCTRL 


LD 


B,0 


;Ck if display of control 


308A 04 


04800 


INC 


B 


; codes is in effect 


308B 05 


04810 


DEC 


B 




308C 2813 


04820 


JR 


Z,SAVCHR 


;Go if no Ctrl display 


308E FE20 


04830 


CP 


20H 




3090 300F 


04840 


JR 


NCSAVCHR 


;Go if not ctrl 


3092 F5 


04850 


PUSH 


AF 


;Save the char 


3093 21BF35 


04860 


LD 


HL,BRAKET+1 


;Pt to control char msg 


3096 4F 


04870 


LD 


C,A 




3097 


04880 


@@HEX8 




;Cvrt char & stuff in buf 


3097 3E62 


00014 


LD 


A3 98 




3099 EF 


00015 


RST 


40 




309A 21 BE 35 


04890 


LD 


HL,BRAKET 


; Start of msg string 


309 D 


04900 


(a@DSPLY 




;Display ASCII control va 




00016 


IFEQ 


00H,1 






00017 


LD 


HL, 
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00018 


ENDIF 






309 D 3E0A 


00019 


LD 


A, 10 




309F EF 


00020 


RST 


40 




30 A0 Fl 


04910 


POP 


AF 


;Rcvr char 


3aAl 4F 


04920 SAVCHR 


LD 


C,A 


.Save char 


30A2 0600 


04930 SHAKE 


LD 


B,0 


.Handshake On/Off 


30A4 04 


04940 


INC 


B 




30A5 05 


04950 


DEC 


B 




30A6 2820 


04960 


JR 


Z, ECHOSW 


.Go if off 


30A8 FEll 


04970 


CP 


'Q'&IFH 


.Ctrl-Q? 


30A9 


04980 XONPl 


EQU 


$-1 


; Modify if PARM 


30AA 2806 


04990 


JR 


Z,CTLQ 


Go if so 


30AC FEB 


05000 


CP 


'S'&IFH 


.Ctrl-S? 


30AD 


05010 XOFFPl 


EQU 


$-1 


;Modify if parm entered 


30AE 2008 


05020 


JR 


NZ,NOSQ 


.Go if neither 


30 60 0600 


05030 


LD 


BJ 


.Turn off 


30 B2 78 


05040 CTLQ 


LD 


A,B 


. or on 


30B3 324534 


05050 


LD 


(TASK8B+1),A 


*CL send task 


30 B6 183C 


05060 


JR 


SKIPREC 


[Discard Ctrl code 


30 B8 FE12 


05070 NOSQ 


CP 


'R'&IFH 


.Ctrl-R? 


30 BA 2806 


05080 


JR 


Z,CTLR 


;Go if so 


30 BC FE14 


05090 


CP 


'T'&IFH 


.Ctrl-T? 


30 BE 2008 


05100 


JR 


NZ, ECHOSW 


,Go if neither 


30C0 0600 


05110 


LD 


B,0 


.Turn off 


30C2 78 


05120 CTLR 


LD 


A,B 


. or on 


30C3 322E31 


05130 


LD 


(FRSW+1),A 


;FR device 


30C6 182C 


05140 
05150 ; 


JR 


SKIPREC 


[Discard ctrl code 




05160 ; 


Test 


for ECHO after checking for handshake chars 




05170 ; 








30C8 0600 


05180 ECHOSW 


LD 


BJ 


;Echo On/Off? 


30CA 04 


05190 


INC 


B 




30CB 05 


05200 


DEC 


B 




30CC C4FA30 


05210 


CALL 


NZ, CLOUT 


;Send char back if ON 


30CF 79 


05220 


LD 


A,C 




30D0 FE0D 


05230 


CP 


CR 


;Was it a CR? 


30 D2 200 B 


05240 


JR 


NZ, NOTCR 




30D4 CD0931 


05250 


CALL 


ECLFl 


;Send LF back if needed 


30D7 21E130 


05260 
05270 ; 


LD 


HL,CRSW+1 


;Flag for CR recvd 




05280 ; 


Move 


state of ACCEPT LF : 


switch into CRSW+1 when CR 




05290 ; 








30 DA 3E00 


05300 ACCLFSW 


LD 


A,0 


;Show CR found if accept 


30DC 77 


05310 


LD 


(HL),A 


; LF switch is off 


30DD 1812 


05320 
05330 ; 


JR 


TAKEREC 


;Dsp CR 




05340 ; 


When 


LF rcv'd, delete if 


ACCLFSW is off & last char 




05350 ; 








30 DF 79 


05360 NOTCR 


LD 


A,C 


;Check char 


30E0 06FF 


05370 CRSW 


LD 


B,0FFH 


;P/u del LF switch 


30E2 21E130 


05380 


LD 


HL,CRSW+1 


;Pt to switch 


30E5 36FF 


05390 


LD 


(HL).0FFH 


; (flip off switch -not CR) 


30E7 FE0A 


05400 


CP 


LF 


;Is line feed the char? 


30E9 2006 


05410 


JR 


NZ, TAKEREC 


;Go if not LF 


30EB 3A1F34 


05420 


LD 


A,(EI6HT+1) 


;Also skip if 8 bit 


30EE B0 


05430 


OR 


B 


; switch is off 


30EF 2803 


05440 
05450 ; 


JR 


Z, SKIPREC 


;Skip LF if so 


30F1 CD1631 


05460 TAKEREC 


CALL 


DEVOUT 


;Out to active devices 
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30F4 CDE933 
30F7 C32330 

30FA 79 

30FB DD21A138 

30FF C3AE38 

3102 CDFA30 

3105 79 

3106 FE0D 

3108 C0 

3109 3E00 
310A 
310B B7 
310C C8 
310D 3E0A 
310F DD21A138 
3113 C3AE38 



3116 3EFF 

3118 B7 

3119 2812 
311B 79 
311C FE0C 
311E 4F 
311F C5 

3120 2007 
3122 0E1C 
3124 
3124 3E02 

3126 EF 

3127 0E1F 
3129 

3129 3E02 
312B EF 
312C CI 



312D 3E00 
312F B7 
3130 2808 

3132 79 

3133 DD21A938 
3137 CDAE38 



313A 3E00 
313C B7 
313D 2808 
313F 79 
3140 DD219938 
3144 CDAE38 



05470 SKIPREC 

05480 

05490 ; 

05500 CLOUT 

05510 

05520 

05530 ; 

05540 SNDOUT 

05550 

05560 

05570 

05580 ; 

05590 ECLFl 

05600 ECOLF 

05610 

05620 

05630 

05640 

05650 

05660 ; 

05670 ; 

05680 ; 

05690 DEVOUT 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

00021 

00022 

05790 

05800 NOTCLS 

00023 



05810 
05820 ; 
05830 ; 
05840 ; 
05850 FRSW 
05860 
05870 
05880 
05890 
05900 
05910 ; 
05920 ; 
05930 ; 
05940 PUTPR 
05950 
05960 
05970 
05980 
05990 
06000 ; 
06010 ; 



CALL 
JP 

LD 
LD 
JP 

CALL 
LD 
CP 
RET 

LD 

EQU 

OR 

RET 

LD 

LD 

JP 



TASKS 
MAINLP 

A C 

IX,CLSEND 

OUTPGM 

CLOUT 
A,C 
CR 
NZ 

A,$-$ 

$-1 

A 

Z 

A LF 

IX,CLSEND 

OUTPGM 



Output to video 



LD 

OR 

JR 

LD 

CP 

LD 

PUSH 

JR 

LD 

(a@DSP 

LD 

RST 

LD 

@(3DSP 

LD 

RST 

POP 



A,0FFH 

A 

Z,FRSW 

A,C 

0CH 

C,A 

BC 

NZ, NOTCLS 

cacH 

A,2 

40 

C,1FH 

A, 2 

40 

BC 



;Do 3 tasks (incl kbd) 
; & FRIO test then loop 

;Get char 

;Set buffer pointers 

;Put in output buffer 

;Send this character 
;Is it CR? 

;Done if not 

;Is echo linefeed on? 



;Done if not 
;Otherwise load a LF 

;Add to buffer/ret to caller 



;Is *D0 On/Off? 
; Bypass if off 
;If formfeed. 



; clear the screen 
; Cursor home 



;Clear to end-of-frame 



Send char to our disk if FR on 

;FR On/Off - receive file 
; Bypass if FR off 



LD 
OR 
JR 
LD 
LD 
CALL 



A,0 

A 

Z, PUTPR 

A,C 

IX,FRVCTR 

OUTPGM 



;Put away into the 
: FR buffer 



Place char into printer buffer if PR on 

;PR On/Off? 



LD 
OR 
JR 
LD 
LD 
CALL 



A,0 

A 

Z,FRIOSW 

A,C 

IX,PRVCTR 

OUTPGM 



;Go if off 

;Place the char in 
; the printer buffer 



Check if FR to disk is engaged 
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3147 3EFF 


06030 FRIOSW 


LD 


A,-l 


;Ck if FR-to-disk is on 


3149 B7 


06040 


OR 


A 




314A C8 


06050 


RET 


Z 


;Go if not engaged 


314B DD21A938 06060 


LD 


IX.FRVCTR 


;Is a char available 


314F CDB438 


06070 


CALL 


P6MGET 


; for the disk? 


3152 C8 


06080 


RET 


Z 


;6o if none for disk 


3153 212438 


06090 


LD 


HL,FR FCB 


;Put char to disk 


3156 CB7E 


06100 


BIT 


7,(HL) 


;OPEN FCB? 


3158 C8 


06110 


RET 


Z 


;Skip if not 


3159 EB 


06120 


EX 


DE,HL 




315A 4F 


06130 


LD 


C,A 


;Place char in "C" 


315B 


06140 


@@PUT 




; and do the write 


315B 3E04 


00025 


LD 


A,4 




315D EF 


00026 


RST 


40 




315E C8 


06150 


RET 


Z 


;Back if good 


315F CD1A30 


06160 


CALL 


$ERROR 




3162 CDE433 


06170 


CALL 


FRIO OFF 


;Turn FRIO to disk off 


3165 C3[F33 


06180 
06190 ; 


JP 


FR_OFF 


;Turn FR off and return 




06200 ; 


<CLEAR> 


command function entered - decode it 




06210 ; 








3168 010W0 


06220 CMDKEY 


LD 


BCJ 


;Init no device vector 


316B nmm 


06230 


LD 


DEJ 


;Init no File FCB 


316E 218930 


06240 


LD 


HL,DSPCTRL+1 


;Pt to Ctrl char dsply parm 




06250 


IF 


(aM0D4 




3171 FEA7 


06260 
06270 


CP 
ENDIF 


27H180H 


;Display control chars? 




06280 


IF 


@M0D2 






06290 


CP 


'&'+80H 






06300 


ENDIF 






3173 CA3332 


06310 
06320 ; 


JP 


Z,QFUNC 




3176 216A30 


06330 


LD 


HL,DPLXSW+1 




3179 FEAl 


06340 


CP 


'!'+80H 


;Ck duplex 


317B CA3332 


06350 
06360 ; 


JP 


Z,QFUNC 




317E 21C930 


06370 


LD 


HL,ECH0SW+1 






06380 


IF 


(aM0D4 




3181 FEA2 


06390 
06400 


CP 
ENDIF 


""+80H - 


;Ck echo 




06410 


IF 


(aM0D2 






06420 


CP 


'@'+80H 






06430 


ENDIF 






3183 CA3332 


06440 
06450 ; 


JP 


Z,QFUNC 




3186 21A330 


06460 


LD 


HL,SHAKE+1 


;Check handshake 




06470 


IF 


@M0D4 




3189 FEAA 


06480 
06490 


CP 
ENDIF 


'*'+80H 






06500 


IF 


(aM0D2 






06510 


CP 


'_'+80H 






06520 


ENDIF 






318B CA4232 


06530 
06540 ; 


JP 


Z,QSHAKE 




318E 210A31 


06550 


LD 


HL,ECOLF 




3191 FEA3 


06560 


CP 


'#'+80H 


;Echo line feed? 


3193 CA3332 


06570 
06580 ; 


JP 


Z,QFUNC 
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3196 21DB30 


06590 


LD 


HL,ACCLFSW+1 


;Check accept-LF 


3199 FEA4 


06600 


CP 


'$'+80H 




319B CA3332 


06610 
06620 ; 


JP 


Z,QFUNC 




319E 211F34 


06630 


LD 


HL,EIGHT+1 


;Check 8-bit 




06640 


IF 


(3M0D4 




31A1 FEA9 


06650 
06660 


CP 
ENDIF 


')'+80H 






06670 


IF 


(3M0D2 






06680 


CP 


'(•+80H 






06690 


ENDIF 






31 A3 CA3332 


06700 
06710 ; 


JP 


Z.QFUNC 




31A6 019538 


06720 


LD 


BCKIVCTR 


;Init *KI put/get index 


31A9 218134 


06730 


LD 


HL,KISW+1 




31AC FEBl 


06740 


CP 


'r+80H 


;CK *KI 


31 AE CA3332 


06750 
06760 ; 


JP 


Z,QFUNC 




3181 010000 


06770 


LD 


BC.0 


;No *D0 put/get index 


31B4 211731 


06780 


LD 


HL,DEV0UT+1 




31B7 FEB2 


06790 


CP 


'2'+80H 


;CK *D0 


31 B9 2878 


06800 
06810 ; 


JR 


Z.QFUNC 




31 BB 019938 


06820 


LD 


BCPRVCTR 


;Init *PR put/ get index 


31BE 213B31 


06830 


LD 


HL,PUTPR+1 




31C1 FEB3 


06840 


CP 


'3'+80H 


;CK *PR 


31C3 286E 


06850 
06860 ; 


JR 


Z,QFUNC 




31C5 01A138 


06870 


LD 


BCCLSEND 


;Init *CL-S put/get index 


31C8 21FA33 


06880 


LD 


HL,TASK8A+2 




31CB FEB4 


06890 


CP 


'4'+80H 


;CK *CL 


31CD 2869 


06900 
06910 ; 


JR 


Z,QCL 




31CF 01A538 


06920 


LD 


BCFSVCTR 


;Init *FS put/get index 


31D2 110438 


06930 


LD 


DE,FS FCB 


Unit *FS FCB 


31 D5 DD21003A 06940 


LD 


IX,XMTBUF 


; Point to buffer 


31D9 214130 


06950 


LD 


HL,FSSW+1 




31DC FEB5 


06960 


CP 


'5'+80H 


;CK FS 


31 DE 2853 


06970 
06980 ; 


JR 


Z,QFUNC 




31E0 01A938 


06990 


LD 


BCFRVCTR 


;P/u *FR put/get index 


31E3 112438 


07000 


LD 


DE,FR FCB 


;P/u *FR FCB 


31E6 DD21003B 07010 


LD 


IX,RCVBUF 


;Pt to buffer 


31EA 212E31 


07020 


LD 


HL,FRSW+1 




31ED FEB6 


07030 


CP 


'6'+80H 


;CK FR 


31 EF 2842 


07040 
07050 ; 


JR 


Z,QFUNC 




31F1 214831 


07060 


LD 


HL,FRI0SW+1 




31F4 110000 


07070 


LD 


DE,0 


;No FCB here 


31F7 FEB7 


07080 


CP 


'7'!80H 


;Checl< FR 10 to disk? 


31F9 2838 


07090 
07100 ; 


JR 


Z,QFUNC 




31FB FEB8 


07110 


CP 


'8'!80H 


;Menu request? 


31FD CA9A32 


07120 
07130 ; 


JP 


Z,MENU 






07140 


IF 


@M0D4 




3200 FEA8 


07150 
07160 


CP 
ENDIF 


'('!80H 


;Local clear screen? 




07170 


IF 


(aM0D2 
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07180 


CP 


•*'+80H 




07190 


ENDIF 




3202 CA8F32 


07200 
07210 ; 


JP 


Z,CLS 




07220 


IF 


@M0D4 


3205 FEA0 


07230 


CP 


20H!80H 




07240 


ENDIF 






07250 


IF 


(3M0D2 




07260 


CP 


')'+80H 




07270 


ENDIF 




3207 CA6535 


07280 
07290 ; 


JP 


Z,DOSCMD 




07300 


IF 


@M0D4 


320A FEBD 


07310 


CP 


'='+80H 




07320 


ENDIF 






07330 


IF 


(3M0D2 




07340 


CP 


'+'+80H 




07350 


ENDIF 




320C C27D32 


07360 
07370 ; 
07380 ; 


JP 


NZ,CMDERR 




07390 ; 


Exit from LCOMM - R 




07400 ; 








07410 EXIT 








07420 


IF 


.NOT.BUFFRD 




07430 


LD 


C,8 


320F 


07440 


@@RMTSK 






00027 


LD 


A, 30 




00028 


RST 


40 




07450 ; 








07460 


LD 


C,9 


320F 


07470 


@@RMTSK 






00029 


LD 


A, 30 




00030 


RST 


40 




07480 


ENDIF 






07490 ; 








07500 


IF 


BUFFRD 


320F 11E437 


07510 


LD 


DE,CLDCB 


3212 FD210000 07520 


LD 


IY,$-$ 


3214 


07530 OLDVEC 


EQU 


$-2 


3216 0E04 


07540 


LD 


C,4 


3218 


07550 


@@CTL 




3218 3E05 


00031 


LD 


A, 5 


321A EF 


00032 


RST 


40 




07560 


ENDIF 






07570 ; 






321B CDDF33 


07580 


CALL 


FR OFF 


321E 112438 


07590 


LD 


DE,FR FCB 


3221 lA 


07600 


LD 


A,(DET 


3222 CB7F 


07610 


BIT 


7, A 


3224 CA0030 


07620 


JP 


Z,$EXIT 


3227 


07630 


(3@CL0SE 




3227 3E3C 


00033 


LD 


A, 60 


3229 EF 


00034 


RST 


40 


322A CA0030 


07640 


JP 


Z,$EXIT 


322D CD1A30 


07650 


CALL 


$ERROR 


3230 C30A30 


07660 
07670 ; 


JP 


$ABORT 




07680 ; 


Query function ON o 



Page 00007 



;Clr-shf-0? 

;Do CMDR 

;CK LDOS exit 



; Remove comm line scan task 



;Rmv printer task if used 



;Turn off wakeup feature 
;Restoring previous state 



;Turn off any receive file 



;Is it an open file? 

;Exit if not else 

: make sure it's closed 



;Exit if no error 
;Terminate 
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07690 ; 








3233 CD5A32 


07700 QFUNC 


CALL 


QONOFF 


;Get On or Off response 


3236 11 


07710 


LD 


(HL),A 


;Save which one 


3237 C9 


07720 
07730 ; 


RET 








07740 ; 


Query 


*CL on or off 






07750 ; 








3238 CD5A32 


07760 QCL 


CALL 


QONOFF 




323B 77 


07770 


LD 


(HL),A 




323C B7 


07780 


OR 


A 


;0n or off? 


323D C8 


07790 


RET 


Z 


;Quit if off 


323E 324534 


07800 


LD 


(TASK8B+1),A 


;Force CL-send on as well 


3241 C9 


07810 
07820 ; 


RET 








07830 ; 


Query 


handshake on or 


off 




07840 ; 








3242 D5 


07850 QSHAKE 


PUSH 


DE 




3243 


07860 


(9(9 KEY 




;Get one key 


3243 3E01 


00035 


LD 


AJ 




3245 EF 


00036 


RST 


40 




3246 Dl 


07870 


POP 


DE 




3247 A7 


07880 


AND 


A 


;Be sure flags are set 


3248 FA5132 


07890 


JP 


M.QSHAKEl 


;Go if PF key 


324B 326B34 


07900 


LD 


(AUTX0FF+1),A 


;Save key as auto XOFF 


324 E 36 FF 


07910 


LD 


(HL) JFFH 


;Turn on handshake 


3250 C9 


07920 


RET 






3251 CD5F32 


07930 QSHAKEl CALL 


QONOFF 1 


; Parse ON or OFF 


3254 77 


07940 


LD 


(HL),A 


;Turn on or off 


3255 AF 


07950 


XOR 


A 


;Turn off auto XOFF 


3256 326B34 


07960 


LD 


(AUTX0FF+1),A 




3259 C9 


07970 


RET 






325A D5 


07980 QONOFF 


PUSH 


DE 


;Hang on to register 


325B 


07990 


(3@KEY 




;Get the operand key 


325B 3E01 


00037 


LD 


AJ 




325D EF 


00038 


RST 


40 




325E Dl 


08000 


POP 


DE 


;Restore the register 


325F 


08010 QONOFF 1 EQU 


$ 






08020 


IF 


@M0D4 




325F FEAD 


08030 
08040 


CP 
ENDIF 


•-'+80H 


;Ck OFF 




08050 


IF 


(3M0D2 






08060 


CP 


•='+80H 






08070 


ENDIF 






3261 2821 


08080 


JR 


Z,TURNOF 


; and go if off 




08090 


IF 


@M0D4 




3263 FEBA 


08100 
08110 


CP 
ENDIF 


':'+80H 


;Ck ON 




08120 


IF 


@M0D2 






08130 


CP 


'-'+80H 






08140 


ENDIF 






3265 281F 


08150 


JR 


Z,TURN0N 


; and go if on 


3267 E3 


08160 POPERR 


EX 


(SP),HL 


; Discard ret address 


3268 El 


08170 


POP 


HL 




3269 FEB9 


08180 


CP 


'9'+80H 


;Ck ID 


326B CA9633 


08190 
08200 ; 


JP 


Z,FILID 




326E FEB0 


08210 


CP 


'0'+80H 


;Ck RESET 


3270 CA4C33 


08220 
08230 ; 


JP 


Z,FILRES 
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3273 FEA5 


08240 


CP 


'%'+80H 


;Ck REWIND 


3275 CA8433 


08250 
08260 ; 


JP 


Z,FILREW 






08270 


IF 


@M0D4 




3278 FEA6 


08280 
08290 


CP 
ENDIF 


'&'+80H 


;Ck PEOF 




08300 


IF 


(aM0D2 






08310 


CP 


'^'+80H 






08320 


ENDIF 






327A CA8D33 


08330 
08340 ; 


JP 


Z,FILEOF 




327D 218D37 


08350 CMDERR 


LD 


HL,CMDERR$ 


; None of above, dsply 


3280 


08360 


(a(3DSPLY 




; "Unacceptable command... 




00039 


IFEQ 


00H,1 






00040 


LD 


HL, 






00041 


ENDIF 






3280 3E0A 


00042 


LD 


A. 10 




3282 EF 


00043 


RST 


40 




3283 C9 


08370 
08380 ; 


RET 








08390 ; 


Process 


OFF 






08400 ; 








3284 AF 


08410 TURNOF 


XOR 


A 


;Off = 


3285 C9 


08420 
08430 ; 


RET 








08440 ; 


Process 


ON 






08450 ; 








3286 EB 


08460 TURNON 


EX 


DE,HL 


; Shi ft "FCB" to HL 


3287 CB7E 


08470 


BIT 


7,(HL) 


;FCB on or non-file? 


3289 EB 


08480 


EX 


DE,HL 


;If non-fi le, HL now 


328A 3EFF 


08490 


LD 


A,0FFH 


; points to X'0000' 


328C C0 


08500 


RET 


NZ 


; which contains X'F3' 


328 D 18 D8 


08510 
08520 ; 


JR 


POPERR 


;Is an error 




08530 ; 


Process 


Clear Screen 






08540 ; 








328F 0E1C 


08550 CIS 


LD 


C,1CH 


;Cursor home 


3291 


08560 


(a(9DSP 






3291 3E02 


00044 


LD 


A,2 




3293 EF 


00045 


RST 


40 




3294 0E1F 


08570 


LD 


C,1FH 


;Clear to end-of-frame 


3296 


08580 


@(aDSP 






3296 3E02 


00046 


LD 


A,2 




3298 EF 


00047 


RST 


40 




3299 C9 


08590 
08600 ; 


RET 








08610 ; 


Process 


MENU 






08620 ; 








329A 


08630 MENU 


EQU 


$ 




329A 21E635 


08640 


LD 


HL.STATl 


;Clear top row status 


329D 11E735 


08650 


LD 


DE, STAT 1+1 


;lst char always a space 


32A0 014200 


08660 


LD 


BC,66 




32A3 EDB0 


08670 


LDIR 






32A5 210537 


08680 


LD 


HL,STAT2 


;Clear bottom row status 


32A8 110637 


08690 


LD 


DE, ST AT 2+1 




32AB 0E26 


08700 


LD 


C,38 




32AD EDB0 


08710 


LDIR 






32AF 060F 


08720 


LD 


B,15 


;Init loop count 


3281 212D37 


08730 


LD 


HL,STATAB 


;Words where status stored 
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32 B4 
32 B5 
32 B6 
3287 
32 88 
3289 
32 BA 
3288 
32 8C 
32 8D 
32 BE 
32 8F 
32C1 
32C3 
32C4 
32C5 
32C7 
32 C8 
32C9 
32 CB 
32 CE 
32 CF 
32D1 
32D4 
32D5 
32D5 
32 D7 
32 D8 
32 DB 



32 D8 
32 DD 
32 DE 
32E1 
32E3 
32 E5 
32E8 
32E9 
32 EC 
32 EE 
32 EF 
32F3 
32F4 
32F4 
32F6 
32F7 
32 FA 



5E 

23 

56 

23 

7E 

23 

E5 

66 

6F 

lA 

87 

2802 

362A 

El 

23 

10ED 

lA 

87 

280D 

3A6834 

87 

2807 

212536 

4F 

3E62 

EF 

21E535 



3E0A 

EF 

210438 

CB7E 

281C 

114438 

D5 

012000 

ED80 

Dl 

ED4B4A38 

D5 

3E50 

EF 

216937 



32 FA 3E0A 
32FC EF 
32FD El 
32FE 



08740 STATLPl LD 

08750 INC 

08760 LD 

08770 INC 

08780 LD 

08790 INC 

08800 PUSH 

08810 LD 

08820 LD 

08830 LD 

08840 OR 

08850 JR 

08860 LD 

08870 POP 

08880 INC 

08890 DJNZ 

08900 LD 

08910 OR 

08920 JR 

08930 LD 

08940 OR 

08950 JR 

08960 LD 

08970 LD 

08980 (3@HEX8 

00048 LD 

00049 RST 
08990 STATLP2 LD 

09000 muspu 

00050 IFEQ 

00051 LD 

00052 ENDIF 

00053 LD 

00054 RST 
09010 LD 
09020 BIT 
09030 JR 
09040 LD 
09050 PUSH 
09060 LD 
09070 LDIR 
09080 POP 
09090 LD 
09100 PUSH 
09110 @@FNAME 

00055 LD 

00056 RST 
09120 LD 
09130 @@DSPLY 

00057 IFEQ 

00058 LD 

00059 ENDIF 

00060 LD 

00061 RST 
09140 POP 
09150 (aiBDSPLY 

00062 IFEQ 

00063 LD 

00064 ENDIF 



E,(HL) 

HL 

D,(HL) 

HL 

A,(HL) 

HL 

HL 

H,(HL) 

L,A 

A,(DE) 

A 

Z,$+4 

(HL),'*' 

HL 

HL 

STATLPl 

A,(DE) 

A 

Z,STATLP2 

A,(AUTXOFF-i-l) 

A 

Z,STATLP2 

HL, STAT 1+63 

C,A 

A, 98 

40 

HL,MNUMSG 

00H,1 
HL, 

A, 10 

40 

HL,FS_FCB 

7,(HL) 

Z,STATLP3 

DE, DUMMY 

DE 

BC,32 

DE 

8C,(DUMMY+6) 

DE 

A, 80 

40 

HL,FSNAME$ 

00H,1 
HL, 

A, 10 

40 

HL 

00H,1 
HL, 



;P/u lo-switch 

;P/u hi-switch 

;P/u lo-stuff 

;Save pointer 
;P/u hi -stuff 
;Xfer lo-stuff 
;Get status 
;Active or not? 
;Go if not 
; else stuf an '*' 
;Rcvr pointer 
;Bump to next pos 

;P/u shake again 

;Go if off 

;Check if xoff char set 

;Skip if not special char 
;Auto x-off char posn 

;Cvrt to ASCII for display 



;Ptr to Comm menu 
;Display prelim status 



;FS file open? 

;Go if closed 
;Recover its name w/o 
; changing the FCB 

; by creating a duplicate 

; open FCB 

;Get drive and DEC 

;Call for name recover 



;Output "FS-SPEC: " 



;Rcvr fcb pointer and 
; display the filespec 
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32 FE 3E0A 


00065 


LD 


Aa0 




3300 EF 


00066 


RST 


40 




3301 212438 


09160 STATLP3 


LD 


HL,FR FCB 


lis the FR file open? 


3304 CB7E 


09170 


BIT 


7,(HLy 




3306 281C 


09180 


JR 


Z,STATLP4 


;Go if closed 


3308 114438 


09190 


LD 


DE^IUWY 


;Simi lar to above 


330B D5 


09200 


PUSH 


DE 




330C 012000 


09210 


LD 


BC,32 




330F EDB0 


09220 


LDIR 




;Create a duplicate FCB 


3311 Dl 


09230 


POP 


DE 




3312 ED4B4A38 09240 


LD 


BC,(DUMMY+6) 


;P/u Drive & DEC 


3316 D5 


09250 


PUSH 


DE 




3317 


09260 


@(9FNAME 




;Call for name recover 


3317 3E50 


00067 


LD 


A,80 




3319 EF 


00068 


RST 


40 




331A 217337 


09270 


LD 


HL,FRNAME$ 


;"FR-SPEC:" 


331D 


09280 


(3@DSPLY 








00069 


IFEQ 


00H,1 






00070 


LD 


HL, 






00071 


ENDIF 






331D 3E0A 


00072 


LD 


A, 10 




331F EF 


00073 


RST 


40 




3320 El 


09290 


POP 


HL 


;P/u name start 


3321 


09300 


(3@DSPLY 




; and dsply it 




00074 


IFEQ 


00H,1 






00075 


LD 


HL, 






00076 


ENDIF 






3321 3E0A 


00077 


LD 


A. 10 




3323 EF 


00078 


RST 


40 




3324 3AAD38 


09310 STATLP4 


LD 


AJFREEPG) 


;How much buffer left 


3327 0F 


09320 


RRCA 




; Divide by 4 to show 


3328 0F 


09330 


RRCA 




; in K 


3329 E63F 


09340 


AND 


3FH 


;No bit 7 nor 6 


332B 218937 


09350 


LD 


HL,PAGSPR$+10 


; Where to stuff 


332E 06FF 


09360 


LD 


B,-l 


;Init to count 10 's 


3330 04 


09370 CVDl 


INC 


B 




3331 D60A 


09380 


SUB 


10 


;How many tens? 


3333 30FB 


09390 


JR 


NCCVDl 


;Go if no more 


3335 F5 


09400 CVD2 


PUSH 


AF 


;Save remainder 


3336 78 


09410 


LD 


A,B 


;P/u tens 


3337 B7 


09420 


OR 


A 


;Was it zero tens? 


3338 0620 


09430 


LD 


B.' ' 


;Init for space 


333A 2802 


09440 


JR 


Z.$+4 


;Go if no tens 


333C 0630 


09450 


LD 


B,'0' 


;Init for ASCII 


333E 80 


09460 


ADD 


A,B 


;Convert to ASCII 


333F 77 


09470 


LD 


(HL),A 


; Stuff & bump 


3340 23 


09480 


INC 


HL 




3341 Fl 


09490 


POP 


AF 


;Get remainder 


3342 C63A 


09500 


ADD 


A, 3 AH 


;Adjust units place 


3344 77 


09510 


LD 


(HL),A 




3345 217F37 


09520 


LD 


HL,PAGSPR$ 


;" Memory: K" 


3348 


09530 


©laoSPLY 








00079 


IFEQ 


00H,1 






00080 


LD 


HL, 






00081 


ENDIF 






3348 3E0A 


00082 


LD 


A, 10 




334A EF 


00083 


RST 


40 




334B C9 


09540 
09550 ; 


RET 
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09560 ; 


Process 


RESET of a "dev 


ice" 




09570 ; 








334C 78 


09580 FILRES 


LD 


A,B 


;Check if a device vector 


334D Bl 


09590 


OR 


C 


; was passed 


334E CA7D32 


09600 


JP 


Z.CMDERR 


;Go if not - is error 


3351 7A 


09610 


LD 


A,D 


;Check for a possible 


3352 B3 


09620 


OR 


E 


; FCB for disk 


3353 2016 


09630 
09640 ; 


JR 


NZ,FILR4 


;Go if disk else device 




09650 ; 


Reset the page buffer (s 


) for the device 




09660 ; 








3355 F3 


09670 FILRl 


DI 




;No interrupts until done 


3356 60 


09680 


LD 


H,B 


;Xfer vector table entry 


3357 69 


09690 


LD 


L,C 


; to grab put/get index 


3358 4E 


09700 


LD 


C,(HL) 


;P/u the PUT pointer 


3359 23 


09710 


INC 


HL 


; and make the GET 


335A 46 


09720 


LD 


B,(HL) 


; pointer equal so 


3358 23 


09730 


INC 


HL 


; buffer contents show 


335C 71 


09740 


LD 


(HL),C 


; as empty 


335D 23 


09750 


INC 


HL 




335E 7E 


09760 


LD 


A.(HL) 


;P/u the GET pointer to 


335F 70 


09770 


LD 


(HL),B 


; check if in same page 


3360 B8 


09780 FILR2 


CP 


B 


;Is put/get in same page? 


3361 2806 


09790 


JR 


Z,FILR3 


;Go if it is 


3363 67 


09800 


LD 


H,A 


; else set up to free this 


3364 CD4E35 


09810 


CALL 


FNPIU 


; page by finding next 


3367 18F7 


09820 


JR 


FILR2 


;Loop until next = 1st 


3369 FB 


09830 FILR3 


EI 




; Interrupts back on 


336A C9 


09840 
09850 ; 


RET 








09860 ; 


Reset a 


file device 






09870 ; 








336B 212438 


09880 FILR4 


LD 


HL,FR FCB 


;Turn off the FR or FS 


336E AF 


09890 


XOR 


A 




336F ED52 


09900 


SBC 


HL,DE 


;Is this the FR? 


3371 214130 


09910 


LD 


HL,FSSW+1 




3374 2006 


09920 


JR 


NZ^OFFS 




3376 324831 


09930 


LD 


(FRI0SW+1),A 


;Turn off FR 10 to disk 


3379 212E31 


09940 


LD 


HL,FRSW+1 


;Turn off FR to buffer 


337C 77 


09950 OFFS 


LD 


(HL),A 


;Turn off FR or FS 


337 D 


09960 


(3(9CL0SE 




;Close the file 


337D 3E3C 


00084 


LD 


A, 60 




337F EF 


00085 


RST 


40 




3380 C41A30 


09970 


CALL 


NZJERROR 


;Show any close error 


3383 C9 


09980 
09990 ; 


RET 








10000 ; 


Process 


REWIND 






10010 ; 








3384 7A 


10020 FILREW 


LD 


A,D 


;Rewind the specified 


3385 B3 


10030 


OR 


E 


; file (FCB given) if 


3386 CA7D32 


10040 


JP 


Z,CMDERR 


; it is in use 


3389 


10050 


(a(3REW 






3389 3E44 


00086 


LD 


A, 68 




338B EF 


00087 


RST 


40 




338C C9 


10060 
10070 ; 


RET 








10080 ; 


Process 


PEOF 






10090 ; 








338D 7A 


10100 FILEOF 


LD 


A,D 


;Check if a file device 
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338E B3 


10110 


OR 


E 


; was specified 


338F CA7D32 


10120 


JP 


Z,CMDERR 


;Go if not - is error 


3392 


10130 


@@PEOF 




; else position to end 


3392 3E41 


00088 


LD 


A, 65 




3394 EF 


00089 


RST 


40 




3395 C9 


10140 
10150 ; 


RET 








10160 ; 


Process 


ID request 






10170 ; 








3396 7A 


10180 FILID 


LD 


A,D 


;Bad command if not 


3397 B3 


10190 


OR 


E 


; FS or FR specified 


3398 CA7D32 


10200 


JP 


Z,CMDERR 


;Go on error 


339B lA 


10210 


LD 


A,(DE) 


;Make sure that it is 


339C 07 


10220 


RLCA 




; not already open 


339D 3834 


10230 


JR 


C, NOTNOW 


;CF=already open 


339F D5 


10240 


PUSH 


DE 




33A0 DDE5 


10250 


PUSH 


IX 


;Save buffer pointer 


33A2 21C335 


10260 


LD 


HL,FILEPMT 


; Prompt for filespec 


33A5 


10270 


(a@DSPLY 








00090 


IFEQ 


00H,1 






00091 


LD 


HL, 






00092 


ENDIF 






33 A5 3E0A 


00093 


LD 


A, 10 




33A7 EF 


00094 


RST 


40 




33 A8 El 


10280 


POP 


HL 


;Take file name 


33 A9 01001 F 


10290 


LD 


BC,31<8 


;31 chars max 


33AC 


10300 


(a^KEYIN 




;Get the filespec 


33AC 3E09 


00095 


LD 


A,9 




33 AE EF 


00096 


RST 


40 




33AF F5 


10310 


PUSH 


AF 


;Save flag state 


33B0 0E0E 


10320 


LD 


C,0EH 


;Turn the cursor back on 


33B2 


10330 


(a@DSP 






33B2 3E02 


00097 


LD 


A,2 




33B4 EF 


00098 


RST 


40 




33B5 Fl 


10340 


POP 


AF 


;Rcvr KEYIN exit state 


33B6 Dl 


10350 


POP 


DE 




33B7 D8 


10360 


RET 


C 


;Ret if BREAK from KEYIN 


33B8 E5 


10370 


PUSH 


HL 


;Save ptr to buffer 


33B9 


10380 


(9@FSPEC 




;Fetch & parse filespec 


33B9 3E4E 


00099 


LD 


A, 78 




33 BB EF 


00100 


RST 


40 




33BC 210438 


10390 


LD 


HL,FS FCB 


;Ck if FILID req from 


33 BF AF 


10400 


XOR 


A 


; FS or FR 


33C0 ED52 


10410 


SBC 


HL,DE 


;What's the FCB? 


33C2 El 


10420 


POP 


HL 


; Recover buffer 


33C3 0600 


10430 


LD 


B,0 


;LRL=256 


33C5 2005 


10440 


JR 


NZ, FILER 


;Go if req from FR 


33C7 CD0F30 


10450 


CALL 


$OPEN 


;Only OPEN a FS 


33 CA 1803 


10460 


JR 


$+5 


;Branch around INIT 


33 CC 


10470 FILER 


@@INIT 




;Open the receive file 


33CC 3E3A 


00101 


LD 


A, 58 




33 CE EF 


00102 


RST 


40 




33 CF C41A30 


10480 


CALL 


NZ,$ERROR 


;Show any open error 


33D2 C9 


10490 
10500 ; 


RET 






33D3 21D135 


10510 NOTNOW 


LD 


HL,OPENMSG 


;"File already open" 


33 D6 


10520 


@@DSPLY 




;Show why ID failed 




00103 


IFEQ 


00H,1 






00104 


LD 


HL, 





Page 108 



The Source 
Program Code 



33 D6 3EJ9A 
33 D8 EF 
33D9 C9 



33 DA AF 
33DB 324130 
33DE C9 
33 DF AF 
33E0 322E31 
33E3 C9 
33 E4 AF 
33 E5 324831 
33E8 C9 



33E9 F3 



33 EA CD4434 
33ED FB 
33EE CD7434 



33F1 CDB834 
33F4 FB 
33F5 C34731 



33F8 F3 
33F9 3EFF 
33FB B7 
33FC C8 



33FD 11E437 

3400 62 

3401 6B 

3402 7E 

3403 CB6F 



UTILITY Files 
Section 

00105 END IF 

00106 LD 

00107 RST 
10530 RET 
10540 ; 

10550 ; 
10560 ; 

10570 FS_OFF XOR 

10580 LD 

10590 RET 

10600 FR_OFF XOR 

10610 LD 

10620 RET 
10630 FRIO OFF 



COMM - LS-DOS 6.2 



A, 10 
40 



Routines to turn off file devices 



Page 00014 



10640 
10650 
10660 ; 
10670 ; 
10680 ; 
10690 TASKS 
10700 ; 
10710 
10720 
10730 
10740 ; 
10750 
10760 
10770 
10780 
10790 



LD 
RET 



A 
(FSSW+1),A 

A 
(FRSW+1),A 

XOR A 

(FRI0SW+1),A 



;File send 
;File receive 
;Dump to disk 



Call various tasks (on each main loop) 
DI 



IF 

CALL 

ENDIF 

CALL 

EI 

CALL 

IF 

DI 

ENDIF 

CALL 

EI 

JP 



.NOT.BUFFRD 
TASK8A 



TASK8B 

TASKK 
.NOT.BUFFRD 



;W fen does this if bfrd 
;Try to receive from *CL 



;Try to send to *CL 

;Allow interrupts here 

;If RS232 does not interrupt 
; Printer must be task 



TASK 9 
FRIOSW 



;Check on dump to disk 



INTERRUPT TASK 8 
WO/ buffer 



W/buffer 



A is done once per main loop + int rate 
B is done once per main loop + int rate 
A is done by wakeup feature + int rate 
B is done once per main loop + int rate 



10810 

10820 

10830 

10840 ; 

10850 ; 

10860 ; 

10870 ; 

10880 ; 

10890 ; 

10900 ; 

10910 

10920 TCB8 

10930 TASK8 

10940 

10950 

10960 ; 

10970 TASK8A DI 

10980 

10990 

11000 

11010 ; 

11020 ; @GET handler to keep interrupts off if possible 

11030 ; 

11040 LD DE,CLDCB ;=> OPEN DCB 

11050 FNDDVR LD H,D ;Xfer to HL 

11060 LD L,E 

11070 LD A,(HL) ;Get DCB type 

11080 BIT 5,A ;Is it linked? 



IF 


.NOT.BUFFRD 




DW 


TASK8 




CALL 


TASK 8 A 




JP 


TASK8B 




ENDIF 






DI 






LD 


A,0FFH 


;CL recv On/Off 


OR 


A 




RET 


Z 


;Done if CL recv off 
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3405 2013 


11090 




JR 


NZ,LNKD 


;Need CHNIO if so 


3407 23 


11100 




INC 


HL 


;=>address field of DCB 


3408 5E 


11110 




LD 


E,(HL) 


;If routed, address is 


3409 23 


11120 




INC 


HL 


; next DCB to use 


340A 56 


11130 




LD 


D,(HL) 


; else EP of driver 


340B CB67 


11140 




BIT 


4, A 


;Z = not routed 


340D 20F1 


11150 




JR 


NZ.FNDDVR 


;Loop till not routed 


340F E608 


11160 




AND 


00001000 B 


jCan't talk to NIL device 


3411 C0 


11170 




RET 


NZ 




3412 EB 


11180 




EX 


DE.HL 


;Address to HL 


3413 111D34 


11190 




LD 


DE, RETADD 


;Put RET address on stack 


3416 D5 


11200 




PUSH 


DE 




3417 FE02 


11210 




CP 


2 


;Set C,NZ for input request 


3419 E9 


11220 
11230 


» 


JP 


(HL) 


;Go to driver 


341A 


11240 


LNKD 


(30 GET 




;Use SVC if LINKED 


341A 3E03 


00108 




LD 


A, 3 




341C EF 


00109 




RST 


40 




341D C0 


11250 
11260 


RETADD 


RET 


NZ 


;NZ means no char rcv'd 


34 IE 0600 


11270 


EIGHT 


LD 


BJ 


;Eight bit mode switch 


3420 04 


11280 




INC 


B 




3421 05 


11290 




DEC 


B 




3422 2006 


11300 




JR 


NZ, XLTRl 


;Go if 8 bit 


3424 E67F 


11310 




AND 


7FH 


;Strip bit 7 


3426 C8 


11320 




RET 


Z 


;Always ignore nulls 


3427 FE7F 


11330 




CP 


7FH 


; & DELETE if not 8-bit 


3429 C8 


11340 
11350 




RET 


Z 






11360 




Do XLATER after sir 


'ipping high bit 




11370 


s 








342A FE00 


11380 


XLTRl 


CP 


$-$ 


;Character to translate? 


342C 2002 


11390 




JR 


NZ, TSTNUL 


;Go if not a match 


342E 3E00 


11400 
11410 


XLTR2 


LD 


Aj-$ 


;Replace with xlated char 




11420 




NULL P 


arm now only 


affects 8-bit mode 




11430 










3430 B7 


11440 TSTNUL 


OR 


A 


;Is char a null? 


3431 2005 


11450 




JR 


NZ, KEEPCH 


;Go if not 


3433 06 FF 


11460 ACCNUL 


LD 


B,0FFH 


;Default to accept nulls 


3435 04 


11470 




INC 


B 


;NZ=nulls wanted 


3436 05 


11480 




DEC 


B 


;Z=don't accept nulls 


3437 C8 


11490 
11500 


s 


RET 


Z 




3438 DDE 5 


11510 


KEEPCH 


PUSH 


IX 


;Place in CL input buf 


343A DD219D38 


; 11520 




LD 


IX,CLREC 




343E CDD634 


11530 




CALL 


OUTPUT 


;Out to the buffer if 


3441 DDEl 


11540 




POP 


IX 


; non-null or want nulls 


3443 C9 


11550 
11560 


s 


RET 






3444 3EFF 


11570 TASK8B 


LD 


A,0FFH 


;CL send On/Off for 


3446 B7 


11580 




OR 


A 


; handshaking 


3447 C8 


11590 




RET 


Z 




3448 0E00 


11600 




LD 


C,0 


;Now xmit a CTL0 to 


344A 11E437 


11610 




LD 


DE,CLDCB 


;Ck the status of the 


344 D 


11620 




(a0CTL 




; CL 


344 D 3E05 


00110 




LD 


A, 5 




344F EF 


00111 




RST 


40 




3450 C0 


11630 




RET 


NZ 


; Indicates not ready 
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3451 0E00 


11640 FRCPUT 


LD 


C,$-$ 


;Force a char out? 


3453 AF 


11650 


XOR 


A 


;Clear it after p/u 


3454 325234 


11660 


LD 


(FRCPUT+1),A 




3457 Bl 


11670 


OR 


C 


;Check original status 


3458 2000 


11680 


JR 


NZ, FRCIT 


;Go if force on 


345A DDE5 


11690 


PUSH 


IX 




345C DD21A138 


11700 


LD 


IX,CLSEND 


;Do we have a char to 


3460 CD1635 


11710 


CALL 


BUFGET 


; send to the CL? 


3463 DDEl 


11720 


POP 


IX 




3465 C8 


11730 


RET 


Z 


;RET if not 


3466 4F 


11740 


LD 


C,A 


;Save character 


3467 


11750 FRCIT 


00 PUT 




;Put it out 


3467 3E04 


00112 


LD 


A,4 




3469 EF 


00113 
11760 1 


RST 


40 




346 A 3E00 


11770 AUTXOFF 


LD 


A,0 


;Check for auto XOFF 


346C 87 


11780 


OR 


A 


;0n? 


346D C8 


11790 


RET 


Z 


;Quit if not 


346E 91 


11800 


SUB 


C 


;Matched char? 


346F C0 


11810 


RET 


NZ 


;Quit if not 


3470 324534 


11820 


LD 


(TASK8B+1),A 


; Pause xmit (XOFF) 


3473 C9 


11830 
11840 ; 


RET 






3474 


11850 TASKK 


mmo 




;Scan the keyboard 


3474 3E08 


00114 


LD 


A, 8 




3476 EF 


00115 


RST 


40 




3477 C0 


11860 


RET 


NZ 


; Error (or no key depressed) 


3478 FE80 


11870 


CP 


BREAK 


;Ck for brk 1st 


347A 2815 


11880 


JR 


Z, ISBRK 


;Go on a Break 


347C B7 


11890 


OR 


A 


;Then for high bit set 


347D FA6831 


11900 


JP 


M,CMDKEY 


;Go if FN key 


3480 06 FF 


11910 KISW 


LD 


B,0FFH 


;KI On/Off 


3482 04 


11920 


INC 


B 




3483 05 


11930 


DEC 


B 




3484 C8 


11940 


RET 


Z 


;Ret if KI is off 


3485 DDE5 


11950 NOTBRK 


PUSH 


IX 




3487 DD219538 


11960 


LD 


IX,KIVCTR 


; else put key into 


348B CDAE38 


11970 


CALL 


OUTPGM 


; the output buffer 


348E DDEl 


11980 


POP 


IX 




3490 C9 


11990 
12000 ; 
12010 ISBRK 


RET 






3491 F3 


12020 


DI 






3492 11E437 


12030 


LD 


DE,CLDCB 


;Pt to *CL 


3495 0E01 


12040 


LD 


C,l 


;Send CTL 1, a 


3497 


12050 


(a@CTL 




; Break request 


3497 3E05 


00116 


LD 


A, 5 




3499 EF 


00117 


RST 


40 




349A FB 


12060 


EI 






349 B 01A138 


12070 


LD 


BCCLSEND 




349E CD5533 


12080 


CALL 


FILRl 


;Reset the CL buffer 


34A1 CDDA33 


12090 


CALL 


FS OFF 


;Turn off the *FS 


34A4 010020 


12100 


LD 


BC,2000H 


;Time delay 


34A7 


12110 


(30 PA USE 






34A7 3E10 


00118 


LD 


A, 16 




34A9 EF 


00119 


RST 


40 




34 AA 


12120 


00CKBRKC 


;Reset the break bit 


34AA 3E6A 


00120 


LD 


A, 106 




34AC EF 


00121 


RST 


40 
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34 AD 0E00 


12130 


LD 


C,0 


;Init the character 


34AF 11E437 


12140 


LD 


DE,CLDCB 


;P/u the CL DCB 


34B2 F3 


12150 


DI 






34B3 


12160 


mpui 




;Send the 


34B3 3E04 


00122 


LD 


A,4 




34B5 EF 


00123 


RST 


40 




34B6 FB 


12170 


EI 






34B7 C9 


12180 
12190 ; 


RET 








12200 ; 


INTERRUPT TASK 9 






12210 ; 


Only if 


RS232 does not 


interrupt 




12220 ; 










12230 


IF 


.NOT.BUFFRD 






12240 TCB9 


DW 


TASK 9 


;Task ept 




12250 


ENDIF 






34 B8 0603 


12260 TASK9 


LD 


B,3 


;Max chars/pass 


34BA 0E00 


12270 PRLOOP 


LD 


C,0 


;Test printer status 


34BC 110000 


12280 


LD 


DE,$-$ 


;PDCB$ 


34BD 


12290 PRDCB 


EQU 


$-2 




34 BF 


12300 


(a@CTL 




;Check the status 


34 BF 3E05 


00124 


LD 


A, 5 




34C1 EF 


00125 


RST 


40 




34C2 C0 


12310 


RET 


NZ 


;Ret if unavailable 


34 C3 DDE 5 


12320 


PUSH 


IX 




34C5 DD219938 


; 12330 


LD 


IX.PRVCTR 


;Get char from printer 




12340 


IF 


BUFFRD 




34C9 CDB438 


12350 
12360 


CALL 
ELSE 


PGMGET 






12370 


CALL 


BUFGET 


;Buffer if available 




12380 


ENDIF 






34CC DDEl 


12390 


POP 


IX 




34CE C8 


12400 


RET 


Z 


;None to get, back 


34CF 4F 


12410 


LD 


C,A 




34 D0 


12420 


(3(?PRT 




;Output to printer 


34 D0 3E06 


00126 


LD 


A, 6 




34 D2 EF 


00127 


RST 


40 




34D3 10E5 


12430 


DJNZ 


PRLOOP 


;Loop if more 


34D5 C9 


12440 
12450 ; 


RET 








12460 ; 


Common 


routine to stuff 


various buffers 




12470 ; 








34 D6 DUeEm 


12480 OUTPUT 


LD 


L.(IX) 


;P/u pointer to 


34 D9 DD6601 


12490 


LD 


H,(IX+1) 


; buffer PUT 


34 DC 77 


12500 


LD 


(HL),A 


; Write char into buffer 


34 DD DD3400 


12510 


INC 


(IX) 


;Bump buffer pointer 


34E0 C0 


12520 


RET 


NZ 


;Go if still in same page 


34E1 CD3635 


12530 


CALL 


NEXTAP 


;Find next avai 1 page 


34E4 2810 


12540 


JR 


Z,DUMPCHR 


;Go if no pages available 


34E6 DD7701 


12550 


LD 


(IX+1),A 


;Set index to new page 


34E9 21AD38 


12560 


LD 


HL.FREEPG 


;Reduce the amount of 


34 EC 35 


12570 


DEC 


(HL) 


; free pages 


34ED 3E07 


12580 


LD 


A,7 


;Less than 2K available? 


34 EF BE 


12590 


CP 


(HL) 




34F0 D8 


12600 


RET 


C 


; & return with NZ 


34F1 322430 


12610 


LD 


(MAINLP+1),A 


;Set flag for warning 


34F4 B7 


12620 


OR 


A 


;Ensure NZ return 


34F5 C9 


12630 
12640 ; 


RET 








12650 ; 


No more 


1 pages available 


- keep last page 



Page 112 



The Source 



UTILITY Files 



COMM - LS-DOS 6.2 



Page 00018 



Program Code Section 



34F6 DD3500 
34F9 AF 
34FA C9 



34FB 00 
34FC DDES 
34FE El 
34 FF AF 
3500 ED52 
3502 116A3E 

3505 19 

3506 010400 
3509 11893E 
350C EDB0 
350E 21863E 
3511 



3511 3E0A 

3513 EF 

3514 AF 

3515 C9 



3516 DD6E02 

3519 DD6603 
351C 7D 
351D DDBE00 

3520 2005 

3522 7C 

3523 DDBE01 
3526 C8 



3527 7E 

3528 DD3402 
352B C0 
352C F5 
352D CD4E35 
3530 DD7703 

3533 Fl 

3534 25 

3535 C9 



3536 6C 

3537 2639 
3539 3A0039 
353C E5 
353D 6F 



12660 ; 

12670 DUMPCHR 

12680 

12690 

12700 ; 

12710 ; 

12720 ; 

12730 ; 

12740 ; 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

00128 

00129 

00130 

00131 

00132 

12870 

12880 

12890 ; 

12900 ; 

12910 ; 

12920 BUFGET 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 ; 

13010 ; 

13020 ; 

13030 INNEOUT 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 NEXTAP 

13160 

13170 

13180 

13190 



DEC 


(IX) 


XOR 


A 


RET 





;Dump character and 
: return 



The following code is not executed ^ as it is too 
slow at rates >= 1200 baud because interuppts are on 
DE must be loaded with KIVCTR. 



DB 

PUSH 

POP 

XOR 

SBC 

LD 

ADD 

LD 

LD 

LDIR 

LD 

(3@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

XOR 

RET 





IX 

HL 

A 

HL,DE 

DE, DEVICES 

HL,DE 

BC,4 

DE,0VRRUN$+3 

HL,0VRRUN$ 



,1 



;Dev requesting the output 

;The difference will be 
; the offset into the 
; name table 



; Display the buffer 
; overrun error 



HL, 

A, 10 

40 

A 



reuse current page 



Check for character available in dynamic buffer 



LD 
LD 
LD 
CP 
JR 
LD 
CP 
RET 



L,(IX+2) 

H,(IX+3) 

A,L 

(IX) 

NZ, INNEOUT 

A,H 

(IX+1) 

Z 



;P/u pointer to next 

; buffer GET 

;Check on in=out lo-order 

;Go if in not equal out 
;Check on in=out hi -order 

;Ret if none to i/o 



Buffer is not empty - Get next character 



LD 

INC 

RET 

PUSH 

CALL 

LD 

POP 

DEC 

RET 



A,(HL) 

(IX+2) 

NZ 

AF 

FNPIU 

(IX+3),A 

AF 

H 



;Get a char from buffer 
; Advance lo-order pointer 
;Ret if still same page 
;Save the character 
;Find next page in use 
; Stuff new page index 
;Recover the character 
;Set NZ return for rcvd 



Routine to find next available page buffer 



LD 

LD 

LD 

PUSH 

LD 



L,H 

HiLINKS<-8 

A, (LINKS) 

HL 

L,A 



Point to page buffer 
index 

Get next empty link 
;Save this index pointer 
; Point to new link 
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353E 7E 


13200 


LD 


A,(HL) 


;Get what it links to 


353F B7 


13210 


OR 


A 


;Test if none left 


3540 2002 


13220 


JR 


NZ, GOTNAP 


;Go if still more 


3542 El 


13230 


POP 


HL 


;Restore reg & return 


3543 C9 


13240 
13250 ; 


RET 




; with Z-flag for error 




13260 ; 


Found the next availabl 


e page - set the links 




13270 ; 








3544 320039 


13280 GOTNAP 


LD 


(LINKS), A 


; Update new next avail 


3547 7D 


13290 


LD 


A.L 


;Xfer index of new page 


3548 El 


13300 


POP 


HL 


;Rcvr pointer to index 


3549 77 


13310 


LD 


(HL).A 


; of old & link to new 


354A 6F 


13320 


LD 


L,A 


;Repoint to new page's 


354B 3600 


13330 


LD 


(HL),0 


; index & show it is 


354D C9 


13340 
13350 ; 


RET 




; the last one 




13360 ; 


Find next page in use 






13370 ; 








354E 3AAD38 


13380 FNPIU 


LD 


A.(FREEPG) 


;Show one additional 


3551 3C 


13390 


INC 


A 


; page is free 


3552 32AD38 


13400 


LD 


(FREEPG),A 




3555 3A0139 


13410 


LD 


A,(HIPAGE) 


;P/u highest page avail 


3558 6F 


13420 


LD 


L,A 


;Set HL to its index 


3559 7C 


13430 


LD 


A,H 




355A 2639 


13440 


LD 


H,LINKS<-8 


;Show that page links to 


355C 77 


13450 


LD 


(HL),A 


; the one we just emptied 


355D 320139 


13460 


LD 


(HIPAGE),A 


;Now update the new end 


3560 6F 


13470 


LD 


L,A 


;Set HL to the emptied 


3561 7E 


13480 


LD 


A,(HL) 


; page, p/u what it 


3562 3600 


13490 


LD 


(HL),0 


; linked to, & show old 


3564 C9 


13500 
13510 ; 


RET 




; is end. Ret A=link 




13520 ; 


Execute 


a DOS command 






13530 ; 








3565 21FF2F 


13540 DOSCMD 


LD 


HL,BASE-1 




3568 0601 


13550 


LD 


B,l 


;Set LOW$ 


356A 


13560 


(3@HIGH$ 






356A 3E64 


00133 


LD 


A, 100 




356C EF 


00134 


RST 


40 




356D 219A35 


13570 


LD 


HL,CMDPMT 


; Issue prompt 


3570 


13580 


mospu 








00135 


IFEQ 


00H,1 






00136 


LD 


HL, 






00137 


ENDIF 






3570 3E0A 


00138 


LD 


A, 10 




3572 EF 


00139 


RST 


40 




3573 010050 


13590 


LD 


BC,80<8 


;Max characters 


3576 214438 


13600 


LD 


HL, DUMMY 


;=>input buffer 


3579 


13610 


@0KEYIN 




; Get command request 


3579 3E09 


00140 


LD 


A,9 




357B EF 


00141 


RST 


40 




357C D8 


13620 


RET 


C 


;Back on Break 


357D 04 


13630 


INC 


B 




357E 05 


13640 


DEC 


B 




357F C8 


13650 


RET 


Z 


; or CR only 


3580 EB 


13660 


EX 


DE,HL 




3581 210000 


13670 


LD 


HL,$-$ 


;Pt to CFLAG$ 


3582 


13680 CFLAG 


EQU 


$-2 




3584 CB46 


13690 


BIT 


0,(HL) 


;Get current status 
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3586 E5 

3587 F5 

3588 CBC6 
358A EB 
3588 

358B 3E19 
358D EF 
358E 21AB35 
3591 



3591 3E0A 

3593 EF 

3594 Fl 

3595 El 

3596 C0 

3597 CB86 
3599 C9 
359A 0A 

0A 45 6E 
6F 6D 6D 



35AB 0A 



43 6F 6D 

63 6F 6D 

64 0D 



13700 PUSH 
13710 PUSH 
13720 SET 
13730 EX 
13740 @@CMNDR 

00142 LD 

00143 RST 
13750 LD 
13760 @@DSPLY 

00144 IFEQ 

00145 LD 

00146 ENDIF 

00147 LD 

00148 RST 
13770 POP 
13780 POP 
13790 RET 
13800 RES 
13810 RET 
13820 CMDPMT DB 
74 65 72 20 63 

61 6E 64 3A 0D 
13830 CMPLTD DB 
6D 61 6E 64 20 
70 6C 65 74 65 



HL 
AF 

0,(HL) 
DE,HL 

A, 25 

40 

HL,CMPLTD 

00H,1 
HL, 

A, 10 

40 

AF 

HL 

NZ 

0,(HL) 



;Save memory freeze status 
; Freeze memory 

;Do the command 
;Show cmd finished 



;Get the previous status 
; and CFLAG$ location 
;Back if was set before 
; else restore it 



LFjLF, 'Enter command :',CR 



LF, 'Command completed* ,CR 



35 BE 7B 
20 

35C3 ID 
0A 
6D 

35D1 ID 
0A 
72 
65 

35 E5 0A 

35 E6 20 
20 
20 
20 
20 
20 

360A 20 
20 
20 
20 
20 
20 

362E 44 
55 
4F 
20 
45 
46 

3652 20 



20 7D 

46 69 
65 3A 

46 69 
65 61 
6E 0D 



13840 ; 
13850 ; 
13860 ; 
13870 BRAKET DB 



Messages 



20 20 
20 20 
20 20 
20 20 
20 20 

20 20 
20 20 
20 20 
20 20 
20 0A 

50 4C 
20 20 
41 43 
57 4E 
20 20 



13880 FILEPMT DB 

6C 65 20 6E 61 
20 03 

13890 OPENMSG DB 

6C 65 20 61 6C 

64 79 20 6F 70 

13900 MNUMSG DB 
13910 STATl DB 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 

13920 DB 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 
20 20 20 20 20 



'{ }',3 ;Brackets around hex byte 
29,10, 'File name: ',3 

29,10, 'File already open',CR 



LF 



MF 



13930 

58 20 45 43 48 

45 43 4F 4C 46 

43 4C 46 20 52 

44 20 50 45 4F 



DB 



DUPLX ECHO ECOLF ACCLF REWND PEOF 



13940 DB 
44 43 43 20 20 20 43 4C 



DCC CLS 8-B CMD HNDSH EXIT',LF 
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53 20 
20 20 
4E 44 
49 54 

3676 3D 

3D 31 
3D 3D 
20 3D 
3D 35 
3D 3D 

369A 3D 

3D 37 
3D 3D 
20 3D 

36B2 3D 

3D 3A 
3D 3D 



20 20 38 
43 4D 44 
53 48 20 
0A 

13950 
3D 3D 20 
20 3D 3D 
3D 34 3D 
3D 3D 20 
20 

13960 
3D 3D 20 
20 3D 3D 
3D 30 3D 

13970 

13980 
3D 3D 20 



2D 42 20 
20 20 48 
20 45 58 



DB 






3D 3D 32 
33 3D 3D 
3D 20 3D 
3D 3D 36 



DB 



3D 3D 38 
39 3D 3D 
3D 20 



IF 
DB 






(9M0D4 



3D 3D 2D 



36 BD 
36 BE 



36 E2 



3705 



372A 
372D 
3735 
373D 
3745 
374D 
3755 
375D 
3765 



0A 
20 

2A 4B 
4F 20 
20 20 
2A 46 
52 20 
20 

44 54 
3F 20 
20 20 
4F 4E 
46 0A 
20 

20 20 
20 20 
20 20 
20 20 
20 20 
20 

20 0D 
8134 
0737 
3B31 
1337 
FA 33 
1A37 
2E31 
2537 
6A30 
E835 
0A31 
F435 
8930 
0C36 
A330 
2336 



13990 

14000 

14010 

14020 

14030 

14040 
49 20 20 20 
20 20 2A 50 
2A 43 4C 20 
53 20 20 20 
20 

14050 
44 20 20 20 
20 20 49 44 
52 45 53 20 
20 20 20 20 



ENDIF 

IF 

DB 

ENDIF 

DB 

DB 



2A 44 
52 20 
20 20 
2A 46 



DB 



3F 3F 
20 20 
20 20 
4F 46 



14060 STAT 2 DB 
20 20 20 20 20 20 
20 20 20 20 20 20 
20 20 20 20 20 20 
20 20 20 20 20 20 
20 20 

14070 DB 

14080 STATAB DW 
1731 0D37 



14090 
4534 1837 

14100 
4130 1F37 

14110 
4831 2B37 

14120 
C930 EE35 

14130 
DB30 FA35 

14140 
1F34 1836 

14150 



DW 



DW 



DW 



DW 



DW 



DW 



DW 



(3M0D2 
LF 



*KI *D0 *PR *CL *FS *FR ' 



' DTD ??? ID RES ON OFF MF 



' ',CR 

KISW+l,STAT2+2,DEV0UT+l,STAT2+8 

PUTPR+1,STAT2+14,TASK8B+1,STAT2+19 

TASK8A+2,STAT2+21,FSSW+l,STAT2+26 

FRSW+l,STAT2+32,FRI0SW+l,STAT2+38 

DPLXSW+l,STATl+2,ECH0SW+l,STATl+8 

ECOLF,STATl+l4,ACCLFSW+l,STATl+20 

DSPCTRL+l,STATl+38.EIGHT+l,STATl+50 

SHAKE+1, STAT 1+61 
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3769 46 14160 FSNAME$ DB 

53 2D 53 70 65 63 3A 20 

03 

3773 20 14170 FRNAME$ DB 

20 46 52 2D 53 70 65 63 

3A 20 03 

377F 20 14180 PAGSPR$ DB 

20 4D 65 6D 6F 72 79 3A 

20 20 20 4B 0D 

378D 2A 14190 CMDERR$ DB 

2A 20 49 6E 76 61 6C 69 

64 20 63 6F 6D 6D 61 6E 

64 20 73 65 71 75 65 6E 

63 65 20 2A 2A 0D 
37AC 57 14200 LILPG$ DB 

61 72 6E 69 6E 67 21 20 
4C 65 73 73 20 74 68 61 
6E 20 32 4B 20 6F 66 20 

62 75 66 66 65 72 20 6C 

65 66 74 20 
37D1 20 14210 DB 

58 2D 4F 46 46 20 74 72 

61 6E 73 6D 69 74 74 65 

64 0D 

14220 ; 

14230 ; File control blocks 

14240 ; 



'FS-Spec: ',3 

' FR-Spec: ',3 

' Memory: K',CR 

'** Invalid command sequence **',CR 

"Warning! Less than 2K of buffer left 



X-OFF transmitted ',CR 



0020 


14250 CLDCB 


DS 


32 


0020 


14260 FS FCB 


DS 


32 


0020 


14270 FR FCB 


DS 


32 


0051 


14280 DUMMY 
14290 ; 


DS 


81 ;Used for d 




14300 ; 


Put/Get 


index pointers 




14310 ; 






3895 0000 


14320 KIVCTR 


DW 


0,0 


0000 








3899 0000 


14330 PRVCTR 


DW 


0J 


0000 








389 D 0000 


14340 CLREC 


DW 


0,0 


0000 








38A1 0000 


14350 CLSEND 


DW 


0J 


0000 








38A5 0000 


14360 FSVCTR 


DW 


0,0 


0000 








38A9 0000 


14370 FRVCTR 


DW 


0,0 


0000 








0001 


14380 FREEPG 
14390 ; 


DS 


1 




14400 ; 


Routines to buffer I/O in pgm loop 




14410 ; 






38 AE F3 


14420 OUTPGM 


DI 




38AF CDD634 


14430 


CALL 


OUTPUT 


38B2 FB 


14440 


EI 




38B3 C9 


14450 


RET 




38B4 F3 


14460 PGMGET 


DI 




38B5 CD1635 


14470 


CALL 


BUFGET 


38B8 FB 


14480 


EI 




38B9 C9 


14490 


RET 





14500 
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3900 
0001 



0001 
0001 
00FC 



0100 
0100 

3C00 



14510 
14520 
14530 
14540 
14550 
14550 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 



Page buffer Link table 



ORG 
LINKS DS 
HI PAGE DS 
DS 
DS 
DS 



$<-8+l<+8 

1 

1 

1 

1 

252 



;Link to next available 
;Link to last available 
;Init to 1st avail 
;Init to last avail 
; Space for linkage tables 



Transmit and Receive File buffers 



XMTBUF 
RCVBUF 



DS 
DS 



256 
256 



SUBTTL '<COMM initialization code>' 
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3C00 


14670 *GET 


LCOMMA: 


3 


;Initialization code 




14680 aCOMMA/ASM ~ COMM Initializat 


ion Code 




U69$ ; 










14700 ; 


Entry point to LCOMM 






14710 ; 










14720 LCOMM 








3C00 


14730 


@(aCKBRKC 


;Check for break 


3C00 3E6A 


00149 


LD 


A, 106 




3Cj92 EF 


00150 


RST 


40 




3C03 2804 


14740 


JR 


Z, LCOMMA 


; Continue if not 


3C05 21FFFF 


14750 


LD 


HL,-1 


; else ABORT 


3C08 C9 


14760 
14770 ; 


RET 






3C09 F3 


14780 LCOMMA 


DI 






3C0A ED73043e 


1 14790 


LD 


(STACK ),SP 


;Save for exit 


3C0E E5 


14800 


PUSH 


HL 


;Save ptr to CMD buffer 


3C0F 210000 


14810 


LD 


HL,0 




3C12 


14820 


@@BREAK 




;Disable break vectoring 




00151 


IFEQ 


00H,1 






00152 


LD 


HL, 






00153 


ENDIF 






3C12 3E67 


00154 


LD 


Aa03 




3C14 EF 


00155 


RST 


40 




3C15 FB 


14830 


EI 






3C16 21533D 


14840 


LD 


HL,HELLO$ 


; Issue the copyright 


3C19 


14850 


(a@DSPLY 








00156 


IFEQ 


00Ha 






00157 


LD 


HL, 






00158 


ENDIF 






3C19 3E0A 


00159 


LD 


Aa0 




3C1B EF 


00160 


RST 


40 




3C1C El 


14860 


POP 


HL 




3C1D 11E437 


14870 


LD 


DE,CLDCB 


; Point to FCB 


3C20 


14880 


@@FSPEC 




;Get the *CL spec 


3C20 3E4E 


00161 


LD 


A, 78 




3C22 EF 


00162 


RST 


40 




3C23 C24A3D 


14890 


JP 


NZ,BADCL 


;Go error if none 


3C26 lA 


14900 


LD 


A,(DE) 




3C27 FE2A 


14910 


CP 


"*i 


;Ck for device spec 


3C29 C24A3D 


14920 


JP 


NZ,BADCL 


;Go if not a device 


3C2C 11A23E 


14930 


LD 


DE,PRMTBL$ 




3C2F 


14940 


(3@PARAM 




; Parse the parms 


3C2F 3E11 


00163 


LD 


A, 17 




3C31 EF 


00164 


RST 


40 




3C32 F5 


14950 


PUSH 


AF 


;Save status 


3C33 C41A30 


14960 


CALL 


NZ,$ERROR 


;Display any error 


3C36 Fl 


14970 


POP 


AF 




3C37 C20A30 


14980 
14990 ; 


JP 


NZ,$ABORT 


; and then quit 


3C3A 0600 


15000 


LD 


B,0 




3C3C 11E437 


15010 


LD 


DE,CLDCB 


;Open the comm line 


3C3F 


15020 


@@OPEN 






3C3F 3E3B 


00165 


LD 


A, 59 




3C41 EF 


00166 


RST 


40 




3C42 F5 


15030 


PUSH 


AF 




3C43 C41A30 


15040 


CALL 


NZ,$ERROR 


;Show any open error 


3C46 Fl 


15050 


POP 


AF 




3C47 C20A30 


15060 


JP 


NZ,$ABORT 


; and then quit 


3C4A 0E02 


15070 


LD 


C,2 


;INIT function for hardware 


3C4C 


15080 


(3@CTL 




;Just in case 
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3C4C 3E05 


00167 


LD 


A, 5 




3C4E EF 


00168 


RST 


40 




3C4F 21D63D 


15090 


LD 


HL,GETMNU$ 


;How the user gets menu 


3C52 


15100 


@@DSPLY 








00169 


IFEQ 


00H,1 






00170 


LD 


HL, 






00171 


ENDIF 






3C52 3E0A 


00172 


LD 


A, 10 




3C54 EF 


00173 


RST 


40 




3C55 AF 


15110 


XOR 


A 




3C56 320438 


15120 


LD 


(FS FCB),A 


;Init FOB'S to OFF 


3C59 322438 


15130 


LD 


(FR FCB),A 




3C5C ED5BA03E 


15140 


LD 


DE,TPRNAME) 


;Load 'PR' backwards 


3C60 


15150 


(aC^GTDCB 






3C60 3E52 


00174 


LD 


A, 82 




3C62 EF 


00175 


RST 


40 




3C63 22BD34 


15160 


LD 


(PRDCB),HL 


; Store address for @CTL 


3C66 


15170 


(3(3FLAGS 




;Set up lY 


3C66 3E65 


00176 


LD 


A, 101 




3C68 EF 


00177 


RST 


40 




3C69 FDE5 


15180 


PUSH 


lY 




3C6B Dl 


15190 


POP 


DE 




3C6C 211200 


15200 


LD 


HL,'S'-'A' 


; Off set to SFLAG$ 


3C6F 19 


15210 


ADD 


HL,DE 




3C70 221130 


15220 


LD 


(SFLG),HL 


; Store for later 


3C73 210A00 


15230 


LD 


HL,'K'-'A' 


;Offset to KFLAG$ 


3C76 19 


15240 


ADD 


HL,DE 




3C77 CB86 


15250 


RES 


0,(HL) 


;Be sure BREAK bit is off 


3C79 210200 


15260 


LD 


HL,'C'-'A' 


;CFLAG$ 


3C7C 19 


15270 


ADD 


HL,DE 




3C7D 228235 


15280 


LD 


(CFLAG),HL 




3C80 CB4E 


15290 


BIT 


1,(HL) 


; Doing CMNDR? 


3C82 210000 


15300 


LD 


HL,0 




3C85 45 


15310 


LD 


B,L 




3C86 2801 


15320 


JR 


Z,$+3 


;Use LOW$ if CMNDR 


3C88 04 


15330 


INC 


B 




3C89 


15340 


@(9HIGH$ 






3C89 3E64 


00178 


LD 


A, 100 




3C8B EF 


00179 


RST 


40 




3C8C 23 


15350 


INC 


HL 


;Avai Table for use 


3C8D 25 


15360 


DEC 


H 


; by page buffers 


3C8E 44 


15370 


LD 


B,H 


;Set B to highest usable 


3C8F 210039 


15380 


LD 


HL, LINKS 




3C92 3E3C 


15390 


LD 


A,LC0MM<-8 


;Establish 1st usable 


3C94 77 


15400 


LD 


(HL),A 


;Init to 1st avai lable 


3C95 2C 


15410 


INC 


L 


; page buffer 


3C96 70 


15420 


LD 


(HL),B 


;Init to highest page 


3C97 2C 


15430 


INC 


L 


; buffer available 


3C98 77 


15440 


LD 


(HL),A 


;Init to begin & highest 


3C99 2C 


15450 


INC 


L 




3C9A 70 


15460 
15470 ; 


LD 


(HL),B 






15480 ; 


Establi 


sh page buffer 


linkage table 




15490 ; 








3C9B 6F 


15500 DOLINKS 


LD 


L,A 


;Init memory begin to 


3C9C 3C 


15510 


INC 


A 


; high bytes for as many 


3C9D 77 


15520 


LD 


(HL),A 


; bytes as pages to top 


3C9E B8 


15530 


CP 


B 




3C9F 20FA 


15540 


JR 


NZ, DOLINKS 
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3CA1 6F 
3CA2 3600 



3CA4 
3CA6 
3CAA 
3CAD 
3CB1 
3CB4 
3CB8 
3CBB 
3CBF 
3CC2 
3CC6 
3CC9 
3CCD 



2604 

DD219538 

CDE63C 

DD219938 

CDE63C 

DD219D38 

CDE63C 

DD21A138 

CDE63C 

DD21A538 

CDE63C 

DD21A938 

CDE63C 



3CD0 2639 
3CD2 0600 
3CD4 3A0039 
3CD7 6F 
3CD8 7E 
3CD9 B7 
3CDA 2804 
3CDC 04 
3CDD 6F 
3CDE 18F8 
3CE0 78 
3CE1 32AD38 
3CE4 1818 



3CE6 DD360000 
3CEA DD360200 
3CEE E5 
3CEF CD3635 
3CF2 CA463D 
3CF5 El 
3CF6 DD7701 
3CF9 DD7703 
3CFC 24 
3CFD C9 



3CFE 



15550 

15560 

15570 ; 

15580 ; 

15590 ; 

15600 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 ; 

15740 ; 

15750 ; 

15760 

15770 

15780 

15790 

15800 FBSl 

15810 

15820 

15830 

15840 

15850 

15860 FBS2 

15870 

15880 

15890 ; 

15900 ; 

15910 ; 

15920 INITBUF 

15930 

15940 

15950 

15960 

15970 

15980 

15990 

16000 

16010 

16020 ; 

16030 ; 

16040 ; 

16050 SETUPT 

16060 

16070 

16080 

16090 

00180 

00181 

16100 

16110 



LD 
LD 
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L,A 
(HL),0 
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;Close out with zero 
Establish starting page buffers for devices 

;Init 1st at links+4 



LD 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 



H,4 

IX.KIVCTR 

INITBUF 

IX,PRVCTR 

INITBUF 

IX,CLREC 

INITBUF 

IX,CLSEND 

INITBUF 

IX,FSVCTR 

INITBUF 

IX,FRVCTR 

INITBUF 



;Init *KI page buffer 

;Init *PR page buffer 

;Init *CL-R page buffer 

;Init *CL-S page buffer 

;Init *FS page buffer 

;Init *FR page buffer 
Calculate free buffer space 



LD 

LD 

LD 

LD 

LD 

OR 

JR 

INC 

LD 

JR 

LD 

LD 

JR 



H,LINKS<-8 

B,0 

A,(LINKS) 

L,A 

A.(HL) 

A 

Z.FBS2 

B 

L,A 

FBSl 

A,B 

(FREEPG),A 

SETUPT 



;P/u hi -order link table 
;Init count to zero 
;Find pointer to 1st spr 

;P/u pointer to next 
; spare & test if last 
;Exit if no more 
;Bunip counter 
;Show new pointer 

;Transfer the count 
: and save it 



Routine to establish starting page buffers 



LD 
LD 
PUSH 

L/ML L 

jp 

POP 

LD 

LD 

INC 

RET 



(IX). 

(IX+2),0 

HL 

NEXTAP 

Z,NOBUFS 

HL 

(IX+1),A 

(IX+3),A 

H 



;Show low-order PUT/GET 
; start at reference 

;Find next available page 
;6o if insufficient pages 

;Set high-order PUT/GET 
; page index pointers 
;Bump to next entry in 
; link table & return 



Routine to set up the task processor 



IF 

LD 

LD 

(a^ADTSK 

LD 

RST 

LD 

LD 



.NOT.BUFFRD 

DE,TCB8 

C,8 

A, 29 
40 

DE,TCB9 
C,9 



;CL task process 



;Printer output task 
;Only if RS232 does 
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COMM initialization code 








3CFE 


16120 


(aiPADTSK 




; not interrupt 




00182 


LD 


A, 29 






00183 


RST 


40 






16130 


ENDIF 








16140 ; 










16150 


IF 


BUFFRD 




3CFE 11E437 


16160 


LD 


DE,CLDCB 


;Turn on wakeup feature 


3D01 FD21F833 


16170 


LD 


IY,TASK8A 


;Wakeup driver address 


3D05 0E04 


16180 


LD 


C,4 


;Set addr CTL value 


3D07 F3 


16190 


DI 






3D08 


16200 


@@CTL 




;Send to Com driver 


3D08 3E05 


00184 


LD 


A, 5 




3D0A EF 


00185 


RST 


40 




3D0B FB 


16210 


EI 






3D0C FD221432 


16220 
16230 
16240 ; 


LD 
ENDIF 


(OLDVEC),IY 


;Save previous state 


3D10 21EE3D 


16250 


LD 


HL,LFEEDS 


;Clear most of screen 


3D13 


16260 


mospu 








00186 


IFEQ 


00H,1 






00187 


LD 


HL, 






00188 


ENDIF 






3D13 3E0A 


00189 


LD 


A, 10 




3D15 EF 


00190 
16270 ; 


RST 


40 






16280 ; 


Transfer any translat" 


ion characters 




16290 ; 








3D16 3AEA3E 


16300 


LD 


A,(XLATES+1) 


;Transfer the output 


3D19 326430 


16310 


LD 


(XLTS1+1),A 


; translation character 


3D1C 3AE93E 


16320 


LD 


A,(XLATES) 




3D1F 326830 


16330 
16340 ; 


LD 


(XLTS2+1),A 




3D22 3AEC3E 


16350 


LD 


A,(XLATER+1) 


;Transfer the input 


3D25 322B34 


16360 


LD 


(XLTR1+1),A 


; translation character 


3D28 3AEB3E 


16370 


LD 


A,(XLATER) 




3D2B 322F34 


16380 
16390 ; 


LD 


(XLTR2+1),A 




3D2E 3AE33E 


16400 


LD 


A,(NULLPRM) 


;Transfer the null parm 


3D31 323434 


16410 


LD 


(ACCNUL+1),A 




3D34 3AE53E 


16420 


LD 


A,(XONP) 


jTransfer the XON/XOFF 


3D37 32A930 


16430 


LD 


(X0NP1),A 


; parms 


3D3A 3AE73E 


16440 


LD 


A,(XOFFP) 




3D3D 32AD30 


16450 


LD 


(X0FFP1),A 




3D40 322F30 


16460 


LD 


(X0FFP2),A 




3D43 C32330 


16470 
16480 ; 


JP 


MAINLP 






16490 ; 


Error handling on ini 


tialization 




16500 ; 








3D46 21413E 


16510 NOBUFS 


LD 


HL,NOBUFS$ 


;"Not enuf mem for buffe 


3D49 DD 


16520 


DB 


0DDH 




3D4A 21223E 


16530 BADCL 


LD 


HL,BADCL$ 


;"Need RS-232 device nam 


3D4D 


16540 


(a@LOGOT 








00191 


IFEQ 


00H,1 






00192 


LD 


HL, 






00193 


ENDIF 






3D4D 3E0C 


00194 


LD 


A, 12 




3D4F EF 


00195 


RST 


40 




3D50 C30A30 


16550 
16560 ; 


JP 


$ABORT 
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'COMM' 
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- 6.2.0 - Copyright 1982/83/84 by Logical' 



Systems, Inc. 



M0 



'All Rights Reserved. Licensed 1982/83/84' 



16570 ; 
16580 ; 
3D53 43 16590 HELLO$ DB 

4F 4D 4D 
3D57 16600 *GET CLIENT:3 

16610 ; CLIENTS/ASM - File to establish sign-on headers 

16620 ; 
3D57 20 16630 DB 

2D 20 36 2E 32 2E 30 20 

2D 20 43 6F 70 79 72 69 

67 68 74 20 31 39 38 32 

2F 38 33 2F 38 34 20 62 

79 20 4C 6F 67 69 63 61 
6C 
3D81 20 16640 DB 

53 79 73 74 65 6D 73 2C 

20 49 6E 63 2E 20 20 20 
20 20 20 0A 

16650 ; 
3D96 41 16660 DB 

6C 6C 20 52 69 67 68 74 

73 20 52 65 73 65 72 76 
65 64 2E 20 4C 69 63 65 
6E 73 65 64 20 31 39 38 
32 2F 38 33 2F 38 34 

3DBE 20 16670 DB 

74 6F 20 78 78 78 78 78 
78 78 78 78 78 78 78 78 
78 78 78 78 78 0A 0D 

16680 IF 

3DD6 55 16690 GETMNU$ DB 

73 65 20 3C 43 4C 45 41 
52 2D 38 3E 20 66 6F 72 
20 6D 65 6E 75 0A 0D 

16700 ENDIF 

16710 IF 

16720 GETMNU$ DB 

16730 ENDIF 

3DEE 0A 16740 LFEEDS DB 

0A 0A 0A 0A 0A 0A 
3DF5 0A 16750 DB 

0A 0A 0A 0A 0A 0A 0A 0A 
0A 0A 0E 03 

16760 ; 
3E02 00 16770 DC 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 

16780 ; 

3E22 43 16790 BADCL$ DB 

6F 6D 6D 20 4C 69 6E 65 

20 64 72 69 76 65 72 20 

6E 6F 74 20 73 70 65 63 

69 66 69 65 64 0D 

3E41 49 16800 NOBUFS$ DB 

6E 73 75 66 66 69 63 69 

65 6E 74 20 6D 65 6D 6F 

72 79 20 74 6F 20 65 73 

74 61 62 6C 69 73 68 20 



to xxxxxxxxxxxxxxxxxx' ,10,13 



@M0D4 

'Use <CLEAR-8> for menu',LF,CR 



(PM0D2 

'Use <ESC-8> for menu',LF,CR 

LF,LF,LF,LF,LF,LF,LF 

LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,14,3 



32,0 



; Patch space 



'Comm Line driver not specified' ,CR 



'Insufficient memory to establish buffers',CR 
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62 75 


66 


66 65 


72 73 0D 








3E6A 20 




16810 


DEVICES 


DB 


' KI PR 


CL-RCL-S FS FR ????' 




4B 49 


20 


20 50 52 20 43 








4C 2D 


52 


43 4C 


2D 53 20 








46 53 


20 20 46 


52 20 3F 








3F 3F 


3F 














3E86 2A 




16820 OVRRUN$ 


DB 


'** xxxx 


Buffer overrun **' ,3 




2A 20 78 


78 78 


78 20 42 








75 66 


66 


65 72 


20 6F 76 








65 72 


72 


75 6E 


20 2A 2A 








03 
















3EA0 50 
52 




16830 


PR NAME 


DB 


'PR' 








16840 


» 










3EA2 58 




16850 


PRMTBLS 


DB 


'XLATES' 






4C 41 


54 


45 53 












3EA8 E93E 




16860 




DW 


XLATES 






3EAA 58 




16870 




DB 


'XS 






53 20 


20 


20 20 












3EB0 E93E 




16880 




DW 


XLATES 






3EB2 58 




16890 




DB 


' XLATER ' 






4C 41 


54 


45 52 












3EB8 EB3E 




16900 




DW 


XLATER 






3EBA 58 




16910 




DB 


•XR 






52 20 20 20 20 












3EC0 EB3E 




16920 




DW 


XLATER 






3EC2 4E 




16930 




DB 


'NULL ' 






55 4C 


4C 


20 20 












3EC8 E33E 




16940 




DW 


NULLPRM 






3ECA 4E 




16950 




DB 


'N 






20 20 20 20 20 












3ED0 E33E 




16960 




DW 


NULLPRM 






3ED2 58 




16970 




DB 


'XON 






4F 4E 


20 


20 20 












3ED8 E53E 




16980 




DW 


XONP 






3EDA 58 




16990 




DB 


' XOFF ' 






4F 46 


46 


20 20 












3EE0 E73E 




17000 




DW 


XOFFP 






3EE2 00 




17010 
17020 


> 


NOP 








3EE3 FFFF 




17030 


NULLPRM 


DW 


-1 


;Default to accept 


nulls 


3EE5 1100 




17040 XONP 


DW 


'Q'-40H 


;Ctl-Q 




3EE7 1300 




17050 XOFFP 


DW 


'S'-40H 


;Ctl-S 




3EE9 0000 




17060 


XLATES 


DW 









3EEB 0000 




17070 
17080 


XLATER 

9 


DW 









3EED 




00110 




SUBTTL 


<> 






3C00 




00120 




END 


LCOMM 
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$ABORT 


300A $ERROR 


301A $EXIT 


3000 


$OPEN 


300F 


mi 


0000 @@2 


0000 


003 


0000 (304 


0000 @M0D2 


0000 


(aM0D4 


FFFF 


ACCLFSW 


30DA ACCNUL 


3433 


AUTXOFF 


346A 


BADCL 


3D4A BADCL$ 


3E22 


BASE 


3000 


BRAKET 


35BE BREAK 


0080 


BUFFRD 


FFFF 


BUFGET 


3516 CFLAG 


3582 


CKFREPG 


3045 


CLDCB 


37E4 CLOUT 


30FA 


CLREC 


389D CLS 


328F CLSEND 


38A1 


CMDERR 


327D CMDERR$ 


378 D CMDKEY 


3168 


CMDPMT 


359A CMPLTD 


35AB CR 


000 D 


CRSW 


30E0 CTLQ 


30B2 CTLR 


30C2 


CVDl 


3330 CVD2 


3335 DEVICES 


3E6A 


DEVOUT 


3116 


DOLINKS 


3C9B DOSCMD 


3565 


DPLXSW 


3069 


DSPCTRL 


3088 DUMMY 


3844 


DUMPCHR 


34F6 


ECHOSW 


30C8 ECLFl 


3109 


ECOLF 


310A EIGHT 


341E ENUFPG 


3037 


EOFFS 


305 C 


EXIT 


320F FBSl 


3CD8 


FBS2 


3CE0 FILEOF 


338D FILEPMT 


35C3 


FILFR 


33 CC 


FILID 


3396 FILRl 


3355 


FILR2 


3360 FILR3 


3369 FILR4 


336B 


FILRES 


334C 


FILREW 


3384 FNDDVR 


3400 


FNPIU 


354E 


FRCIT 


3467 FRCPUT 


3451 


FREEP6 


38AD 


FRIOSW 


3147 FRIO OFF 


33E4 


FR NAMES 


3773 


FRSW 


312D FRVCTR 


38A9 


FR FCB 


3824 


FR OFF 


33DF FSNAMES 


3769 


FSOFF 


3077 


FSSW 


3040 FSSWGO 


3050 


FSVCTR 


38A5 


FS FCB 


3804 FS OFF 


33 DA 


GETMNU$ 


3DD6 


GOTNAP 


3544 HELLO$ 


3D53 


HI PAGE 


3901 


INITBUF 


3CE6 INNEOUT 


3527 


ISBRK 


3491 


KEEPCH 


3438 KISW 


3480 


KIVCTR 


3895 


LCMON 


3070 LCOMM 


3C00 


LCOMMA 


3C09 


LF 


000A LFEEDS 


3DEE 


LILPG$ 


37AC 


LINKS 


3900 LNKD 


341A 


MAINLP 


3023 


MENU 


329A MNUMSG 


35 E5 


NEXTAP 


3536 


NOBUFS 


3D46 NOBUFSS 


3E41 


NOSQ 


30 B8 


NOTBRK 


3485 NOTCLS 


3129 


NOTCR 


30 DF 


NOTNOW 


33D3 NULLPRM 


3EE3 


OFFS 


337C 


OLDVEC 


3214 OPENMSG 


35 Dl 


OUTPGM 


38AE 


OUTPUT 


34D6 OVRRUNS 


3E86 


PAGSPR$ 


377F 


PGMGET 


38B4 POPERR 


3267 


PRDCB 


34BD 


PRLOOP 


34BA PRMTBL$ 


3EA2 


PR NAME 


3EA0 PRVCTR 


3899 PUTPR 


313A 


QCL 


3238 


QFUNC 


3233 QONOFF 


325A 


QONOFFl 


325F 


QSHAKE 


3242 QSHAKEl 


3251 


QUITS 


3003 


RCVBUF 


3B00 RETADD 


341D 


SAVCHR 


30A1 


SENDIT 


3062 SETUPT 


3CFE 


SFLG 


3011 


SHAKE 


30 A2 SKIPREC 


30F4 


SNDOUT 


3102 


STACK 


3004 STATl 


35E6 


STAT2 


3705 


STATAB 


372D STATLPl 


32 B4 


STATLP2 


32 D8 


STATE P 3 


3301 STATLP4 


3324 


TAKEREC 


30F1 


TASK8A 


33 F8 TASK8B 


3444 


TASK 9 


34B8 


TASKK 


3474 TASKS 


33E9 


TSTNUL 


3430 


TURNOF 


3284 TURNON 


3286 


XLATER 


3EEB 


XLATES 


3EE9 XLTRl 


342A 


XLTR2 


342 E 


XLTSl 


3063 XLTS2 


3067 


XMTBUF 


3A00 


XOFF 


0013 XOFFP 


3EE7 


XOFFPl 


30AD X0FFP2 


302F XONP 


3EE5 
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Page 000; 


XONPl 


30 A9 @@ ABORT 


6C16 @@ADTSK 


6CA9 




mum 


7iCl @@BKSP 


6EA1 @@BREAK 


7107 




@§CHNIO 


6C01 ^CKBRKC 


7225 @(3CKDRV 


6CFD 




@@CKEOF 


6EB5 @@CKTSK 


6C94 @@CLOSE 


6E8C 




mcis 


720F @@CMNDI 


6C40 @@CMNDR 


6C55 




men 


6A65 @@DATE 


6BD7 eiaoCSTAT 


6D3C 




@@ DEBUG 


6C7F @@DECHEX 


7141 @@DIRRD 


70AE 




@@DIRWR 


70C3 @@DIV16 


712C @@DIV8 


7117 




@@DODIR 


6D12 @@DSP 


6A29 @(3DSPLY 


6 AC 9 




@0 ERROR 


6C6A @@EXIT 


6C2B (3@FEXT 


701 B 




@@FLAGS 


71AB @@FNAME 


7030 @@FSPEC 


7006 




@@GATRD 


7099 @@6ATWR 


70D8 @@GET 


6A3D 




@@6TDCB 


705A @@6TDCT 


7045 (B(9GTM0D 


706 F 




@@HDFMT 


6DE4 (3@HEX16 


7180 @@HEX8 


716B 




@@HEXDEC 


7156 @@HIGH$ 


7195 0@INIT 


6E62 




@@KBD 


6AA1 @@KEY 


6A15 mKEYlH 


6AB5 




@@KLTSK 


6CE8 @@LOAD 


6FDC @(PL0C 


6ECB 




mio¥ 


6EE0 @@LOGER 


6B00 (PiaLOGOT 


6B15 




mmQi 


5B4C @@MUL15 


7102 mmi8 


70ED 




@@OPEN 


6E77 (a@PARAM 


6BC2 @@PAUSE 


6BAD 




@0PEOF 


6EF5 @@POSN 


6F0A (a^PRINT 


6B61 




@@PRT 


6A79 @@PUT 


6A51 (agRAMDIR 


6027 




@@RDSEC 


6DBA @@RDSSC 


7084 @@READ 


6F1F 




@@REMOV 


6E4D lagRENAM 


5E38 @@REW 


6F34 




@@RMTSK 


6CBE (3@RPTSK 


6CD3 @@RREAD 


6F49 




@@RSLCT 


6DA5 eiaRSTOR 


6D66 @@RUN 


6FF1 




@@RWRIT 


6F5E @@SEEK 


6D90 @@SEEKSC 


6F73 




@@SKIP 


6F88 @@SLCT 


6D51 @@STEPI 


6078 




@@TIME 


6BEC eiaVDCTL 


6B98 @@VER 


6F9D 




@(aVRSEC 


6DCF @@WEOF 


6FB2 @@WHERE 


6A8D 




@@WRITE 


6FC7 @@WRSEC 


6IF9 mmssc 


6E0E 




@0WRTRK 


6E23 








0W00 Total 


errors 
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com /cm - Convert Model III TRSDOS files 

The Conv utility will move files from TRSDOS 1.2 and 1.3, Model III, copying them to 
an LS-DOS or TRSDOS 6 disk. 
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0000 

001 C 
001 F 
0003 
000 D 
000A 

0040 
0010 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00010 



2600 



2600 
2600 3E6A 

2602 EF 

2603 2804 
2605 21FFFF 
2608 C9 



2609 ED734626 
260D E5 
260E 

260E 21C32A 



03900 
00230 
03920 
03930 
03940 
00240 
00250 
00260 
00270 



;CONV/ASM - Convert TRSDOS 1.2, 1.3 Disks 
TITLE <CONV - LS-DOS 6.2> 

HOME EQU ICH 

CLR EQU IFH 

ETX EQU 03H 

CR EQU 0DH 

LF EQU 10 

FLAG EQU 01000000B 

ABB EQU 00010000B 

*GET SVCMAC:3 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*GET C0PYC0M:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 

COM •<*(C) 1982,83,84 by LSI*>' 

ORG 2600 H 



SVC Macro equivalents 



BEGIN 



00001 



@@CKBRKC 

LD A, 106 



00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00003 



RST 
JR 
LD 
RET 



40 

Z,BEGINA 

HL,-1 



BEGINA 



2611 
2613 
2614 
2617 
2618 
2618 
261A 
261 B 
261F 
2621 
2622 
2622 
2624 
2625 
2628 
262A 
262B 
262E 
262F 
2632 
2634 
2637 
2638 



3E0A 
EF 

210000 
45 

3E65 

EF 

FDCB024E 

2801 

04 

3E64 

EF 

22D528 

FDE5 

Dl 

210A00 

19 

222427 

CB86 

211200 

19 

22E427 



00005 
00006 
00007 
00370 
00380 
00390 



00009 



00410 
00420 
00430 
00010 
00011 
00440 
00450 
00460 
00470 
00480 
00490 



LD (STACK), SP 

PUSH HL 
(3(3DSPLY HELLO$ 
IFEQ 01H,1 
LD HL,HELLO$ 

ENDIF 

LD A, 10 

RST 40 

LD HL,0 

LD B,L 

@@FLAGS 
LD A, 101 

RST 40 

BIT 1,(IY+'C'-'A') 

JR Z,NOTCMDR 

INC B 

NOTCMDR (a@HIGH$ 

LD A,: 

RST 40 



00510 
00520 
00530 



LD 

PUSH 

POP 

LD 

ADD 

LD 

RES 

LD 

ADD 

LD 



(MYHIGH),HL 

lY 

DE 

HL,'K'-'A' 

HL,DE 

(KFLG),HL 

0,(HL) 

HL,'S'-'A' 

HL,DE 

rSFLG),HL 



;Continue if no break 
: else abort 



;Save entry stack 
;Save ptr to CMD buffer 
; Display the signon 



;Set up to get HIGH$ 
;IY => flag table base 



;0K if not CMDR 
;Use LOW$ otherwise 

;P/u HIGH$/LOW$ 



; Store away 
;Trans to HL 

;Offset to KFLAG$ 
;HL=>KFLAG$ 
; Store pointer 
;Kick break bit off 
;SFLAG$ offset 

; Store away 
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263B El 
263C CD5526 



263F 210000 
2642 
2642 3E6A 

2644 EF 

2645 310000 
2646 

2648 C9 

2649 21FFFF 
264C 18F4 

264E C5 
264F 4F 
2650 

2650 3E02 

2652 EF 

2653 CI 

2654 C9 



2655 
2656 
2658 
265A 
265C 
265F 
2660 
2663 
2665 
2668 
266B 
266 E 
266F 
2671 
2673 
2674 
2677 
2679 
267C 
267F 
2682 
2685 
2686 
2689 
268A 
268D 
268E 
2691 
2694 
2697 



7E 

FE2D 

2006 

3EFF 

32B72A 

23 

11B82A 

0608 

CDCF29 

CDDE29 

CDD629 

7E 

FE2F 

200C 

23 

11C02A 

0603 

CODE 29 

CDD629 

CDBC29 

32492C 

A7 

11712B 

EB 

CA5529 

EB 

CDCF29 

CDB629 

324A2C 

CDCF29 



00540 
00550 
00560 ; 
00570 ; 
00580 ; 
00590 $EXIT 
00600 $QUIT 
00012 
00013 
00610 

00620 STACK 
00630 
00640 ; 
00650 $ABORT 
00660 
00670 ; 
00680 $DSP 
00690 
00700 



POP 
CALL 



HL 
PGRM 



00015 
00710 
00720 
00730 ; 
00740 ; 
00750 ; 
00760 PGRM: 
00770 
00780 
00790 
00800 
00810 



00830 MVNAMl 

00840 

00850 



00910 

00920 

00930 

00940 

00950 

00960 NOEXT 

00970 

00980 

00990 



01010 
01020 
01030 
01040 
01050 
01060 
01070 



Exit routines 

LD HL,0 

(a@CKBRKC 

LD A, 106 



RST 
LD 
EQU 
RET 

LD 
JR 

PUSH 

LD 

mdSP 

LD 

RST 

POP 

RET 



40 

SP,$-$ 

$-2 



HL,-1 
$QUIT 

BC 

A,2 

40 

BC 



;Restore cmd pointer 
; and continue 



;Init to no error 
jClear out break bit 



;P/u original stack 



;Set abort code 
; and quit 

;Display a character 
; saving BC 



Pick up drive numbers and partial filespec 



LD 

CP 

JR 

LD 

LD 

INC 

LD 

LD 

CALL 

CALL 

CALL 

LD 

CP 

JR 

INC 

LD 

LD 

CALL 

CALL 

CALL 

LD 

AND 

LD 

EX 

JP 

EX 

CALL 

CALL 

LD 

CALL 



A,(HL) 
I _ I 

NZ, MVNAMl 

AJFFH 

(NOTPRM),A 

HL 

DE,PATTRN 

B,8 

SKIPSP 

MOVELT 

SKIPLT 

A,(HL) 

7' 

NZ, NOEXT 

HL 

DE, PATE XT 

B 3 

MOVELT 

SKIPLT 

GETDRV 

(SDRIVE),A 

A 

DE , NOT0 

DE,HL 

Z,PERR1 

DE,HL 

SKIPSP 

GETDRV2 

(DDRIVE),A 

SKIPSP 



269A 11822A 01100 



Scan parameters 
LD DE,PRMTBL$ 



;Check for NOT filespec 

; char used 

;Go if not NOT 

;TRUE value 

;Set if specified 

; Point to possible partspec 
;Max 8 chars in name 
;Skip spaces 
;Move letters/digits/$ 
;Skip letters/digits/$ 
;Check for extension 

;Go if none 

; Point to ext field 
;Max 3 chars in ext 
;Move letters/digits/$ 
;Skip letters/digits/$ 
;Get source drive # 
; Store drive # 
;Be sure not drive 
; Error msg 

jParam error source is 
; Restore cmd line ptr 
;Skip spaces 
;Get destination drive 
;0FFH if no dest drv 
;Move to ' (' 



; Check parameters entered 
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269D 


01110 


@@PARAM 






269D 3E11 


00016 


LD 


A, 17 




269F EF 


00017 


RST 


40 




26A0 C25129 


01120 


JP 


NZ,PRMERR 


;Quit on parm error 


26A3 210000 


01130 DPARM 


LD 


HL,$-$ 


;DIR only? 


26A6 7C 


01140 


LD 


A,H 




26A7 B5 


01150 


OR 


L 




26A8 2805 


01160 


JR 


Z, SPARM 


;Go if not 


26AA 3EFF 


01170 


LD 


A,0FFH 


;Set flag at DDRIVE 


26AC 324A2C 


01180 


LD 


(DDRIVE),A 


;If dest is ff, read DIR 


26AF 210000 


01190 SPARM 


LD 


HL,$-$ 


;Check if no parms S,I,V 


26B2 110000 


01200 VPARM 


LD 


DE,$-$ 




26 B 5 010000 


01210 IPARM 


LD 


BC,$-$ 




26B8 7D 


01220 


LD 


A,L 




26B9 B3 


01230 


OR 


E 




26BA Bl 


01240 


OR 


C 




26BB 323B27 


01250 


LD 


(SIV+1),A 


;Save S!I!V 


26BE 21FFFF 


01260 QPARM 


LD 


HL,0FFFFH 


;P/u Q,N,0 parms 


26C1 110000 


01270 NPARM 


LD 


DE,0 




26C4 010000 


01280 OPARM 


LD 


BC,0 




26C7 7B 


01290 


LD 


A,E 


;Form N!0 


26C8 Bl 


01300 


OR 


C 




26C9 32F527 


01310 
01320 ; 


LD 


(N0R0+1),A 


;Save that 




01330 ; 


Save old DCT 






01340 ; 








26CC 3A492C 


01350 


LD 


A,(SDRIVE) 


;Pick up source drive # 


26CF 4F 


01360 


LD 


C.A 


;Move to C reg 


26D0 3A4A2C 


01370 


LD 


A,(DDRIVE) 


;Be sure not single drive 


26D3 B9 


01380 


CP 


C 




26D4 21462B 


01390 


LD 


HL,NOTONE 


;=>error msg 


26D7 CA5529 


01400 


JP 


Z,PERR1 


;Go if same 


26 DA 


01410 


@@GTDCT 




; Point to DCT 


26DA 3E51 


00018 


LD 


A, 81 




26 DC EF 


00019 


RST 


40 




26DD C5 


01420 


PUSH 


BC 


;Save drive # 


26DE FDE5 


01430 


PUSH 


lY 


;Move DCT to HL reg 


26E0 El 


01440 


POP 


HL 




26E1 11522C 


01450 


LD 


DE , SAVDCT 


; Point to save area 


26E4 010A00 


01460 


LD 


BC,10 




26E7 EDB0 


01470 


LDIR 




;Move it 


26E9 CI 


01480 
01490 ; 


POP 


BC 






01500 ; 


Find directory track 






01510 ; 








26EA 110100 


01520 


LD 


DE,0001 


;Track 0, sector 1 


26ED 21002D 


01530 


LD 


HL.DBUFF 


; Buffer for sector 


26F0 


01540 


@@RDSEC 






26F0 3E31 


00020 


LD 


A, 49 




26F2 EF 


00021 


RST 


40 




26F3 2808 


01550 


JR 


Z,OK0 


;Go if no error 


26F5 FE06 


01560 


CP 


6 


;Was it DAM error? 


26F7 C23629 


01570 


JP 


NZ,IOERR 


;Go if some other 


26FA CD702A 


01580 


CALL 


CKEARLY 


;Can we do this type? 


26FD 23 


01590 OK0 


INC 


HL 


; Point to dir cyl # 


26FE 56 


01600 


LD 


D,(HL) 


;Get it 


26 FF 24 


01610 


INC 


H 


;Point to TRSDOS 


2700 2B 


01620 


DEC 


HL 


; version number 


2701 2B 


01630 


DEC 


HL 




2702 2B 


01640 


DEC 


HL 




2703 7E 


01650 


LD 


A,(HL) 


;Pick it up 
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2704 329C28 



2707 1E03 
2709 0610 
270B 21002D 
270E FD360712 
2712 
2712 3E31 

2714 EF 

2715 2805 
2717 FE06 
2719 C23629 
271C 24 
271D IC 
271E 10EE 



2720 21002D 
2723 

2723 3A0000 
2724 

2726 CB47 
2728 C24926 
272 B 46 
272C E5 
272D DDEl 
272F E5 
2730 CB60 
2732 CA0F29 
2735 CB78 
2737 C20F29 



273A 3E00 
273C A7 
273D 2821 
273F CB70 
2741 2809 
2743 3AB026 

2746 A7 

2747 CA0F29 
274A 1814 
274C CB58 
274E 2009 
2750 3AB326 

2753 A7 

2754 CA0F29 
2757 1807 
2759 3AB626 
275C A7 
275D CA0F29 



2760 110500 

2763 19 

2764 E5 



01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 DREAD 

01740 

00022 

00023 

01750 

01760 

01770 

01780 OKI 

01790 

01800 

01810 

01820 

01830 

01840 

01850 ELOOP 

01860 

01870 KFL6 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 ; 

01990 ; 

02000 ; 

02010 SIV 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 NOTSYS 

02110 

02120 

02130 

02140 

02150 

02160 INV 

02170 

02180 

02190 ; 

02200 ; 

02210 ; 

02220 NOSIV 

02230 

02240 



LD (TRSD0S+1),A ;Save for later 
Read directory records into memory 



LD E,3 

LD 8,16 

LD HL.DBUFF 

LD (IY+7),18 

(3@RDSEC 

LD A,49 

RST 40 

JR Z,0K1 

CP 6 

JP NZ,IOERR 

INC H 

INC E 

DJNZ DREAD 



;Skip GAT and HIT 
;Read 16 sectors 

;Chg # sectors/trk for 
: TRSDOS & Read a sector 



;Go if no error 
; Ignore record type 
;Go if error 
;Bump buffer pointer 
;Bump sector number 
;Loop till done 



Loop through all entries 



LD 

EQU 

LD 

EQU 

BIT 

JP 

LD 

PUSH 

POP 

PUSH 

BIT 

JP 

BIT 

JP 



HL,DBUFF 

$ 

A,($-$) 

$-2 

0,A 

NZ,$ABORT 

B,(HL) 

HL 

IX 

HL 

4,B 

Z,SKIPIT 

7,B 

NZ,SKIPIT 



Check file's attributes 



LD 

AND 

JR 

BIT 

JR 

LD 

AND 

JP 

JR 

BIT 

JR 

LD 

AND 

JP 

JR 

LD 

AND 

JP 



A,$-$ 

A 

Z, NOSIV 

6,B 

Z. NOTSYS 

A,(SPARM+1) 

A 

Z.SKIPIT 

NOSIV 

3,B 

NZ,INV 

A,(VPARM+1) 

A 

Z,SKIPIT 

NOSIV 

A,(IPARM+1) 

A 

Z,SKIPIT 



;Point to first entry 

;Check system break bit 
;Address of KFLAG 

;Abort if set 
;P/U attributes 



;Alive? 

;Skip it if dead 

;FXDE? 

;Skip it if so 



;S, I, or V given? 

;Go if none given 

;SYS file? 

;Go if not 

;S parm given? 

;Skip file if not 

; else possible match 

;Visible or invisible? 

;Go if inv 

;V parm given? 

;Skip file if not 

; else possible match 

;I parm given? 



;Skip file if not 
Check if name matches wildcard 

;Offset to name field 
;Compare with pattern 



LD 

ADD 

PUSH 



DE,5 

HL,DE 

HL 
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2765 11B82A 
2768 060B 
276A lA 
276B 13 
276C FE24 
276E 2803 

2770 BE 

2771 2003 

2773 23 

2774 10F4 

2776 El 

2777 CD0B2A 
277A C20F29 



277D 
2780 
2782 
2783 
2785 
2787 
2788 
2789 
278A 
278C 
278 D 
278F 
2790 
2791 
2793 
2795 
2797 
2798 
2799 
2798 
279C 
279D 
27 9F 
27A1 
27A2 
27 A3 



11092C 

0508 

7E 

FE20 

2805 

23 

12 

13 

10F6 

48 

0600 

09 

7E 

FE20 

2810 

3E2F 

12 

13 

0503 

7E 

23 

FE20 

2804 

12 

13 

10F6 



27 A5 3E03 
27A7 12 
27A8 D5 
27 A9 21092C 
27AC 11E92B 
27AF 012000 
27B2 EDB0 
27B4 Dl 



27 B5 3A4A2C 
27B8 3C 
27B9 2006 
27BB CD1C2A 
27BE C30F29 



27C1 3E3A 



02250 LD 

02250 LD 

02270 CPLOOP LD 

02280 INC 

02290 CP 

02300 JR 

02310 CP 

02320 JR 

02330 MATCH INC 

02340 DJNZ 

02350 NMATCH POP 

02360 CALL 

02370 JP 
02380 ; 

02390 LD 

02400 LD 

02410 MVNAME LD 

02420 CP 

02430 JR 

02440 INC 

02450 LD 

02460 INC 

02470 DJNZ 

02480 GOTNAM LD 



02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 



LD 

ADD 

LD 

CP 

JR 

LD 

LD 

INC 

LD 



DE.PATTRN 

B,ll 

A,(DE) 

DE 

'$' 

Z, MATCH 

(HL) 

NZ,NMATCH 

HL 

CPLOOP 

HL 

NOTCHK 

NZ^SKIPIT 

DE,FCB 

Bs8 

A,(HL) 

Z, GOTNAM 

HL 

(DE),A 

DE 

MVNAME 

Cj B 

B,0 

HL,BC 

AJHL) 
I I 

ZYGOTE XT 

A,7' 

(DE),A 

DE 

B,3 

A,(HL) 

HL 



; of user partspec 

;P/U pattern byte 

;Matchall? 

;Match? 
;Go if not 

;Z if match, NZ if not 
;Reverse flag if NOT entered 
;Skip file if no match 

; Point to FCB 

;Move name 

; Space? 

;Go if hit one 

;Put to FCB 

;Offset to ext field 

;No extension? 

;Go if so 
;Put in slash 



02580 EXLOOP LD 

02590 INC 

02600 CP ' ' 

02610 JR Z.GOTEXT 

02620 LD (DE),A 

02630 INC DE 

02640 DJNZ EXLOOP 

02650 ; 

02660 GOTEXT LD A,ETX 

02670 LD (DE),A 

02680 PUSH DE 

02690 LD HL,FCB 

02700 LD DE^FNAME 

02710 LD BC,32 

02720 LDIR 

02730 POP DE 

02740 ; 

02750 ;Print filenames if no destination drive (DDRIVE=0FFH) 

02760 ; 

02770 LD A,(DDRIVE) ;Check for just printing DIR 

02780 INC A ;Set Z if FF 

02790 JR NZ, MOVING ;Go if not FF 

02800 CALL SHOW ; Print entry 

02810 JP SKIPIT ; and go on to next 

02820 ; 

02830 ; Check if file exists on destination disk 

02840 ; 

02850 MOVING LD A,':' ;Now put the drive separator 



;Move extension 
;Finished? 

;Loop till done 

;Put ETX at end for dsply 

;Save current spot in FCB 
;Move name to buffer 
; for printing 

;Get back where we were 
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27C3 12 


02860 


LD 


(DE),A 


; in the FCB 


27C4 13 


02870 


INC 


DE 




27 C5 3A4A2C 


02880 


LD 


A,(DDRIVE) 


;Put in drive spec 


27C8 F630 


02890 


OR 


'0' 


; Change number to ASCII 


27 CA 12 


02900 


LD 


(DE),A 




27 CB 13 


02910 


INC 


DE 




27 CC 3E03 


02920 


LD 


A,ETX 


;Put in ETX to end 


27CE 12 


02930 


LD 


(DE),A 




27CF 21092C 


02940 


LD 


HL.FCB 


;Copy into 2nd FCB 


27D2 11292C 


02950 


LD 


DE,FCB2 




27D5 012000 


02960 


LD 


BC,32 




27D8 EDB0 


02970 


LDIR 






27DA 11292C 


02980 


LD 


DE,FCB2 


; Point to start of FCB 


27DD 21003D 


02990 


LD 


HL,TBUFF 


;Point to transfer buffer 


27 E0 0600 


03000 


LD 


B,0 


;LRL=256 


27E2 E5 


03010 


PUSH 


HL 




27E3 210000 


03020 


LD 


HLj-$ 


;HL => SFLAG 


27 E4 


03030 SFLG 


EQU 


$-2 




27E6 CBC6 


03040 


SET 


0,(HL) 


;Set the open inhibit bit 


27E8 El 


03050 


POP 


HL 




27 E9 


03060 


@@OPEN 




;Do the open 


27E9 3E3B 


00024 


LD 


A, 59 




27 EB EF 


00025 


RST 


40 




27 EC 47 


03070 


LD 


B,A 


;Save return code 


27 ED 2805 


03080 


JR 


Z,NORO 


;Go if opened okay 


27 EF FE18 


03090 


CP 


18H 


;File not found? 


27F1 C23629 


03100 
03110 ; 


JP 


NZ.IOERR 


; else an error 




03120 ; 


Check New and Old parms 




03130 ; 








ni r- A Ti r- /anr 


rf\'i art »ir%f-\--\ 


■ -~. 


^' 




£./ 1 't OLpv 


pol^ip ihUKU 


LU 


f\,0 


;n or specified? 


27F6 A7 


03150 


AND 


A 




27F7 2816 


03160 


JR 


Z, CHECKQ 


;Go if neither 


27F9 3AC526 


03170 


LD 


A, (OPARM+1) 


;0 parm given? 


27FC A7 


03180 


AND 


A 




27FD 2804 


03190 


JR 


Z, CKNEW 


;Go if not 


27 FF AF 


03200 


XOR 


A 




2800 B0 


03210 


OR 


B 


;Did file exist? 


2801 280C 


03220 


JR 


Z, CHECKQ 


;Go if so (ok) 


2803 3AC226 


03230 CKNEW 


LD 


A,(NPARM+1) 


;N parm given? 


2806 A7 


03240 


AND 


A 




2807 CA0F29 


03250 


JP 


Z,SKIPIT 


;Skip file if not 


230A AF 


03260 


XOR 


A 




280B B0 


03270 


OR 


B 


;Be sure it was new 


280C CA0F29 


03280 
03290 ; 


JP 


Z,SKIPIT 


;Go if it wasn't 




03300 ; 


Ask question if Q parm 


was given 




03310 ; 








280F 3ABF26 


03320 CHECKQ 


LD 


A,(QPARM+1) 


;Check Q parm 


2812 A7 


03330 


AND 


A 




2813 2013 


03340 


JR 


NZ, QUERY 


; Query if so 


2815 21CA2B 


03350 


LD 


HL,CONVS 


; "Converting.. ." 


2818 


03360 


@@DSPLY 




rf d " 




00026 


IFEQ 


00H,1 






00027 


LD 


HL, 






00028 


ENDIF 






2818 3E0A 


00029 


LD 


A. 10 




281A EF 


00030 


RST 


40 




281B 21E92B 


03370 


LD 


HL,FNAME 


;Filename 


281E 


03380 


(3(aDSPLY 








00031 


IFEQ 


00H.1 





Page 135 



The Source 


UTILITY Fi 


les 


CONV - LS-DOS 


6.2 Page 00007 




00032 


LD 


HL, 






00033 


ENDIF 






281E 3E0A 


00034 


LD 


A, 10 




2820 EF 


00035 


RST 


40 




2821 3E0D 


03390 


LD 


A.CR 


;Carriage return 


2823 CD4E26 


03400 


CALL 


$DSP 




2826 1841 


03410 
03420 ; 


JR 


TAKEITl 


;Go & move it 


2828 21DC2B 


03430 QUERY 


LD 


HL,CONVQ 


; "Convert file 


282B 


03440 


@@DSPLY 




;Display it 




00036 


IFEQ 


00H,1 






00037 


LD 


HL, 






00038 


ENDIF 






282B 3E0A 


00039 


LD 


A, 10 




282D EF 


00040 


RST 


40 




282E 21A92B 


03450 


LD 


HL,QMARK 


. II 711 


2831 


03460 


@@DSPLY 








00041 


IFEQ 


00H,1 






00042 


LD 


HL, 






00043 


ENDIF 






2831 3E0A 


00044 


LD 


A, 10 




2833 EF 


00045 


RST 


40 




2834 214D2C 


03470 


LD 


HL,ABUFF 


;Get answer 


2837 010003 


03480 


LD 


BC,3<8 


;3 char max 


283A 


03490 


(3(3KEYIN 






283A 3E09 


00046 


LD 


A,9 




283C EF 


00047 


RST 


40 




283D DA4926 


03500 


JP 


C,$ABORT 


; Abort if BREAK hit 


2840 7E 


03510 


LD 


A,(HL) 


; Check for 'Y' 


2841 CBAF 


03520 


RES 


5, A 


;Force upper case 


2843 FE59 


03530 


CP 


■ Y' 




2845 C20F29 


03540 
03550 ; 


JP 


NZ,SKIPIT 


;Skip it if not 'Y' 




03560 ; 


If file 


exists, query 


user 




03570 ; 








2848 3A292C 


03580 


LD 


A,(FCB2) 


;Was file opened ok? 


284B CB7F 


03590 


BIT 


7,A 


;Z = not found 


284D 281A 


03600 


JR 


Z, TAKEITl 


;Go if it does not exist 


284F 21AC2B 


03610 


LD 


HL,EXISTQ 


;"File exists, replace? 


2852 


03620 


(3@DSPLY 




;Print question 




00048 


IFEQ 


00H,1 






00049 


LD 


HL, 






00050 


ENDIF 






2852 3E0A 


00051 


LD 


A, 10 




2854 EF 


00052 


RST 


40 




2855 214D2C 


03630 


LD 


HL,ABUFF 




2858 010003 


03640 


LD 


BC,3<8 




285B 


03650 


@(9KEYB 


1 


;Get answer 


285B 3E09 


00053 


LD 


A,9 




285D EF 


00054 


RST 


40 




285E DA4926 


03660 


JP 


C,$ABORT 


;Abort if break 


2861 7E 


03670 


LD 


A,(HL) 


; Check answer 


2862 CBAF 


03680 


RES 


5, A 


; Force uppercase 


2864 FE59 


03690 


CP 


• Y- 




2866 C20F29 


03700 
03710 ; 


JP 


NZ,SKIPIT 


;Skip if 'no' 




03720 ; 


Init fi 


lie if it didn' 


t exist 




03730 ; 








2869 11292C 


03740 TAKEITl LD 


DE,FCB2 




286C lA 


03750 


LD 


A,(DE) 


;Was file opened? 


286D CB7F 


03760 


BIT 


7, A 


;Z = not opened 
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286F 2803 


03770 


JR 


Z,$+5 


;Remove existing file 


2871 


03780 


@@REMOV 


; for new LRL 


2871 3E39 


00055 


LD 


A, 57 




2873 EF 


00056 


RST 


40 




2874 11092C 


03790 


LD 


DE,FCB 


;Use other FCB now 


2877 21003D 


03800 


LD 


HL,TBUFF 


; Create file 


287A DD4604 


03810 


LD 


B,(IX+4) 


;P/U Mod III LRL 


287D 


03820 


@(PINIT 




;Create the file 


287D 3E3A 


00057 


LD 


A, 58 




287F EF 


00058 


RST 


40 




2880 C23629 


03830 


JP 


NZ,IOERR 


;Go if error 


2883 D5 


03840 


PUSH 


DE 


jChange LRL to for copy 


2884 DDE 3 


03850 


EX 


(SP),IX 


;IX to FCB start 


2886 DDCB01BE 03860 


RES 


7,(IX+1) 


;Show full sector ops 


288A DD360900 03870 


LD 


(IX+9).0 


;Show LRL=0 


288 E DDE 3 


03880 


EX 


(SP)JX 


; Switch back 


2890 Dl 


03890 
03900 ; 


POP 


DE 






03910 ; 


Initial 


ize to read 


from source file 




03920 ; 








2891 El 


03930 TAKEIT2 POP 


HL 


; Point to dir entry 


2892 E5 


03940 


PUSH 


HL 




2893 111400 


03950 


LD 


DE,20 


; Point to ERN 


2896 19 


03960 


ADD 


HL,DE 




2897 5E 


03970 


LD 


E,(HL) 


;P/U ERN 


2898 23 


03980 


INC 


HL 




2899 56 


03990 


LD 


D,(HL) 




289A 23 


04000 


INC 


HL 


;Leave ptg to extents 


289B 3E00 


04010 TRSDOS 


LD 


A,0 


;1.3 or later? 


289D FEB 


04020 


CP 


13 H 




289F 3807 


04030 


JR 


C, EARLY 


;Go if earlier than 1.3 


28A1 DD7E03 


04040 


LD 


A,(IX+3) 


;Pick up EOF offset 


28A4 A7 


04050 


AND 


A 


;Zero? 


28A5 2801 


04060 


JR 


Z, EARLY 


;No adjustment if so 


28A7 13 


04070 


INC 


DE 


;If nonzero, adjust ERN 


28A8 0600 


04080 EARLY 


LD 


B,0 


;# sectors left in extent 


28AA D5 


04090 


PUSH 


DE 


;Save ERN 


28AB D9 


04100 
04110 ; 


EXX 




;Switch to alternate regs 




04120 ; 


Preallocate file 






04130 ; 








28 AC CI 


04140 


POP 


BC 




28AD 78 


04150 


LD 


A,B 


; Empty file? 


28 AE Bl 


04160 


OR 


C 




28 AF 281 E 


04170 


JR 


Z,READ 


;Go if so 


28B1 0B 


04180 


DEC 


BC 




28B2 11092C 


04190 


LD 


DE,FCB 


; Point to FCB 


28B5 


04200 


@@POSN 




;Position to last sector 


28B5 3E42 


00059 


LD 


A, 66 




28B7 EF 


00060 


RST 


40 




28B8 2809 


04210 


JR 


Z,0K3 




28BA FEIC 


04220 


CP 


ICH 


; Ignore EOF errors 


28BC 2805 


04230 


JR 


Z,0K3 




28BE FEID 


04240 


CP 


IDH 


; or past end errors 


28C0 C23629 


04250 


JP 


NZ^IOERR 


;Quit on any others 


28C3 


04260 0K3 


@@WRITE 




; Write it 


28C3 3E4B 


00061 


LD 


A, 75 




28C5 EF 


00062 


RST 


40 




28C6 C23629 


04270 


JP 


NZ,IOERR 


;Quit on write error 


28C9 


04280 


(3@REW 




; Position to start 


28C9 3E44 


00063 


LD 


A, 68 
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UTILITY Files 



CONV - LS-DOS 6.2 



Page 00009 



28 CB EF 
28CC C23629 



28CF 0600 
28D1 21003D 
28 D4 110000 
28 D5 
28 D7 15 
28 D8 CD5B29 
28 DB 200 B 
28 DD 04 
28 DE 24 
28DF CD052A 
28E2 3E00 
28 E4 3002 
28E6 18F0 



28E8 F5 
28E9 11092C 
28EC 21003D 
28EF 220C2C 
28F2 78 
28F3 A7 
28F4 2809 
28F6 

28F6 3E4B 
28F8 EF 
28F9 C23629 
28 FC 24 
28FD 10F0 



28FF Fl 

2900 A7 

2901 28CC 



2903 DD7E03 
2906 32112C 
2909 

2909 3E3C 
290B EF 
290C C23629 



290F El 
2910 113000 

2913 19 

2914 7D 

2915 FEF0 
2917 2003 
2919 24 
291A 2E00 
291C 11003D 



00064 

04290 

04300 

04310 

04320 

04330 

04340 

04350 

04360 

04370 

04380 

04390 

04400 

04410 

04420 

04430 

04440 

04450 

04460 

04470 

04480 

04490 

04500 

04510 

04520 

04530 

04540 

04550 

04560 

00065 

00066 

04570 

04580 

04590 

04600 

04610 

04620 

04630 

04640 

04650 

04660 

04670 

04680 

04690 

04700 

04710 

00067 

00068 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 



RST 40 

JP NZ,IOERR 

Read sectors 



READ 

MYHIGH 
GETONE 



WRITE 



WRLOOP 



WRDUN 



SKIPIT 



LD 

LD 

LD 

EQU 

DEC 

CALL 

JR 

INC 

INC 

CALL 

LD 

JR 

JR 



BJ 

HL,TBUFF 

DE,$-$ 

$-2 

D 

6ETSEC 

NZ, WRITE 

B 

H 

CPHLDE 

A,0 

NC, WRITE 

GETONE 



;Count sectors read 

; Point to transfer buffer 

;Stuff HIGH$ value 

;256 bytes back 

;Get next sector 

;Go if EOF 

;Count sector 

; Point to next spot 

; Compare HL and DE 

;No error code 

;Go if mem full 

; else loop for more 



Write sectors to destination file 



PUSH AF 

LD DE,FCB 

LD HL,TBUFF 

LD (FCB+3),HL 

LD A.B 

AND A 

JR Z, WRDUN 

(3(3WRITE 

LD A, 75 

RST 40 

JP NZ.IOERR 

INC H 

DJNZ WRLOOP 

Were we at EOF? 

POP AF 

AND A 

JR Z,READ 

Copy over EOF offset 

LD A,(IX+3) 

LD (FCB+8),A 

@@CLOSE 

LD A, 60 

RST 40 

JP NZ,IOERR 



;Save completion type 
; Point to file fcb 
; Point to transfer buffer 
; Point FCB to buffer 
;Zero to write? 

;Go if so 

; Write to file 



;Quit on write error 
;Loop till done 



;Restore completion type 
;At end of file? 
;Go if not 



P/U offset from dir 
Put into FCB 
and close the file 



;Quit on close error 
Increment to next entry and loop if not done 



NOTEOS 



POP 

LD 

ADD 

LD 

CP 

JR 

INC 

LD 

LD 



HL 

DE,48 

HL,DE 

A,L 

0F0H 

NZ, NOTEOS 

H 

L,0 

DE,TBUFF 



;48 bytes per entry 
;End of sector? 
;Go if not 

;Done? 
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UTILITY Fi 


iles 


CONV - LS-DOS 


6.2 Page 0001i 


291F CD052A 


04850 




CALL 


CPHLDE 


;CP HL,DE 


2922 DA2327 


04860 
04870 




JP 


CELOOP 


;Loop back if not done 




04880 




Finished 






04890 










2925 3E0D 


04900 




LD 


A.CR 


;Blank Tine 


2927 CD4E26 


04910 




CALL 


$DSP 




292A CD4529 


04920 




CALL 


BYEBYE 


; Res tore DCT 


292D C33F26 


04930 
04940 


3 


JP 


$EXIT 




2930 CD4529 


04950 QUIT 


CALL 


BYEBYE 


; Res tore DCT 


2933 C34926 


04960 
04970 


9 


JP 


$ABORT 






04980 


i 


Error routines 






04990 


9 








2936 CD4529 


05000 


lOERR 


CALL 


BYEBYE 


; Res tore DCT 


2939 6F 


05010 


lOERRl 


LD 


L,A 


; Entry from PRMERR 


293A 2600 


05020 




LD 


H,0 




293C F6C0 


05030 




OR 


0C0H 


;Abbrev, return 


293E 4F 


05040 




LD 


C,A 


; Error code to C 


293F 


05050 




(3@ ERROR 




; for error display 


293F 3E1A 


00069 




LD 


A, 26 




2941 EF 


00070 




RST 


40 




2942 C34226 


05060 
05070 


» 


JP 


$QUIT 




2945 FDE5 


05080 BYEBYE 


PUSH 


lY 


;Move back DCT 


2947 Dl 


05090 




POP 


DE 




2948 21522C 


05100 




LD 


HL,SAVDCT 


; Point to save area 


294B 010A00 


05110 




LD 


BC,10 




294E EDB0 


05120 




LDIR 






2950 C9 


05130 
05140 


3 


RET 






2951 3E2C 


05150 


PRMERR 


LD 


A, 44 


;Init "parameter error 


2953 18E4 


05160 




JR 


lOERRl 




2955 


05170 


PERRl 


(P^LOGOT 




;Display and log 




00071 




IFEQ 


00H,1 






00072 




LD 


HL, 






00073 




ENDIF 






2955 3E0C 


00074 




LD 


A, 12 




2957 EF 


00075 




RST 


40 




2958 C34926 


05180 
05190 




JP 


$ABORT 






05200 




Sector 


read routine 






05210 










295B D9 


05220 GETSEC 


EXX 




;P/U alt registers 


295C 7A 


05230 




LD 


A,D 


;Any records left? 


2950 B3 


05240 




OR 


E 




295 E 2005 


05250 




JR 


NZ, NOTEND 


;Go if so 


2960 D9 


05260 


BDEXT 


EXX 






2961 3E1C 


05270 




LD 


A,1CH 


;EOF code 


2963 A7 


05280 




AND 


A 


;Set NZ condition 


2964 C9 


05290 
05300 


y 


RET 






2965 AF 


05310 


NOTEND 


XOR 


A 


;Check if used up ext 


2966 B0 


05320 




OR 


B 




2967 2021 


05330 




JR 


NZ,MORE 


;Go if not used up 


2969 7E 


05340 




LD 


A,(HL) 


;Check next trk# 


296A FEFF 


05350 




CP 


0FFH 


;Non-al located? 


296C 28F2 


05360 




JR 


Z. BDEXT 


;Then consider EOF 


296E D5 


05370 




PUSH 


DE 


;Save DE ' 


296F 56 


05380 




LD 


D,(HL) 


;P/U track number 
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UTILITY Fi 


les 


CONV - LS-DOS 


6.2 Page 00011 


2970 23 


05390 


INC 


HL 




2971 46 


05400 


LD 


B,(HL) 


;P/U other stuff 


2972 23 


05410 


INC 


HL 




2973 78 


05420 


LD 


A,B 


;Get starting gran 


2974 07 


05430 


RLCA 






2975 07 


05440 


RLCA 




;Move to bits 0-2 


2976 07 


05450 


RLCA 






2977 E607 


05460 


AND 


7 


;Mask off other garbage 


2979 5F 


05470 


LD 


E,A 


;Multiply by 3 


297A 07 


05480 


RLCA 






297B 83 


05490 


ADD 


A.E 




297C 3C 


05500 


INC 


A 


;Offset from 


297D 5F 


05510 


LD 


E,A 


; and move to E reg 


297E ED534B2C 05520 


LD 


(TRKSEC),DE 


;Save for later 


2982 Dl 


05530 


POP 


DE 


;Restore DE' 


2983 78 


05540 


LD 


A,B 


;Get number of grans 


2984 E61F 


05550 


AND 


IFH 




2986 47 


05560 


LD 


B,A 


;Multiply by 3 


2987 07 


05570 


RLCA 






2988 80 


05580 


ADD 


A,B 




2989 47 


05590 
05600 ; 


LD 


B,A 


;And put in B reg 




05610 ; 


Read 


sector 






05620 ; 








298A 05 


05630 MORE 


DEC 


B 


;Count down # sec in ext 


298B IB 


05640 


DEC 


DE 


jCount down # records 


298C D9 


05650 


EXX 




;Restore primary set 


298D D5 


05660 


PUSH 


DE 


;Save DE 


298E C5 


05670 


PUSH 


BC 


;Save BC 


298F ED5B4B2C 05680 


LD 


DE,(TRKSEC) 


;P/U track and sector # 


2993 3A492C 


05690 


LD 


A,(SDRIVE) 


;P/U source drive 


2996 4F 


05700 


LD 


C,A 




2997 FD360712 


05710 


LD 


(IY+7),18 


;Reset sec/trk each time 


299B 


05720 


@@RDSEC 


;Read sector to (HL) 


299B 3E31 


00076 


LD 


A, 49 




299D EF 


00077 


RST 


40 




299E 2805 


05730 


JR 


Z,0K2 


;Go if no errors 


29 A0 FE06 


05740 


CP 


6 


; or address mark differs 


29A2 C23629 


05750 


JP 


NZ,I0ERR 


;Quit on any other 


29A5 IC 


05760 0K2 


INC 


E 


;Step to next sector 


29A6 7B 


05770 


LD 


A.E 




29A7 FE13 


05780 


CP 


19D 


;End of track? 


29A9 2003 


05790 


JR 


NZ, NOTEOT 


;Go if not 


29 AB 1E01 


05800 


LD 


E.l 


;Reset to sector 1 


29AD 14 


05810 


INC 


D 


;Next track 


29AE ED534B2C 05820 NOTEOT 


LD 


(TRKSEC),DE 




29 B2 CI 


05830 


POP 


BC 




29 B3 Dl 


05840 


POP 


DE 




29 B4 AF 


05850 


XOR 


A 




29B5 C9 


05860 
05870 ; 


RET 








05880 ; 


Parsi 


ng subroutines 






05890 ; 








29 B6 7E 


05900 GETDRV2 


: LD 


A.(HL) 




29 B7 FE3A 


05910 


CP 


1 . 1 




29 B9 3EFF 


05920 


LD 


A,0FFH 


;'Not entered' value 


29 BB C0 


05930 
05940 ; 


RET 


NZ 


;If no second drive, give 


29BC 7E 


05950 GETDRV 


LD 


A,(HL) 


;Parse drivespec 


29 BD FE3A 


05960 


CP 


' : ' 




29 BF 2090 


05970 


JR 


NZ,PRMERR 


;Go if missing 
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UTILITY Fi 


les 


CONV - LS-DOS 6 


.2 Page 00012 


29C1 23 


05980 




INC 


HL 




29C2 7E 


05990 




LD 


A,(HL) 


;P/U drivespec 


29C3 FE30 


06000 




CP 


'0' 


;Be sure digit 


29C5 388A 


06010 




JR 


CPRMERR 




29C7 FE38 


06020 




CP 


•7'+l 




29C9 3086 


06030 




JR 


NCPRMERR 




29CB 23 


06040 




INC 


HL 


;Bump cmdline ptr 


29CC E607 


06050 




AND 


7 


;Make drive # binary 


29CE C9 


06060 
06070 


» 


RET 






29CF 7E 


06080 


SKIPSP 


LD 


A,(HL) 


;Skip spaces 


29 D0 FE20 


06090 




CP 


1 1 




29 D2 C0 


06100 




RET 


NZ 




29 D3 23 


06110 




INC 


HL 




29D4 18F9 


06120 
06130 


» 


JR 


SKIPSP 




29D6 7E 


06140 


SKIPLT 


LD 


A.(HL) 


;Skip letters/digits/$ 


29 D7 CDE829 


06150 




CALL 


CHKLET 


;Check letter/digit/$ 


29DA C0 


06160 




RET 


NZ 




29 DB 23 


06170 




INC 


HL 




29 DC 18F8 


06180 
06190 


s 


JR 


SKIPLT 




29DE 7E 


06200 


MOVELT 


LD 


A,(HL) 


;Move letters/digits/$ 


29DF CDE829 


06210 




CALL 


CHKLET 




29E2 C0 


06220 




RET 


NZ 




29E3 23 


06230 




INC 


HL 


;Inc from buffer 


29E4 12 


06240 




LD 


(DE),A 


; Store 


29E5 13 


06250 




INC 


DE 


;Inc to buffer 


29E6 18F6 


06260 
06270 


9 


JR 


MOVELT 




29E8 CB7F 


06280 CHKLET 


BIT 


7, A 


;Graphic? 


29EA C0 


06290 




RET 


NZ 




29EB FE61 


06300 




CP 


'a' 


; Lowercase? 


29 ED 3802 


06310 




JR 


C, NOTLC 


;6o if not 


29 EF CBAF 


06320 




RES 


5. A 


; else make upper case 


29F1 FE24 


06330 


NOTLC 


CP 


'$• 


;Dollar sign? 


29F3 C8 


06340 




RET 


Z 




29F4 FE30 


06350 




CP 


'0' 


;Digit? 


29F6 D8 


06360 




RET 


C 


;Return (NZ) if less 


29F7 FE3A 


06370 




CP 


'9'+l 




29F9 3002 


06380 




JR 


NCNOTDIG 


;Go if not digit 


29FB BF 


06390 




CP 


A 


;Mark as letter/digit/$ 


29FC C9 


06400 




RET 






29FD FE41 


06410 


NOTOIG 


CP 


'A' 


;Letter? 


29FF D8 


06420 




RET 


C 


;Return (NZ) if less 


2A00 FE5A 


06430 




CP 


'Z' 




2A02 D0 


06440 




RET 


NC 


;Z if =Z, NZ if >Z 


2A03 BF 


06450 




CP 


A 


;Z if <Z 


2A04 C9 


06460 
06470 


s 


RET 






2A05 E5 


06480 CPHLDE 


PUSH 


HL 


; Compare HL and DE 


2A06 A7 


06490 




AND 


A 




2A07 ED52 


06500 




SBC 


HL,DE 




2A09 El 


06510 




POP 


HL 




2A0A C9 


06520 
06530 




RET 








06540 


•If NOT 


(-) spec given, reverse 


Z flag setting 




06550 










2A0B F5 


06560 


NOTCHK 


PUSH 


AF 


;Save current setting 


2A0C 3AB72A 


06570 




LD 


A,(NOTPRM) 


;Was NOT entered? 


2A0F B7 


06580 




OR 


A 
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UTILITY Fi 


les 


CONV - LS-DOS 


6.2 Page 00013 


2A10 2808 


06590 




JR 


Z,NOTNOT 


;No, restore previous 


2A12 Fl 


06600 




POP 


AF 


;Get previous 


2A13 2802 


06610 




JR 


Z, SETIT 


;Was Z, make NZ 


2A15 AF 


06620 




XOR 


A 


; else was NZ, make Z 


2A16 C9 


06630 




RET 






2A17 F6FF 


06640 


SETIT 


OR 


0FFH 


;make NZ 


2A19 C9 


05650 




RET 






2A1A Fl 


06660 


NOT NOT 


POP 


AF 


;Get previous flags 


2A1B C9 


06670 
06680 


9 


RET 








06690 


; Display mod 3 


TRSDOS disk dir 


ectory 




06700 


9 








2A1C E5 


06710 


SHOW 


PUSH 


HL 




2A1D D5 


06720 




PUSH 


DE 




2A1E C5 


06730 




PUSH 


BC 


;Save registers 


2A1F 0E00 


06740 




LD 


CJ 


;Init char count 


2A21 21E92B 


06750 




LD 


HL,FNAME 


;=>name 


2A24 7E 


06760 


NMDSP 


LD 


A,(HL) 


;Get a character 


2A25 FE03 


06770 




CP 


ETX 


;Are we done? 


2A27 2807 


06780 




JR 


Z, NMEND 


; Finish if so 


2A29 CD4E26 


06790 




CALL 


$DSP 


; Print this char 


2A2C 0C 


06800 




INC 


C 


;Count it 


2A2D 23 


06810 




INC 


HL 


;=>next char 


2A2E 18F4 


06820 
06830 


s 


JR 


NMDSP 


;Until ETX 


2A30 210000 


06840 


NMEND 


LD 


HLj-$ 


;P/u line/char count 


2A31 


06850 CCOUNT 


EQU 


$-2 




2A33 79 


06860 




LD 


A,C 


;Count for this entry 


2A34 85 


06870 




ADD 


A,L 


;Add to previous 


2A35 6F 


06880 




LD 


L,A 


;Save posn 


2A36 3E10 


06890 




LD 


A, 16 


; Spaces for entry 


2A38 91 


06900 




SUB 


C 


;Less used 


2A39 47 


06910 




LD 


B,A 


;Renaining to B 


2A3A 3E20 


06920 


SPLP 


LD 


A/ ' 


;Pad remaining w/ spaces 


2A3C CD4E26 


06930 




CALL 


$DSP 




2A3F 2C 


06940 




INC 


L 


;Count it 


2A40 7D 


06950 




LD 


A,L 


;Check char posn 


2A41 FE4E 


06950 




CP 


78 


;End of line? 


2A43 2809 


06970 




JR 


Z, ELINE 


;Then print CR 


2A45 10F3 


06980 
05990 


9 


DJNZ 


SPLP 


; else keep going 


2A47 22312A 


07000 ESHOW 


LD 


(CCOUNT), HL 


;Save line/char posn 


2A4A CI 


07010 




POP 


BC 


;Restore regs 


2A4B Dl 


07020 




POP 


DE 




2A4C El 


07030 




POP 


HL 




2A4D C9 


07040 
07050 


» 


RET 




;Done w/entry 


2A4E 3E0D 


07060 


ELINE 


LD 


A,CR 


;Hit end of line 


2A50 CD4E26 


07070 




CALL 


$DSP 




2A53 24 


07080 




INC 


H 


;Bump line posn 


2A54 2E00 


07090 




LD 


L,0 


; Start on next 


2A56 3E17 


07100 




LD 


A, 23 


;Max lines 


2A58 BC 


07110 




CP 


H 


; There yet? 


2A59 20EC 


07120 




JR 


NZ, ESHOW 


;Nope 


2A5B 


07130 




(a@KEY 




;Wait for a key 


2A5B 3E01 


00078 




LD 


A.l 




2A5D EF 


00079 




RST 


40 




2A5E CD662A 


07140 




CALL 


$CLS 


;Clear the display 


2A61 210000 


07150 




LD 


HL,0 


;Restart count 


2A64 18E1 


07150 
07170 


9 


JR 


ESHOW 
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Page 00014 



2A66 3E1C 
2A68 CD4E26 
2A6B 3E1F 
2A6D C34E26 



2A70 
2A71 
2A74 
2A76 
2A77 
2A7A 
2A7B 
2A7C 
2A7F 

2A82 
2A83 
2A84 

2A8A 
2A8C 
2A8D 

2A91 
2A93 
2A94 

2A98 
2A9A 
2A9B 

2A9F 
2AA1 
2AA2 

2AA6 
2AA8 
2AA9 

2AAD 
2AAF 
2AB0 

2AB4 
2AB6 



00 

3A222D 

FEFF 

C8 

3A4A2C 

3C 

C8 

218A2B 

C35529 



55 

51 

55 45 52 

BF26 

53 

53 

59 53 00 

B026 

53 

49 

4E 56 00 

B626 

53 

56 

49 53 00 

B326 

53 

4F 

4C 44 00 

C526 

53 

4E 

45 57 00 

C226 

53 

44 

49 52 00 

A426 

00 



07180 $CLS LD 
07190 CALL 
07200 LD 
07210 JP 
07220 ; 
07230 CKEARLY 
07240 



DB 

LD 

CP 

RET 

LD 

INC 

RET 

LD 

JP 



07250 

07260 

07270 

07280 

07290 

07300 

07310 

07320 ; 

07330 PRMTBL$ DB 

07340 DB 

07350 DB 

59 00 

07360 DW 

07370 DB 

07380 DB 



2AB7 00 
2AB8 24 

24 24 24 
2AC0 24 

24 24 
2 AC 3 43 

4F 4E 56 
2 AC 7 



2 AC 7 20 

2D 20 36 
2D 20 43 
67 68 74 



07390 
07400 
07410 

07420 
07430 
07440 

07450 
07460 
07470 

07480 
07490 
07500 

07510 
07520 
07530 

07540 

07550 

07560 

07570 

07580 

07590 NOTPRM 

07600 PATTRN 

24 24 24 24 

07610 PATEXT 

07620 HELLO$ 



DW 
DB 
DB 

DW 
DB 
DB 

DW 
DB 
DB 

DW 
DB 
DB 

DW 
DB 
DB 

DW 
NOP 



A, HOME 
$DSP 
A,CLR 
$DSP 



A,(DBUFF+22H) 

0FFH 

Z 

A,(DDRIVE) 

A 

Z 

HL, EARL YD 

PERRl 

80H 

ABB!FLAG!5 
' QUERY ',0 

QPARM+1 
ABB! FLAG! 3 
'SYS',0 

SPARM+1 
ABB! FLAG! 3 
'INV',0 

IPARM+1 
ABB! FLAG! 3 
'VIS',0 

VPARM+1 

ABB!FLAG!3 

•OLD',0 

OPARM+1 

ABB!FLAG!3 

'NEW',0 

NPARM+1 
ABB! FLAG !3 
'DIR',0 

DPARM+1 



;Cursor home 

;Clear to end-of -frame 



;Get type byte 
;Do we know this one? 
;0K to continue 
; Doesn't matter if 
; only doing DIR 



;Err msg 
;Quit 



Messages and buffers 



DB 
DB 

DB 

DB 



4> 4) 4^ 4) 4^ 4^ 4) 4^ 

'CONV 



07630 *GET CLIENT:3 

03950 ;CLIENTS/ASM - File to establish sign-on headers 

03960 ; 

03970 DB ' - 6.2.0 - Copyright 1982/83/84 by Logical 
2E 32 2E 30 20 
6F 70 79 72 69 
20 31 39 38 32 



Page 143 



The Source 



UTILITY Files 



CONV - LS-DOS 6.2 



Page 00015 



2F 
79 
6C 
2AF1 20 
53 
20 
20 

2B06 41 
6C 
73 
65 
6E 
32 

2B2E 20 
74 
78 
78 

2B46 53 
6F 
64 
61 
69 
20 
65 

2871 53 
6F 
6E 
64 

2 88 A 43 
61 
4E 
63 
68 

28A9 3F 
20 

2 8 AC 20 
20 
69 
72 
69 

28CA 43 
6F 
67 
03 

2BDC 43 
6F 
69 

0020 

0020 

0020 

0001 

0001 

0002 

0005 

000A 

2DJ30 

1000 

3D00 

2600 



38 33 2F 38 34 20 62 
20 4C 6F 67 69 63 61 



79 73 
49 6E 
20 20 



6C 20 
20 52 

64 2E 

73 65 
2F 38 

6F 20 
78 78 
78 78 

75 72 
20 44 

74 69 

76 65 

74 68 
0D 

75 72 
6E 6F 

72 69 

6E 6E 
56 20 
74 65 

65 74 

03 

46 69 

73 74 
65 70 

74 3F 

6E 76 
20 66 



03980 
74 65 

63 2E 
0A 

03990 
04000 
52 69 
65 73 
20 4C 

64 20 
33 2F 
04010 
78 78 
78 78 
78 78 
07640 
63 65 

65 73 
6F 6E 
73 20 
65 20 



DB 



6D 73 2C 
20 20 20 



DB 



67 68 74 
65 72 76 
69 63 65 
31 39 38 
38 34 

DB 
78 78 78 
78 78 78 
0A 0D 
NOTONE DB 
20 61 6E 
74 69 6E 
20 64 72 
61 72 65 
73 61 6D 



07650 NOT0 DB 

63 65 20 63 61 
74 20 62 65 20 
76 65 20 30 0D 
07660 EARLYD DB 
6F 74 20 43 4F 
50 72 6F 74 65 

64 20 44 69 73 
74 65 0D 

07570 QMARK DB 

07680 EXISTQ DB 
6C 65 20 65 78 
73 20 2D 2D 20 
6C 61 63 65 20 
20 03 
07690 CONVS DB 

65 72 74 69 6E 
69 6C 65 3A 20 



07700 
6E 76 65 72 
6C 65 20 

07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
07810 
07820 



CONVQ DB 
74 20 66 



FNAME 

FCB 

FCB2 

SDRIVE 

DDRIVE 

TRKSEC 

ABUFF 

SAVDCT 

DBUFF 
TBUFF 



DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

ORG 

DS 

EQU 

END 



' Systems s Inc. 



M0 



^All Rights Reserved. Licensed 1982/83/84' 



' to xxxxxxxxxxxxxxxxxx' ,10,13 



'Source and Destination drives are the same',CR 



'Source cannot be drive 0',CR 
'Cannot CONV Protected Diskette' ,CR 

'? ',ETX 

' File exists — replace it? ' ,ETX 

'Converting file: ' ,ETX 
'Convert file ' 



32 

32 

32 

1 

1 

2 

5 

10 

$<-8+l<8 

1000H 

$ 

BEGIN 



;Must follow CONVQ 

;For INIT/WRITE 

;For OPEN (test for already existing) 



;16 sectors of directory 
;To end of memory 
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UTILITY Files 


CONV ■ 


- LS-DOS 6.2 


Page 00016 


$ABORT 


2649 $CLS 


2A66 


$DSP 


264E 


$EXIT 


263F $QUIT 


2642 


001 


0000 


(9(32 


0000 @(33 


0000 004 


0000 


@M0D2 


0000 @M0D4 


FFFF 


ABB 


0010 


ABUFF 


2C4D BDEXT 


2960 


BEGIN 


2600 


BEGINA 


2609 BYEBYE 


2945 


CCOUNT 


2A31 


CHECKQ 


280F CHKLET 


29E8 


CKEARLY 


2A70 


CKNEW 


2803 CLR 


001F CONVQ 


2BDC 


CONVS 


2BCA CPHLDE 


2A05 


CPLOOP 


276A 


CR 


0000 DBUFF 


2D00 


DDRIVE 


2C4A 


DPARM 


26A3 DREAD 


270E 


EARLY 


28A8 


EARLYD 


2B8A ELINE 


2A4E 


ELOOP 


2723 


ESHOW 


2A47 ETX 


0003 


EXISTQ 


2BAC 


EXLOOP 


279B FCB 


2C09 


FCB2 


2C29 


FLAG 


0040 FNAME 


2BE9 


GETDRV 


29 BC 


GETDRV2 


29B6 GETONE 


28 D8 GETSEC 


295B 


GOTEXT 


27A5 GOTNAM 


278C 


HELLO$ 


2 AC 3 


HOME 


001 C INV 


2759 


lOERR 


2936 


lOERRl 


2939 IPARM 


26B5 


KFLG 


2724 


LF 


000A MATCH 


2773 


MORE 


298A 


MOVELT 


29 DE MOVING 


27C1 


MVNAMl 


2660 


MVNAME 


2782 MYHIGH 


28 D5 


NMATCH 


2776 


NMDSP 


2A24 NMEND 


2A30 


NOEXT 


267F 


NORO 


27F4 NOSIV 


2760 


NOT0 


2B71 


NOTCHK 


2A0B HOJcnm 


2622 


NOTDIG 


29FD 


NOTEND 


2965 NOTEOS 


291C 


NOTEOT 


29AE 


NOTLC 


29F1 NOTNOT 


2A1A 


NOTONE 


2B46 


NOTPRM 


2AB7 NOTSYS 


274C 


NPARM 


26C1 


OK0 


26FD OKI 


271C 


0K2 


29A5 


OK 3 


28C3 OPARM 


25C4 


PATE XT 


2AC0 


PATTRN 


2AB8 PERRl 


2955 


PGRM 


2655 


PRMERR 


2951 PRMTBL$ 


2A82 


QMARK 


2BA9 


QPARM 


26BE QUERY 


2828 


QUIT 


2930 


READ 


28CF SAVDCT 


2C52 


SDRIVE 


2C49 


SETIT 


2A17 SFLG 


27E4 


SHOW 


2A1C 


SIV 


273A SKIPIT 


290F 


SKIPLT 


29 D6 


SKIPSP 


29CF SPARM 


26AF 


SPLP 


2A3A 


STACK 


2546 TAKEITl 


2869 


TAKEIT2 


2891 


TBUFF 


3D00 TRKSEC 


2C4B 


TRSDOS 


289 B 


VPARM 


26B2 WRDUN 


28FF 


WRITE 


28E8 


WRLOOP 


28EF (3(3AB0RT 


B00E 00ADTSK 


B0A1 


0@BANK 


B5B9 (3@BKSP 


B299 


00BREAK 


B5CF 


(3@CHNI0 


AFF9 (3@CKBRKC 


B61D 


00CKDRV 


B0F5 


(a@CKE0F 


B2AE (3@CKTSK 


B08C 00CLOSE 


B284 


(a@CLS 


B607 @(3CMNDI 


B038 


00CMNDR 


B04D 


@@CTL 


AE5D 0(3 DATE 


AFCF 


00DCSTAT 


B134 


(3(3 DEBUG 


B077 00DECHEX 


B539 


00DIRRD 


B4A6 


(3@DIRWR 


B4BB 00DIV16 


B524 


00DIV8 


B50F 


(3@D0DIR 


B10A 00DSP 


AE21 


00DSPLY 


AECl 


(30 ERROR 


B062 00 EX IT 


B023 00FEXT 


B413 


@(3FLAGS 


B5A3 00FNAME 


B428 


00FSPEC 


B3FE 


(3(3GATRD 


B491 006ATWR 


B4D0 00GET 


AE35 


(3@GTDCB 


B452 00GTDCT 


B43D 


00GTMOD 


B467 


(3{3HDFMT 


BIDC 00 HEX 16 


B578 


00HEX8 


B563 


(30 HEX DEC 


B54E 00HIGH$ 


B58D 00INIT 


B25A 


(3(3 KB D 


AE99 00 KEY 


AE0D 00KEYIN 


AEAD 


@@KLTSK 


B0E0 00LOAD 


B3D4 


00LOC 


B2C3 


(3@L0F 


B2D8 00LOGER 


AEF8 


00LOGOT 


AF0D 


@{3MSG 


AF44 00MUL16 


B4FA 


00MUL8 


B4E5 


(3@0PEN 


B26F 00PARAM 


AFBA 


00PAUSE 


AFA5 
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UTILITY Files 


CONV - LS-DOS 6.2 


Page 00017 


@@PEOF 


B2ED @@POSN 


B302 @@PRINT 


AF59 


@@PRT 


AE71 (a@PUT 


AE49 (a@RAMDIR 


BllF 


@@RDSEC 


B1B2 (3@RDSSC 


B47C (a@READ 


B317 


0@REMOV 


B245 @@RENAM 


B230 (a@REW 


B32C 


@@RMTSK 


B0B6 ©(BRPTSK 


B0CB @@RREAD 


B341 


(3@RSLCT 


B19D @@RSTOR 


B15E @@RUN 


B3E9 


(aiaRWRIT 


B356 (3@SEEK 


B188 eeSEEKSC 


B36B 


0(3 SKIP 


B380 msici 


B149 @(aSTEPI 


B173 


@@TIME 


AFE4 ©laVDCTL 


AF90 m\IER 


B395 


@(3VRSEC 


B1C7 @0WEOF 


B3AA (3@WHERE 


AE85 


@@WRITE 


B3BF @@WRSEC 


BlFl @@WRSSC 


B206 


@@WRTRK 


B21B 






00000 Total 


errors 
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FLOPPY/DCT - 5 1/4" drive setup 

The Floppy DCT program allows up to four physical 5 1/4" floppy drives to be assigned 
to the seven different logical drive positions. It is activated with the SYSTEM 
(DRIVER) Library command. 
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The Source 


UTILITY Fi 


iles 


FLOPPY/DCT 


- LS^ 


-DOS 6.2 Page 0000 




00100 ;LDOSDCT/ASM - 


Floppy Disk 


DCT 




0000 


00110 


TITLE 


<FLOPPY/DCT - LS-DOS 6.2> 




00120 ; 












00130 ; 


Program 


1 installs a 


standard DCT into a logical 




00140 ; 


drive slot as speci 


ified 


by: 




00150 ; 


SYSTEM 


1 (DRIVE=d, DRIVER^ 


="LDOS") 




00160 ; 


The def 


ault DCT is 


takei 


n from slot of the 




00170 ; 


System 


Information 


Sector (70H-79H). 




00180 ; 










000 D 


00190 CR 


EQU 


13 






000A 


00200 LF 
00210 ; 


EQU 


10 






0000 


00220 *GET 


SVCMAC : 


3 




;SVC Macro equivalents 




00010 ;SVCMAC/ASM - LS-DOS Version VI 






00020 *LIST 


OFF 










03900 *LIST 


ON 








0000 


00230 *GET 


COPYCOM 


:3 




;Copyright message 




03920 ; COPYCOM - Fil 


e for Copyright 1 


:^OMment block 




03930 ; 










0000 


03940 
00240 ; 


COM 


'<*(C) 1982 


!,83,l 


34 by LSI*>' 


2C00 


00250 
00260 ; 
00270 BEGIN 


ORG 


2C00H 






2C00 


00280 


@@CKBRKC 






2C00 3E6A 


00001 


LD 


Aa06 






2C02 EF 


00002 


RST 


40 






2C03 2804 


00290 


JR 


Z, BEGINA 




;Continue if no break 


2C05 21FFFF 


00300 


LD 


HL,-1 




; else abort 


2C08 C9 


00310 
00320 ; 


RET 








2C09 D5 


00330 BEGINA 


PUSH 


DE 




;Save the DCT location 


2C0A 


00340 


(3@DSPLY 


HELLOS 




; Display the signon 




00003 


IFEQ 


01H,1 






2C0A 21E22C 


00004 
00005 


LD 
ENDIF 


HL,HELLO$ 






2C0D 3E0A 


00006 


LD 


Aa0 






2C0F EF 


00007 


RST 


40 






2C10 Dl 


00350 


POP 


DE 






2C11 Ik 


00360 LDOS 


LD 


A,D 




;Make sure that a 


2C12 B3 


00370 


OR 


E 




; drive # was entered 


2C13 CAD52C 


00380 
00390 ; 


JP 


Z,NODRV 




;Go if no drive 




00400 ; 


Check i 


f entry from SET 


command 




00410 ; 










2C16 


00420 


@@FLAGS 








2C16 3E65 


00008 


LD 


A, 101 






2C18 EF 


00009 


RST 


40 






2C19 FDCB025E 00^ J 


BIT 


3,(IY+'C'-' 


A') 


;System request? 


2C1D CAC92C 


00440 


JP 


Z,VIASET 




;Exit if not 


2C20 lA 


t()0450 


LD 


A,(DE) 






2C21 FEC9 


00460 


CP 


0C9H 




;Is drive disabled? 


2C?^ C2CP ,« 


00470 


JP 


NZ, ACTIVE 




;Must be disabled 


2C2b D5 


00480 


PUSH 


DE 




;Save DCT address 


2C27 CDB22C 


00490 


CALL 


GETCFG 




;Load sysinfo sector 


2C2A C2BD2C 


00500 


JP 


NZ,IOERR 




;Quit on read error 


2C2D FDCB0B66 


00510 


BIT 


4,(IY+'L'-' 


A') 


;Suppress 8" queries? 


2C31 201C 


00520 
00530 ; 


JR 


NZ,LD0S3 




;NZ=suppress 




00540 ; 


Query as to 5" or 8 


1" floppy 




00550 ; 
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UTILITY Files 


FLOPPY/DCT - 


LS-DOS 6.2 Page 00 


2C33 21DB2D 


00560 i 


DRVTYP LD 


HL,DRVTYP$ 


; "Enter drive code.. 


2C36 


00570 


@@DSPLY 








00010 


IFEQ 


00H,1 






00011 


LD 


HL, 






00012 


ENDIF 






2C36 3E0A 


00013 


LD 


A, 10 




2C38 EF 


00014 


RST 


40 




2C39 21312E 


00580 


LD 


HL,BUF 


;Pt to buffer 


2C3C 010001 


00590 


LD 


BC,1<8 


;Allow 1 char only 


2C3F 


00600 


@@KEYIN 




;Get response 


2C3F 3E09 


00015 


LD 


A,9 




2C41 EF 


00016 


RST 


40 




2C42 DAD12C 


00610 


JP 


C, BREAK 


;Quit on Break 


2C45 7E 


00620 


LD 


A.(HL) 


;P/u char response 


2C46 D630 


00630 


SUB 


'0' 


;Adjust to binary 


2C48 FE02 


00640 


CP 


2 


;Make sure requested 


2C4A 30E7 


00650 


JR 


NCDRVTYP 


; type is supported 


2C4C 32722C 


00660 
00670 


LD 


(LX805+1).A 






00680 


; Prompt 


user for phys 


ical drive address 




00690 








2C4F 


00700 I 


*D0S3 @@DSPLY DRVADR$ 


;"Enter physical ... 




00017 


IFEQ 


01H,1 




2C4F 21FF2D 


00018 
00019 


LD 
ENDIF 


HL,DRVADR$ 




2C52 3E0A 


00020 


LD 


A. 10 




2C54 EF 


00021 


RST 


40 




2C55 21312E 


00710 


LD 


HL,BUF 


; Input buffer 


2C58 010001 


00720 


LD 


BC,1<8 


;Allow 1 char only 


2C5B 


00730 


(3@KEYIN 




;Get response 


2C5B 3E09 


00022 


LD 


A.9 




2C5D EF 


00023 


RST 


40 




2C5E DAD12C 


00740 


JP 


C, BREAK 


;Quit on Break 


2C61 7E 


00750 


LD 


A,(HL) 


;P/u the response 


2C62 D631 


00760 


SUB 


'1' 


; Adjust to binary 


2C64 FE04 


00770 


CP 


3+1 


;Be sure in range 


2C66 30E7 


00780 
00790 


JR 


NC,LD0S3 


;Redo if not 




00800 


; Convert 


drive addres; 


; to select code 




00810 . 








2C68 FE03 


00820 


CP 


3 


; Convert 3 to 4 


2C6A 3F 


00830 


CCF 






2C6B CE00 


00840 


ADC 


A,0 




2C6D FE01 


00850 


CP 


1 


;Convert <0,1,2,4> 


2C6F 17 


00860 


RLA 




; to <1, 2, 4, 8> 


2C70 47 


00870 
00880 , 


LD 


B,A 


;Hang on to request 




00890 , 


Index the default dn 


ve code table 




00900 , 








2C71 


00910 L 


.X805 EQU 


$ 






00920 


IF 


@M0D2 






00930 


LD 


A,l 


;8" 




00940 


ENDIF 








00950 


IF 


@M0D4 




2C71 3E00 


00960 
00970 


LD 
ENDIF 


A,0 


;5" 


2C73 4F 


00980 


LD 


C,A 




2C74 87 


00990 


ADD 


A, A 


;Times 2 


2C75 81 


01000 


ADD 


A,C 


; Times 3 


2C76 87 


01010 


ADD 


A, A 


;Times 6 


2C77 81 


01020 


ADD 


A,C 


; Times 7 
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UTILITY Fi 


les 


FLOPPY/DCT - LS 


-DOS 6.2 Page 00003 


2C78 21232E 


01030 


LD 


HL,DRVTAB$ 


; Index into 5" or 8" 


2C7B 85 


01040 


ADD 


A,L 


; default table 


2C7C 6F 


01050 


LD 


L,A 




2C7D 8C 


01060 


ADC 


A,H 




2C7E 95 


01070 


SUB 


L 




2C7F 67 


01080 


LD 


H,A 




2C80 23 


01090 


INC 


HL 




2C81 7E 


01100 


LD 


A,(HL) 


;P/u default DCT+4 


2C82 E6F0 


01110 


AND 


0F0H 


;Remove drive select 


2C84 B0 


01120 


OR 


B 


;Merge in new one 


2C85 77 


01130 


LD 


(HL),A 


; Update the DCT 


2C86 2B 


01140 


DEC 


HL 




2C87 010700 


01150 


LD 


BC,7 


;Init for 7-byte move 


2C8A Dl 


01160 


POP 


DE 


;DE => DCT$ 


2C8B D5 


01170 


PUSH 


DE 


;Save DCT$ pointer 


2C8C 13 


01180 


INC 


DE 




2C8D 13 


01190 


INC 


DE 




2C8E 13 


01200 


INC 


DE 


; Index to DCT+3 


2C8F EDB0 


01210 


LDIR 






2C91 Dl 


01220 


POP 


DE 




2C92 D5 


01230 


PUSH 


DE 


;Save start again 


2C93 21702F 


01240 


LD 


HL,BUFFER+70H 


; Index the default vector 


2C96 0E03 


01250 


LD 


C,3 


;Move in driver vector 


2C98 EDB0 


01260 


LDIR 






2C9A Dl 


01270 
01280 ; 


POP 


DE 






01290 ; 


Compute 


the actual drive number used 




01300 ; 








2C9B 


01310 


@@GTDCT 




;Get drive 0(ldir set C=0 


2C9B 3E51 


00024 


LD 


A, 81 




2C9D EF 


00025 


RST 


40 




2C9E FDE5 


01320 


PUSH 


lY 


;Pass to HL for sub 


2CA0 El 


01330 


POP 


HL 


;HL => start DCT's 


2CA1 EB 


01340 


EX 


DE,HL 


;DE=start, HL=current 


2CA2 B7 


01350 


OR 


A 


;Clear carry 


2CA3 ED52 


01360 


SBC 


HL,DE 


;HL = offset from start 


2CA5 0E0A 


01370 


LD 


C,10 


;DCT length 


2CA7 


01380 


(a@DIVl6 




;HL+A = HL/C 


2CA7 3E5E 


00026 


LD 


A, 94 




2CA9 EF 


00027 


RST 


40 




2CAA 4D 


01390 


LD 


C,L 


jResult = drive # 


2CAB 


01400 


(3(3 RS TOR 




;Restore drive 


2CAB 3E2C 


00028 


LD 


A, 44 




2 CAD EF 


00029 


RST 


40 




2CAE 210000 


01410 


LD 


HL.0 


;Set no error return 


2CB1 C9 


01420 
01430 ; 


RET 




;Init complete 




01440 ; 


Routines to read/write 


the config sector 




01450 ; 








2CB2 21002F 


01460 GETCFG 
01470 ; 


LD 


HL, BUFFER 


;Use buffer for I/O 




01480 


IF 


(aM0D2 






01490 


LD 


C,L 


;Pass drive # 




01500 


PUSH 


lY 


;Save lY 


2CB5 


01510 


@@GTDCT 




;Fetch DCT 




00030 


LD 


A, 81 






00031 


RST 


40 






01520 


LD 


A,(IY+3) 


;Get data 




01530 


AND 


28 H 


;Bit 5/3 




01540 


CP 


20H 


;8" floppy? 




01550 


JR 


NZ,SETSYS1 


;Go if not 
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UTILITY Fi 


les 


FLOPPY/DCT - LS 


-DOS 6.2 Page 00004 




01560 




LD 


A,(IY+4) 


;Fetch data 




01570 




AND 


50H 


;Bit 6/4 




01580 




CP 


40H 


;DD not alien? 




01590 




JR 


NZ, SETSYSl 


;Go if not 




01600 




LD 


D,(IY+9) 


;Get dir cyl 




01610 




LD 


E,L 


; Sector 


2CB5 


01620 




@@RDSEC 




;Read sector 




00032 




LD 


A, 49 






00033 




RST 


40 






01630 




CP 


6 


; Directory? 




01640 




JR 


NZ,SETSYS2 


;Nope, error 




01650 




LD 


A,(BUFFER+0CDH) 


;Get GAT data 




01660 




BIT 


7, A 


;System disk? 




01670 


SETSYSl 


LD 


DE,0<8+2 


; Normal sysinfo sector 




01680 




JR 


NZ,$+3 


;Go if data disk 




01690 




INC 


D 


; else sysinfo on 1 




01700 




XOR 


A 


;Set Z for no error 




01710 


SETSYS2 


: POP 


lY 


; Res tore DCT 




01720 




RET 


NZ 


;Go if error 




01730 




ENDIF 








01740 


» 










01750 




IF 


@M0D4 




2CB5 110200 


01760 
01770 




LD 
ENDIF 


DE,0<8+2 


;Get Config sector 


2CB8 4D 


01780 




LD 


C,L 


; of system drive 


2CB9 


01790 




(a@RDSEC 




;Read it into core 


2CB9 3E31 


00034 




LD 


A, 49 




2CBB EF 


00035 




RST 


40 




2CBC C9 


01800 
01810 


9 


RET 






2CBD 6F 


01820 


lOERR 


LD 


L,A 


; Error # to HL 


2CBE 2600 


01830 




LD 


HJ 




2CC0 F6C0 


01840 




OR 


0C0H 


;Abbrev, return 


2CC2 


01850 




@(3ERR0R 




;Display the error 


2CC2 3E1A 


00036 




LD 


A, 26 




2CC4 EF 


00037 




RST 


40 




2CC5 


01860 




(a@CKBRKC 


jClear any Break 


2CC5 3E6A 


00038 




LD 


A, 106 




2CC7 EF 


00039 




RST 


40 




2CC8 C9 


01870 
01880 




RET 








01890 




Interna 


1 error display i 


routine 




01900 










2CC9 216E2D 


01910 VIASET 


LD 


HL,VIASET$ 


;" Install with SYSTEM 


2CCC DD 


01920 




DB 


0DDH 




2CCD 218F2D 


01930 ACTIVE 


LD 


HL, ACTIVES 


; "Drive in use 


2CD0 DD 


01940 




DB 


0DDH 




2CD1 21CB2D 


01950 


BREAK 


LD 


HL, BREAKS 


; "Command aborted 


2CD4 DD 


01960 




DB 


0DDH 




2CD5 21AD2D 


01970 


NODRV 


LD 


HL,NODRV$ 


;"Need a drive # 


2CD8 


01980 




@§LOGOT 








00040 




IFEQ 


00H,1 






00041 




LD 


HL, 






00042 




ENDIF 






2CD8 3E0C 


00043 




LD 


A, 12 




2CDA EF 


00044 




RST 


40 




2CDB 21FFFF 


01990 




LD 


HL,-1 


;Set abort code 


2CDE 


02000 




@(aCKBRKC 


;Clear any break 


2CDE 3E6A 


00045 




LD 


A, 106 




2CE0 EF 


00046 




RST 


40 




2CE1 C9 


02010 




RET 
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02020 


» 


2CE2 0A 


02030 HELLO$ DB 


46 4C 4F 50 50 59 20 53 


65 74 


75 70 




2CEF 


02040 


*6ET CLIENT 




03950 


; CLIENTS/ASM - 




03960 


i 


2CEF 20 


03970 


DB 


2D 20 


36 2E 32 


2E 30 20 


2D 20 43 6F 70 


79 72 69 


67 68 74 20 31 


39 38 32 


2F 38 


33 2F 38 


34 20 62 


79 20 4C 6F 67 


69 63 61 


6C 






2D19 20 


03980 


DB 


53 79 


73 74 65 


6D 73 2C 


20 49 6E 63 2E 


20 20 20 


20 20 20 0A 






03990 


» 


2D2E 41 


04000 


DB 


6C 6C 


20 52 69 


67 68 74 


73 20 


52 65 73 


65 72 76 


65 64 


2E 20 4C 69 63 65 


6E 73 


65 64 20 


31 39 38 


32 2F 


38 33 2F 


38 34 


2D56 20 


04010 


DB 


74 6F 


20 78 78 


78 78 78 


78 78 


78 78 78 


78 78 78 


78 78 


78 78 78 


0A 0D 




02050 


» 


2D6E 4D 


02060 VIASET$ DB 


75 73 


74 20 69 6E 73 74 


61 6C 


6C 20 76 


69 61 20 


53 59 


53 54 45 


4D 20 28 


44 52 


49 56 45 


52 3D 0D 


2D8F 44 


02070 ACTIVES DB 


72 69 


76 65 20 73 6C 6F 


74 20 69 73 20 61 6C 72 


65 61 


64 79 20 


65 6E 61 


62 6C 


65 64 0D 




2DAD 4C 


02080 NODRV$ DB 


6F 67 


69 63 61 


6C 20 64 


72 69 


76 65 20 6E 75 6D 


62 65 


72 20 72 


65 71 75 


69 72 


65 64 0D 




2DCB 43 


02090 BREAKS DB 


6F 6D 6D 61 6E 64 20 61 


62 6F 


72 74 65 


64 0D 


2DDB 20 


02100 DRVTYP$ DB 


20 20 45 6E 74 


65 72 20 


64 72 


69 76 65 


20 63 6F 


64 65 


20 28 30 3D 35 22 


2C 20 


31 3D 38 


22 29 20 


3E 20 03 




2DFF 20 


02110 


DRVADRS DB 


20 20 45 6E 74 


65 72 20 


64 72 


69 76 65 


20 49 2F 


4F 20 


61 64 64 


72 65 73 


73 20 


3C 31 2D 


34 3E 20 


3E 20 03 






02120 


DRVTAB$ 



FLOPPY/DCT - LS-DOS 6.2 



LF. 'FLOPPY Setup 



Page 00005 



File to establish sign-on headers 
' - 6.2.0 - Copyright 1982/83/84 by Logical 



Systems, Inc. 



'.10 



'All Rights Reserved. Licensed 1982/83/84' 



' to xxxxxxxxxxxxxxxxxx' ,10,13 

'Must install via SYSTEM (DRIVER=',CR 

'Drive slot is already enabled' ,CR 

'Logical drive number required ',CR 

'Command aborted ',CR 

Enter drive code (0=5", 1=8") > ',3 



Enter drive I/O address <l-4> > ',3 
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02130 ; 










02140 ; 


5" drive table 






02150 ; 








2E23 44 


02160 


DB 


01000100B 


5", 6ms, delay=n 


2E24 40 


02170 


DB 


01000000 B 


DDEN 


2E25 FF 


02180 


DB 


0FFH 


Start cylinder 


2E26 27 


02190 


DB 


40-1 


;40 track drive 


2E27 11 


02200 


DB 


18-1 


;18 sec per cyl 


2E28 45 


02210 


DB 


3-K5+6-1 


,6 sec/gran, 3 gran/cyl 


2E29 14 


02220 
02230 ; 


DB 


40/2 


; Directory track 




02240 ; 


8" tabl 


e 






02250 ; 










02260 


IF 


@M0D4 




2E2A 21 


02270 


DB 


001 00001 B 


;8'\ 6ms step 


2E2B 40 


02280 


DB 


01 000000 B 


,DDEN 


2E2C FF 


02290 


DB 


0FFH 


; Start cylinder 


2E2D 4C 


02300 


DB 


77-1 


;77 track drive 


2E2E 0F 


02310 


DB 


16-1 


;16 sec per cyl 


2E2F 27 


02320 


DB 


2-K5+8-1 


;8 sec/gran, 2 gran/cyl 


2E30 26 


02330 
02340 
02350 ; 


DB 
ENDIF 


77/2 


; Directory track 




02360 


IF 


(aM0D2 






02370 


DB 


01100010B 


,4-3 - 8", DD, 10ms, delay 




02380 


DB 


01 000000 B 


;+4 - DDen capable 




02390 


DB 


4CH 


;+5 - current cyl 




02400 


DB 


77-1 


;+6 - high cylinder 




02410 


DB 


0<5+29 


;+7 - sides + high sec 




02420 


DB 


2<5+9 


;+8 - grans/cyl + sec/grn 




02430 


DB 


77/2 


;+9 - dir cylinder 




02440 


ENDIF 








02450 ; 








0002 


02460 BUF 


DS 


2 




2F00 


02470 


ORG 


$<-8+l<+8 




0100 


02480 BUFFER 
02490 ; 


DS 


256 




2C00 


02500 


END 


BEGIN 
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mi 


0000 m2 


0000 @@3 


0000 




@@4 


0000 0MOD2 


0000 (aM0D4 


FFFF 




ACTIVE 


2CCD ACTIVES 


2D8F BEGIN 


2C00 




BEGINA 


2C09 BREAK 


2CD1 BREAKS 


2DCB 




BUF 


2E31 BUFFER 


2F00 CR 


000 D 




DRVADR$ 


2DFF DRVTABS 


2E23 DRVTYP 


2C33 




DRVTYP$ 


2DDB GETCFG 


2CB2 HELLO$ 


2CE2 




lOERR 


2CBD LDOS 


2C11 LD0S3 


2C4F 




LF 


000A LX805 


2C71 NODRV 


2CD5 




NODRV$ 


2DAD VIASET 


2CC9 VIASET$ 


2D6E 




(a@ABORT 


81 D9 @@ADTSK 


826C @(aBANK 


8784 




(a@BKSP 


8464 @@BREAK 


879A @@CHNIO 


81C4 




(a^CKBRKC 


87 E8 @@CKDRV 


82C0 @@CKEOF 


8479 




©(PCKTSK 


8257 @@CLOSE 


844F @@CLS 


87 D2 




@@CMNDI 


8203 (a@CMNDR 


8218 mcji 


8028 




@0DATE 


81 9A @@DCSTAT 


82FF @@DEBUG 


8242 




@(aDECHEX 


8704 @@DIRRD 


8671 @@DIRWR 


8686 




moiMie 


86EF 00DIV8 


86DA @@DODIR 


82 D5 




§(aDSP 


7FEC @@DSPLY 


808C (3@ERR0R 


822D 




@@EXIT 


81EE @@FEXT 


85DE @@FLAGS 


876E 




@@FNAME 


85F3 @@FSPEC 


85C9 @@6ATRD 


865C 




@@GATWR 


869B 0@GET 


8000 (3@GTDCB 


861D 




(a@GTDCT 


8608 @(aGTMOD 


8632 eiaHDFMT 


83A7 




@@HEX16 


8743 @@HEX8 


872E (a@HEXDEC 


8719 




(3@HIGH$ 


8758 @@INIT 


8425 (3@KBD 


8064 




@@KEY 


7FD8 (a@KEYIN 


8078 (3@KLTSK 


82 AB 




(a@LOAD 


859F @@LOC 


848E @@LOF 


84A3 




@@LOGER 


80C3 @@LOGOT 


80D8 (a@MSG 


810F 




0(9MUL16 


86C5 mmi8 


86B0 (3@0PEN 


843A 




eiaPARAM 


8185 (a@PAUSE 


8170 @@PEOF 


84B8 




@@POSN 


84 CD 0@PRINT 


8124 @@PRT 


803 C 




@@PUT 


8014 @@RAMDIR 


82EA (B@RDSEC 


837 D 




@(aRDSSC 


8647 (3@READ 


84 E2 (3@REM0V 


8410 




@@RENAM 


83FB 0@REW 


84F7 @@RMTSK 


8281 




@(9RPTSK 


8296 (3@RREAD 


850C @@RSLCT 


8368 




@@RSTOR 


8329 mmn 


85 B4 @@RWRIT 


8521 




@(aSEEK 


8353 (a@SEEKSC 


8536 @@SKIP 


854B 




(a^SLCT 


8314 @@STEPI 


833E (a@TIME 


81 AF 




(3(3VDCTL 


815B @@VER 


8560 (3(aVRSEC 


8392 




(a@WEOF 


8575 (a@WHERE 


8050 eeWRITE 


858A 




(3@WRSEC 


83BC mmssc 


83D1 mmiRK 


83E6 




2C00 is the 


transfer address 








00000 Total 


errors 
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FORHAT/CMD - Disk initialization program 

The Format utility allows a floppy or hard disk to be initialized. Parameters are 
available to set the number of sides and cylinders, select the density, and set a boot 
step rate for system disks. 
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Page 



0000 



42 E0 
0062 
000A 



00110 
00120 
00130 



; FORMAT 1/ ASM - Format Program 

TITLE <FORMAT - LS-DOS 6.2> 
SUBTTL '<Format Execution Code>' 



3C00 
F800 



0000 



2600 
2600 9D 



00150 
00160 
00170 
00180 
00190 
00200 
00210 
00010 
00020 
03900 
00220 
03920 
03930 
03940 
00230 
00240 
00250 
00260 
00270 
00280 
00290 



PASSWORD 
RLS EQU 
LF EQU 
CR EQU 
CRT3 EQU 
CRT4 EQU 



EQU 

62 H 

10 

13 

3C00H 

0F800H 



42E0H 



*GET SVCMAC:3 ;SVC Macro equivalents 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*6ET C0PYC0M:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



2601 FDCB0466 
2605 C2C127 
2608 110000 
260B lA 
260C 13 
260D 32E92A 

2610 47 

2611 FDCB046E 
2615 2801 

2617 07 

2618 32E82A 
261B 210000 
261E 7C 
261F B5 
2620 C29427 

2623 lA 

2624 13 

2625 320327 
2628 ED53A226 



262C 3C 
262D 80 
262E 83 
262F 5F 

2630 8A 

2631 93 

2632 57 

2633 210031 
2636 010030 



00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 



00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 



COM 
*LIST ON 

ORG 

s 

IF 
BOOTST$ DB 

ENDIF 

IF 
BOOTST$ DB 

ENDIF 

GOFMT BIT 
JP 

FMTTBL LD 
LD 
INC 
LD 
LD 
BIT 
JR 

RLCA 
LD 

SYSPRM LD 
LD 
OR 
JP 
LD 
INC 
LD 
LD 



'<*(C) 1982,83,84 by LSI*>' 



2600H 

@M0D4 
9DH 

@M0D2 
03 H 



4,(IY+4) 

NZ,HRDRV 

DEJ 

A,(DE) 

DE 

(SECTRK),A 

B,A 

5,(IY+4) 

Z,$+3 

(SECCYL),A 

HL,0 

A,H 

L 

NZ,MOVFREE 

A,(DE) 

DE 

(TRKSKEW+1),A 

(SECSKEW+1),DE 



Index past sector info 



INC 

ADD 

ADD 

LD 

ADC 

SUB 

LD 

LD 

LD 



A 

A,B 

A,E 

E,A 

A,D 

E 

D,A 

HL, FORMAT 

BCHITBUF 



;Boot step rate offset 



;Jump if alien controller 

;P/u table pointer 

;P/u # of sectors to fmt 

;Adj for zero offset 



;Need twice as many 
: if 2-sided drive 



;P/u system info parm 
; Don't format if system 
; info only is req 

;P/u track skew 
:Format sector skew 



;Add DE -> begin of sec # 
;B -> # of sectors/side 
; A+1 -> a code byte 



; Buffer for format data 
;Tempy ptrs to trkjSect info 
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00650 ; 



Create the formatting data without trk,sect info 



2639 lA 


006/0 ; 
00680 FMTDAT 


LD 


A,(DE) 


;P/u table format byte 


263A 13 


00690 


INC 


DE 


;Bump table ptr 


263B FEFl 


00700 


CP 


0F1H 


; Start of cylinder? 


263D 282A 


00710 


JR 


Z, CODFl 




263F FEF2 


00720 


CP 


0F2H 


; Start of track trailer? 


2641 282D 


00730 


JR 


Z,C0DF2 




2643 FEF3 


00740 


CP 


0F3H 


; Start of track ID info? 


2645 2833 


00750 


JR 


Z,C0DF3 




2647 FEF4 


00760 


CP 


0F4H 


;End of table parms? 


2649 2837 


00770 


JR 


Z,C0DF4 




264B FEF5 


00780 


CP 


0F5H 


; Start of data? 


264D C5 


00790 


PUSH 


BC 




264E 200F 


00800 
00810 ; 


JR 


NZ, CODEl 


;Go if not 




00820 ; 


Write 


2 byte data patte 


rn to format buffer 




00830 ; 








2650 lA 


00840 


LD 


A,(DE) 


;P/u length to write 


2651 13 


00850 


INC 


DE 


;Bump to 1st data byte 


2652 47 


00860 


LD 


B,A 


;Xfer length to B 


2653 lA 


00870 


LD 


AJDE) 


;P/u a data byte 


2654 13 


00880 


INC 


DE 


;Bump again for 2nd byte 


2655 4F 


00890 


LD 


C,A 


;Xfer 1st byte 


2656 lA 


00900 


LD 


A,(DE) 


;P/u 2nd byte 


2657 71 


00910 CQDF5 


LD 


(HL),C 


; Stuff into buf 


2658 23 


00920 


INC 


HL 




2659 77 


00930 


LD 


(HL),A 




265A 23 


00940 


INC 


HL 




265 B 10FA 


00950 


DJNZ 


CODE 5 


;Loop til xfered 


265 D 1806 


00960 
00970 ; 


JR 


CODRET 






00980 ; 


Xfer 


bytes to the format buffer area 




00990 ; 


A => 


count to move 






01000 ; 


DE=> 


data byte to dupli 


cate 




01010 ; 








265 F 47 


01020 CODEl 


LD 


B,A 


;Count to B 


2660 lA 


01030 


LD 


AJDE) 


;P/u data byte to move 


2661 77 


01040 CODEIA 


LD 


(HL),A 


;Fill buf with byte 


2662 23 


01050 


INC 


HL 




2663 10FC 


01060 


DJNZ 


CODEIA 


;Loop til done 


2665 CI 


01070 CODRET 


POP 


BC 




2666 13 


01080 


INC 


DE 


;Bump table ptr 


2667 18D0 


01090 
01100 ; 


JR 


FMTDAT 


;Back for more 




01110 ; 


Save 


the current table 


posn and the number of 




01120 ; 


sectors per cylinder on 


the stack. 




01130 ; 








2669 3AE92A 


01140 CODFl 


LD 


A,(SECTRK) 


;P/u # of sectors/side 


266C D5 


01150 CODFIA 


PUSH 


DE 


;Save table pointer 


266D F5 


01160 


PUSH 


AF 


;Save value 


266 E 18C9 


01170 
01180 ; 


JR 


FMTDAT 






01190 ; 


Done 


with a sector. Are 


there more on this cyl? 




01200 ; 








2670 Fl 


01210 C0DF2 


POP 


AF 


;Count down the # of 


2671 3D 


01220 


DEC 


A 


; sectors to format 


2672 2803 


01230 


JR 


Z,C0DF2A 


;Go if last one done 
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2674 Dl 

2675 18F5 

2677 Fl 

2678 18BF 



267A 7D 

?57B 02 
267 C 03 
267D 7C 
26 7E 02 
26 7F 03 
2680 18B7 



2682 ED536527 

2686 AF 

2687 02 

2688 03 

2689 02 
268A 0600 
268C 3EFF 
268E 77 
268F 23 

2690 10FC 



2692 

2692 21392C 

2695 3E0A 

2697 EF 

2698 FD7E05 
2698 CD502A 
269E CD892A 
26A1 010000 
26A4 210030 



26A7 

26A7 3E6A 
26A9 EF 
26AA C2B929 

26AD 5E 
26AE 23 
26AF 56 
26B0 23 
26B1 7A 
26B2 B3 
26B3 2820 



01240 POP 

01250 JR 

01260 ; 

01270 C0DF2A POP 

01280 JR 

01290 ; 

01300 ; 

01310 ; 

01320 ; 

01330 ; 

01340 CODE 3 LD 

01350 LD 

01360 INC 

01370 LD 

01380 LD 

01390 INC 

01400 JR 

01410 ; 

01420 ; 

01430 ; 

01440 ; 

01450 CODE 4 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 ; 

01560 ; 

01570 ; 

01580 

00001 

00002 

00003 

00004 

00005 

01590 BGNFMT 

01600 

01610 

01620 SECSKEW 

01630 BFMTl 

01640 ; 

01650 BFMT2 

01660 

00006 

00007 

01670 

01680 ; 

01690 LD 

01700 INC 

01710 LD 

01720 INC 

01730 LD 

01740 OR 

01750 JR 



DE 
CODFIA 

AF 
FMTDAT 



;Recover table ptr 
;Loop for more 

;Clean the stack 

; and finish off the cyl 



Build a table of the location in the format buffer of 
the track and sector ID bytes, to be filled in during 
the actual formatting. 



Stuff pointer to where 
track & sector info 
is to be placed 



A,L 

(BC),A 

BC 

A,H 

(BC),A 

BC 

FMTDAT 



Finished building format cyl info. Terminate the ID table 
with an extra 256 bytes in case of overrun. 



LD (VERSKEW+1),DE 

XOR A 

LD (BC),A 

INC BC 

LD (BC),A 

LD B,0 

LD A,0FFH 

LD (HL),A 

INC HL 

DJNZ $-2 

Begin the formatting 



(a@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

LD 

CALL 

CALL 

LD 

LD 



FMTCYL$ 

01H,1 

HL,FMTCYL$ 

A, 10 

40 

A,(IY+5) 

CVDEC 

DSPCYL 

BC,0 

HL,HITBUF 



(aeCKBRKC 

LD A, 106 

RST 40 

JP NZ, BREAK 



E,(HL) 

HL 

D,(HL) 

HL 

A,D 

E 

Z.BFMT4 



;Table posn of verify order 
; Stuff two X'00's to 
; indicate the end 
; of the ID posn table 

; Stuff 256 FF's into the 
; format buffer 



; "formatting clinder... 



;P/u cylinder position 
;Cvrt to decimal 

; Begin of sector table 
;P/u ptr to ID posn table 



;Check for break 



;Go if so 

;P/u positions having 
; sector & cylinder 
; info to be stuffed 
; into format data 
;Finished? 
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26B5 FD7E05 
26B8 12 
26B9 13 
26BA FD7E03 
26BD E610 
26BF 0F 
26C0 0F 
26C1 0F 
26C2 0F 
26C3 12 
26C4 13 
26C5 0A 
26C6 B7 
26C7 F2CF26 
26CA 81 
26CB 4F 
26CC 3801 
26CE 05 
26CF 0A 
26 D0 12 
26D1 13 
26D2 03 
26 D3 18 D2 



26D5 
26D9 
26 DC 
26 DF 
26E2 
26E5 
26E8 
26 EB 
26EF 
26F1 
26F5 
26F7 
26FB 
26FC 
26FE 
2702 
2704 
2705 
2706 
2707 
2708 
2709 
270D 
2710 
2713 
2715 
2718 
2718 
271A 
271B 
271E 
2721 
2724 
2727 
272A 



ED43A226 

FD5605 

210031 

CDFA29 

C2A529 

CD0E2A 

C2A529 

FDCB045E 

280D 

FDCB0366 

2007 

FDCB03E6 

03 

18A6 

FDCB03A6 

3E00 

81 

4F 

88 

91 

47 

ED43A226 

FD7E05 

FDBE06 

2820 

014200 

3E10 

EF 

CD042A 

C2A529 

019826 

CD092A 

C2A529 

C5 



01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 BFMT3 

01950 

01960 

01970 

01980 

01990 ; 

02000 BFMT4 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 BFMT5 

02150 TRKSKEW 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

00008 

00009 

02270 

02280 

02290 

02300 CKWAIT 

02310 

02320 



LD 

LD 

INC 

LD 

AND 

RRCA 

RRCA 

RRCA 

RRCA 

LD 

INC 

LD 

OR 

OP 

ADD 

LD 

JR 

DEC 

LD 

LD 

INC 

INC 

JR 

LD 

LD 

LD 

CALL 

JP 

CALL 

JP 

BIT 

JR 

BIT 

JR 

SET 

INC 

JR 

RES 

LD 

ADD 

LD 

ADC 

SUB 

LD 

LD 

LD 

CP 

JR 

LD 

@@PAUSE 

LD 

RST 

CALL 

JP 

LD 

CALL 

JP 

PUSH 



A,(IY+5) 

(DE),A 

DE 

A,(IY+3) 

10H 



(DE),A 

DE 

A,(BC) 

A 

P,BFMT3 

A,C 

C,A 

C,BFMT3 

B 

A,(BC) 

(DE),A 

DE 

BC 

BFMT2 

(SECSKEW+1),BC 

D,(IY+5) 

HL, FORMAT 

SELECT 

NZ.IOERR 

WRCYL 

NZ, lOERR 

5,(IY-f4) 

Z,BFMT5 

4,(IY+3) 

NZ,BFMT5 

4,(IY+3) 

BC 

BFMTl 

4,(IY+3) 

AJ 

A,C 

C,A 

A,B 

C 

B,A 

(SECSKEW+1),BC 

A,(IY+5) 

(IY+6) 

Z,BGNVER 

BC, 1000/15 

A, 16 

40 

STEPIN 

NZ,IOERR 

BCBGNFMT 

RSELCT 

NZ,IOERR 

BC 



;P/u cylinder # & stuff 
; into format data 

;Stuff the side-select 
: bit 



; into the format data 

;P/u the sector number 

;Go if a good number 
; else off the endg 
; calculate the beglnrii 
; of the sector table 

;P/u the next sector # 
; and stuff in format 



;Loop until cylinder done 

;Save end of sector table 
;P/u current cylinder 
;Pt to format data 
;Drive select 
;Go on error 
;Cylinder write 

;Double sided? 

;Flip bit for 2nd side 
; if not already on it, 
; else go to next 
;Bump to start side 2 
; at different sector # 
;Turn off side 2 
;P/u the track skew byte 
;Repoint to beginning 
; of sector table 
;Skew start of next track 



;Finished? 

; Beg in verify if so 
;Approx 1 ms pause 
; before STEPIN 



;Step in 

;Go on error 

;Place RET addr on stack 

;Wait for idle FDC 

;Go on error 

;Save RET addr 
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02330 ; 










02340 ; 


WAIT parameter for time delay after STEPIN 




02350 ; 








272B 01C800 


02360 WAITPRM 


LD 


BC, 3000/15 ; 


Approx 3 ms delay 


272 E 78 


02370 


LD 


A,B ; 


after STEP IN 


272F Bl 


02380 


OR 


C 




2730 C8 


02390 


RET 


Z ; 


Do next track if no wait 


2731 


02400 


@@PAUSE ; 


else wait for count 


2731 3E10 


00010 


LD 


A, 16 




2733 EF 


00011 


RST 


40 




2734 C9 


02410 
02420 ; 


RET 








02430 ; 


Begin 


the verification process 




02440 ; 








2735 0E0D 


02450 BGNVER 


LD 


C.CR ; 


Posn to next dsply line 


2737 


02460 


@0DSP 






2737 3E02 


00012 


LD 


A,2 




2739 EF 


00013 


RST 


40 




273A CDFF29 


02470 


CALL 


RESTOR ; 


Restore to cyl 


273D 206A 


02480 


JR 


NZ,BVER9 ; 


Go on error 


273F 


02490 


@@DSPLY VERCYL$ ; 


"verifying cylinder... 




00014 


IFEQ 


01H,1 




273F 21512C 


00015 
00016 


LD 
ENDIF 


HL,VERCYL$ 




2742 3EI3A 


00017 


LD 


A, 10 




2744 EF 


00018 


RST 


40 




2745 1600 


02500 
02510 BVERl 


LD 


D,0 ; 


Init track count 


2747 


02520 


(BiaCKBRKC ; 


Check for break 


2747 3E6A 


00019 


LD 


A, 106 




2749 EF 


00020 


RST 


40 




274A C2B929 


02530 
02540 ; 


JP 


NZ, BREAK ; 


and abort if so 


274D 6A 


02550 


LD 


L,D ; 


Pt to GAT byte for this 


274E 262E 


02560 


LD 


H,GATBUF<-8 ; 


track & bypass verify 


2750 7E 


02570 


LD 


A,(HL) ; 


if track not formatted 


2751 3C 


02580 


INC 


A 




2752 2836 


02590 
02600 ; 


JR 


Z,BVER8 




2754 7A 


02610 


LD 


A,D 




2755 CD502A 


02620 


CALL 


CVDEC ; 


Convert cyl # to ASCII 


2758 D5 


02630 


PUSH 


DE 




2759 CD892A 


02640 


CALL 


DSPCYL ; 


Display the current cyl 


275C Dl 


02650 


POP 


DE 




275D AF 


02660 


XOR 


A ; 


Initialize starting sect 


275E 327227 


02670 


LD 


(BVER5+1),A 




2761 326927 


02680 


LD 


(BVER4+1),A 




2764 010000 


02690 VERSKEW LD 


BCJ ; 


P/u start of sector tbl 


2767 0A 


02700 BVER3 


LD 


A,(BC) 


P/u sector # 


2768 C600 


02710 BVER4 


ADD 


A,0 


Add in a side's sectors 


276A 5F 


02720 


LD 


E,A 


, if on side 2 


276B CD272A 


02730 


CALL 


VERSEC 


Sector verify 


276E 2039 


02740 


JR 


NZ,BVER9 


Go on error 


2770 03 


02750 


INC 


BC 


;Bump sector table ptr 


2771 3Ei30 


02760 BVER5 


LD 


A,0 


,P/u sector # 


2773 3C 


02770 


INC 


A 


, Bump it up 


2774 327227 


02780 


LD 


(BVER5+1),A 


, and save new # 


2777 5F 


02790 


LD 


E.A 


;Xfer to sector register 


2778 3AE82A 


02800 


LD 


A,(SECCYL) 


;Is this = a cyl? 
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277B BB 


02810 




CP 


E 




277C 280C 


02820 




JR 


Z,BVER8 


;Go if cyl done 


277E 3AE92A 


02830 




LD 


A,(SECTRK) 


;Is this a track's worth? 


2781 BB 


02840 




CP 


E 




2782 20E3 


02850 




JR 


NZ,BVER3 


;Loop if not 


2784 326927 


02860 




LD 


(BVER4+1),A 


; Update the add for side2 


2787 03 


02870 




INC 


BC 




2788 18DA 


02880 
02890 




JR 


VERSKEW 






02900 




Read jus 


t for end of cyl 


i nder 




02910 










278A 7A 


02920 


BVER8 


LD 


A,D 


;P/u current cyl position 


278B 14 


02930 




INC 


D 


;Bump to next cyl 


278C FDBE06 


02940 




CP 


(IY+6) 


;Cp to highest # cyl 


278F 014727 


02950 




LD 


BCBVERl 


;Go if more to verify 


2792 2090 


02960 
02970 




JR 


NZ,CKWAIT 


; after checking WAIT 




02980 




Shift the FREE table to 


LOCKOUT table 




02990 










2794 21002E 


03000 MOVFREE 


LD 


HL.GATBUF 


;Ptr to allocation info 


2797 11602E 


03010 




LD 


DE,GATBUF+60H 


;Lockout table 


27 9 A 0600 


03020 




LD 


BJ 




279C FD4E06 


03030 




LD 


C,(IY+6) 


;P/u hi cyl 


279F 0C 


03040 




INC 


C 


;Offset from 


27 A0 EDB0 


03050 




LDIR 




;Shift info to the lockout tbl 


27 A2 0E0D 


03060 




LD 


C,CR 


; Print a newline 


27A4 


03070 




@(3DSP 






27 A4 3E02 


00021 




LD 


A,2 




27A6 EF 


00022 




RST 


40 




27A7 185D 


03080 
03090 




JR 


CALCDIR 


;Go finish DIR init 




03100 




Got verify error 






03110 










27A9 FE05 


03120 


BVER9 


CP 


5 


;Data rec not found? 


27AB 2805 


03130 




JR 


Z,BVER10 




27 AD FE04 


03140 




CP 


4 


; Parity error? 


27AF C2A529 


03150 




JP 


NZ,IOERR 


;Quit on any other 


27B2 D5 


03160 


BVER10 


PUSH 


DE 




27B3 


03170 




muspu 


STARS 


;Show the * lockout 




00023 




IFEQ 


01H,1 




27B3 21692C 


00024 
00025 




LD 
ENDIF 


HL, STARS 




27 86 3E0A 


00026 




LD 


A,10 




27 B8 EF 


00027 




RST 


40 




27B9 Dl 


03180 




POP 


DE 




27BA 6A 


03190 




LD 


L,D 


;Pt to this cyl 


27BB 262E 


03200 




LD 


H,GATBUF<-8 


; in the GAT 


27BD 36FF 


03210 




LD 


(HL),0FFH 


; Lockout this cylinder 


27BF 18C9 


03220 
03230 




JR 


BVER8 


;Continue verifying 




03240 




Hard dr 


ive format - most work done by controller 




03250 










27C1 218C39 


03260 HRDRV 


LD 


HL,LASTMSG 


;Give one last chance to 


27C4 FDCB035E 03270 




BIT 


3,(IY+3) 


; abort before wiping 


27 C8 2809 


03280 




JR 


Z,AFLOP 


; disk unless floppy 


27 CA CD5D2A 


03290 




CALL 


GET3 


;Is hard, get response 


27CD 7E 


03300 




LD 


A,(HL) 


;P/u 1st char of resp 


27CE FE59 


03310 




CP 


'Y' 


;Must be yes to continue 


27D0 C2B929 


03320 




JP 


NZ,FMTABT 
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27D3 3A1C26 

27D6 B7 

27 D7 20Crc 
27 D9 

27D9 216E2C 

27 DC 3E0A 
27DE EF 
27DF CD132A 
27 E2 C2A529 
27E5 FD7E07 
27E8 57 
27E9 E61F 
27 EB 5F 
27EC IC 
27 ED AA 
27 EE 07 
27 EF 07 
27F0 07 
27F1 3C 
27F2 4F 
27F3 

27F3 3E5A 
27F5 EF 
27F6 FDCB046E 
27 FA 2801 
27FC 87 
27FD 32E82A 
2800 FDCB035E 
2804 288E 



2806 CDFF29 
2809 C2A529 
280C 262E 
280E FD6E06 
2811 010000 

2814 79 

2815 B0 

2816 2806 

2818 BD 

2819 3003 
281B 6F 
281C 1803 
281E 2C 
281F CB3D 
2821 0E00 



2823 7E 

2824 3C 

2825 2019 

2827 0C 

2828 79 

2829 0F 



03330 
03340 
03350 
03360 
00028 



AFLOP 



00031 
00032 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
00033 
00034 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 



HRDRVl 



LD A,(SYSPRM+1) 

OR A 

JR NZ, HRDRVl 

@@DSPLY FMT6$ 

IFEQ 01H,1 

LD HL,FMTG$ 

ENDIF 

LD A, 10 

RST 40 

CALL FMTHD 

JP NZ,IOERR 

LD A,(IY+7) 

LD D,A 

AND IFH 

LD E,A 

INC E 

XOR D 

RLCA 

RLCA 

RLCA 

INC 

LD 

@@MUL8 

LD 

RST 

BIT 

JR 

ADD 

LD 

BIT 

JR 



; Bypass the formatting 
; if system info only 

; "formatting - be patient 



A 
C,A 

A, 90 

40 

5,(IY+4) 

Z,$+3 

A,A 

(SECCYL),A 

3.(IY+3) 

Z,MOVFREE 



; Format hard drive 

;# of sectors/gran 
;-> reg E 



;Bump for offset 

;Get # of heads 
;Into reg D 

; Adjust for zero offset 

;Multiply E x C 

;2-sided? 

; Twice the number 

;Floppy? 

;Form lock table instead 



Routine to calculate the directory cylinder 



CALCDIR 



DIRPARM 



NODIR 
DIRSET 

CALCl 



CALL 

JP 

LD 

LD 

LD 

LD 

OR 

JR 

CP 

JR 

LD 

JR 

INC 

SRL 

LD 



RESTOR 

NZ.IOERR 

H,GATBUF<-8 

L,(IY+6) 

BC,0000 

A.C 

B 

Z, NODIR 

L 

NC, NODIR 

L.A 

DIRSET 

L 

L 

C,0 



;Step in 
;Go on error 

;P/u highest # cylinder 
;P/U •DIR=' parm 
;Check if entered 

Calc one if not entered 
Entered so check if 

within cylinders 
Is ok, use it 

Adj for zero offset 
Divide by 2 to find 
disk midpoint 



Perform expanding binary search to find 
A cylinder available for the directory 



LD A,(HL) 

INC A 

JR NZ,GENSYS 

INC C 

LD A,C 

RRCA 



;Is this cylinder 
;Available or locked out? 
;Bypass if available 
;Bump C 

;Test if odd or even 
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282A 7D 
282B 3009 
282D 81 
2o2E 6F 
282F FDBE06 
2832 20EF 
2834 1804 

2836 91 

2837 6F 

2838 20E9 
283A 217C2C 
283D C3B929 



2840 FD7509 

2843 7D 

2844 CD502A 
2847 ED43C62C 
284B 

284B 21A12C 

284 E 3E0A 

2850 EF 
2851 

2851 21C92C 

2854 3E0A 

2856 EF 

2857 21002E 
285A 7E 
285B F601 
285D 77 
285E FD7E09 
2861 32D32A 

2864 6F 

2865 36 FF 



2867 FD7E09 
286A 32022F 
286D 3A0026 

2870 6F 

2871 262F 
2873 3AE72A 



2876 11 
2^11 110000 
287A CD272A 
287D 21352D 
2880 C2BC29 
2883 21002F 
2886 CD 182 A 
2889 CC442A 



03850 

03860 

03870 

03880 

03890 

03900 

03910 

03920 CALC2 

03930 

03940 

03950 CALC3 

03960 

03970 ; 

03980 ; 

03990 ; 

04000 GENSYS 

04010 

04020 

04030 

04040 

00035 

00036 

00037 

00038 

00039 

04050 

00040 

00041 

00042 

00043 

00044 

04060 

04070 



04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 



LD 

JR 

ADD 

LD 

CP 

JR 

JR 

SUB 

LD 

JR 

LD 

JP 



A,L 

NC,CALC2 

A,C 

L,A 

(IY+6) 

NZ,CALC1 

CALC3 

C 

L,A 

NZ,CALC1 

HL,NOCYL$ 

FMTABT 



;Get current test pos 
;Jump If C was even 
;Add to previous pos 

;6o over the top? 

;Loop if not 

;Else abort 

;Try a lower cylinder # 

;At cylinder 0? 

;"no dir space avail ... 



Generate the system initialization 



LD 

LD 

CALL 

LD 

(3@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

@@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

LD 

LD 

OR 

LD 

LD 

LD 

LD 

LD 



(IY+9),L 

A.L 

CVDEC 

(DIRASC$),BC 

DIRCYL$ 

01H,1 

HL,DIRCYL$ 

A, 10 

40 

IPLSYS$ 

01H,1 

HL,IPLSYS$ 

A, 10 

40 

HL,GATBUF 

A.(HL) 

1 

(HL),A 

A,(IY+9) 

(DIRDIR+16H),A 

(HL),0FFH 



; Stuff the dir cyl 

;Cvrt reg A to 2 dec digs 
; Stuff into the message 
;"dir will be placed... 



;"initiali2ing... 



;P/u GAT byte for 1st 
; cylinder & show 1st 
; gran in use for BOOTs 
;Dir cyl # into DIR/SYS 

;Show entire directory 
; cylinder used 



Update BOOT for DIR & step rate 



LD 

LD 

LD 

LD 

LD 

LD 

IF 

OR 

ENDIF 

LD 

LD 

CALL 

LD 

JP 

LD 

CALL 

CALL 



A,(IY+9) 

(B00T+2),A 

A,(BOOTST$) 

L,A 

H,B00T<-8 

A,(STEPDFT) 

@M0D2 

80H 

(HL),A 

DE,0 

VERSEC 

HL,NOTFMT$ 

NZ,EXTERR 

HL.BOOT 

WRSEC 

Z,WRDIR1 



;Dir cyl into BOOT 
;P/u offset 

;P/u boot step rate 

;Create single byte opcod 

; & set into BOOT 

;Init for cyl 0, sect 

;Test if formatted 

;"Can't, not formatted 

;Error if not 

;Pt to Data disk BOOT 

; & write it 

; Verify after write 
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288C C2A529 


04340 


JP 


NZ,IOERR 


; & display ' , ' 


288F 110100 


04350 


LD 


DE,1 


;Pt to cyl 0, sector 1 


2892 21002F 


04360 


LD 


HL,BOOT 


;Pt to the sector 1 boot 


2895 CD 182 A 


04370 


CALL 


WRSEC 


; Write 0/1 


2898 CC442A 


04380 


CALL 


Z,WRDIR+3 


; Verify after write 


289B C2A529 


04390 
04400 ; 


JP 


NZ, lOERR 






04410 ; 


Complete GAT construction 




04420 ; 








289E FD7E06 


04430 


LD 


A,(IY+6) 


;P/u highest # cylinder 


28A1 D622 


04440 


SUB 


22 H 


; & adj offset from 34 


28A3 32CC2E 


04450 


LD 


(GATBUF+0CCH),A 


; Stuff GAT cyl excess 


28A6 FD7E04 


04460 


LD 


A,(IY+4) 


;P/u # of sides 


28A9 E6A0 


04470 


AND 


80H+20H 




28 AS 47 


04480 


LD 


B,A 


;Save tempy in B 


28AC FD7E03 


04490 


LD 


A,(IY+3) 


;P/u density 


28AF E640 


04500 


AND 


40H 


;Mask it. 


28B1 B0 


04510 


OR 


B 


; merge in sides 


28B2 47 


04520 


LD 


B,A 


; and save it 


28B3 FD7E08 


04530 


LD 


A,(IY+8) 


;P/u # of grans/cyl 


28B6 07 


04540 


RLCA 






28B7 07 


04550 


RLCA 




; to bits 0-2 


28B8 07 


04560 


RLCA 






28B9 E607 


04570 


AND 


7 


;Mask it 


28BB 325229 


04580 


LD 


(CYLGRN+1),A 




28BE B0 


04590 


OR 


B 


; Merge the two 


28BF F680 


04600 


OR 


80H 


;Show it's a data disk 


28C1 32CD2E 


04610 
04620 ; 


LD 


(GATBUF+0CDH),A 


; Stuff into GAT 


28C4 11F52E 


04630 


LD 


DE,GATBUF+255-10 ;6.2 Media Data Block 


28C7 21DB28 


04640 


LD 


HL,LSIID 


; Point to header 


28 CA 010400 


04650 


LD 


BC,04 


;Set length & 


28CD EDB0 


04660 


LDIR 




; move it 


28CF FDE5 


04670 


PUSH 


lY 


;Get DCT address 


28D1 El 


04680 


POP 


HL 


; into HL 


28 D2 23 


04690 


INC 


HL 


; Bypass the driver vector 


28 D3 23 


04700 


INC 


HL 




28 D4 23 


04710 


INC 


HL 




28 D5 0E07 


04720 


LD 


C,7 


; Bytes to move 


28 D7 EDB0 


04730 


LDIR 






28 D9 1804 


04740 


JR 


WRGATl 


;Skip around string 


28 DB 03 


04750 LSI ID 


DB 


03, 'LSI' 




4C 53 49 










04760 ; 










04770 ; 


Write 


copy of GAT into 


0/3 




04780 ; 










04790 WRGATl 








28U 21002E 


04800 


LD 


HL,GATBUF 


;Pt to GAT buffer 


28E2 1600 


04810 


LD 


D,0 


; Write it out to 


28E4 1E03 


04820 


LD 


E,3 


;Cyl 0, sector 3 


28E6 CD182A 


04830 


CALL 


WRSEC 


; Write 0/3 


28 E9 CC442A 


04840 


CALL 


Z,WRDIR1 


;Verify after write 


28EC C2A529 


04850 
04860 ; 


JP 


NZ.IOERR 


;Quit on error 




04870 ; 


Write 


the system information sector 




04880 ; 








28EF 210030 


04890 


LD 


HL,HITBUF 


;Zero out buffer 


28F2 3600 


04900 GSYSl 


LD 


(HL),0 




28F4 2C 


04910 


INC 


L 
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28F5 20FB 


04920 


JR 


NZ,GSYS1 




28F7 210030 


04930 


LD 


HL.HITBUF 


;Set first byte to OSVER 


28FA 3662 


04940 


LD 


(HL),RLS 


; for release number 


28FC 2E20 


04950 


LD 


L,20H 


; Point hi to AUTO buffer 


28FE 360D 


04960 


LD 


(HL),0DH 


;Put in terminator 


2900 110200 


04970 


LD 


DE,2 


;Pt to cyl 05 sector 2 


2903 6A 


04980 


LD 


L,D 


;H1 now points to HITBUF 


2904 CD182A 


04990 


CALL 


WRSEC 


;Write 0/2 


2907 CC442A 


05000 


CALL 


Z,WRDIR1 


;Verify after write 


290A C2A529 


05010 


JP 


NZ,IOERR 


;Quit on error 


290D 2E20 


05020 


LD 


L,20H 


;Zero this out for use 


290F 3600 


05030 
05040 ; 


LD 


(HL),0 


; when writing HIT 




05050 ; 


Write 


out the directory GAT 




05060 ; 








2911 21002E 


05070 


LD 


HL,GATBUF 


;Pt to GAT sector buffer 


2914 FD5609 


05080 


LD 


D,(IY+9) 


;P/u the dir cyl 


2917 5D 


05090 


LD 


E,L 


; Denote sector 


2918 CD412A 


05100 


CALL 


WRDIR 


; Write the GAT 


291B C2A529 


05110 
05120 ; 


JP 


NZ,IOERR 






05130 ; 


Construct the HIT 






05140 ; 








291E 210030 


05150 


LD 


HL^HITBUF 


; Point to the HIT buffer 


2921 36A2 


05160 


LD 


(HL)JA2H 


; Stuff BOOT/SYS hash code 


2923 23 


05170 


INC 


HL 




2924 36C4 


05180 


LD 


(HL),0C4H 


;Stuff DIR/SYS hash code 


2926 2B 


05190 


DEC 


HL 




2927 FD5609 


05200 


LD 


DJIY+9) 


;P/u dir cyl # 


292A 1E01 


05210 


LD 


E4 


;Pt to sector 1 


292C CD412A 


05220 


CALL 


WRDIR 


;Write the HIT 


292F C2A529 


05230 


JP 


NZ,IOERR 




2932 110030 


05240 


LD 


DE^HITBUF 


;Establish buffer for 


2935 219D2A 


05250 


LD 


HL,BOOTDIR 


; dir records 


2938 012000 


05260 


LD 


BC,32 


;Move BOOT/SYS dir record 


2938 EDB0 


05270 


LDIR 




; into 1st slot 


293D FD5609 


05280 


LD 


D,(IY+9) 


;P/u dir cyl 


2940 1E02 


05290 


LD 


E,2 


;This will be sector 2 


2942 210030 


05300 


LD 


HL,HITBUF 


;Pt to buffer start 


2945 CD412A 


05310 


CALL 


WRDIR 


;Write the sector 


2948 C2A529 


05320 


JP 


NZ,IOERR 




294B 3AE82A 


05330 


LD 


A,(SECCYL) 


;P/u # of records 


294E 32D12A 


05340 


LD 


(DIRDIR+14H),A 


; & stuff into DIR/SYS 


2951 3E00 


05350 CYLGRN 


LD 


A,0 


;P/u # grans/cyl 


2953 FDCB046E 05360 


BIT 


5,(IY+4) 


;Test 2-sided 


2957 2802 


05370 


JR 


Z,$+4 




2959 87 


05380 


ADD 


A, A 


;Double count on 2-sided 


295A 3C 


05390 


INC 


A 


;Plus 1 for offset adj 


295B 32D42A 


05400 


LD 


(DIRDIR+17H),A 


;Stuf in DIR/SYS 


295E FD7E09 


05410 


LD 


A,(IY+9) 


;P/u the dir cyl # & 


2961 32D32A 


05420 


LD 


(DIRDIR+16H),A 


; stuff into the DIR rec 


2964 21BD2A 


05430 


LD 


HL,DIRDIR 


;Pt to start of DIR data 


2967 110030 


05440 


LD 


DE,HITBUF 


;Pt to start of dir buf 


296A 012000 


05450 


LD 


BC,32 


;Move DIR/SYS into buf 


296D EDB0 


05460 


LDIR 






296F FD5609 


05470 


LD 


D,(IY+9) 


;P/u dir cyl # 


2972 1E03 


05480 


LD 


E,3 


;Write as sector 3 


2974 210030 


05490 


LD 


HL,HITBUF 


;Pt to start of buffer 


2977 CD412A 


05500 


CALL 


WRDIR 


; Write the sector 
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297A 2029 


05510 


JR 


NZ,IOERR 




297C 210030 


05520 


LD 


HL,HITBUF 


;Zero the 1st 32 bytes 


297F 0620 


05530 


LD 


B,32 


; of the buffer to clear 


2981 3600 


05540 GSYS2 


LD 


(HL),0 


; Where we stuffed the 


2983 23 


05550 


INC 


HL 


; BOOT & DIR dir records 


2984 10FB 


05560 


DJNZ 


GSYS2 




2986 FD5609 


05570 


LD 


D,(IY+9) 


;P/u dir cyl # 


2989 1E04 


05580 


LD 


E.4 


;Cont writing at sect 4 


298B 210030 


05590 GSYS3 


LD 


HL,HITBUF 


;Pt to start of buffer 


298E CD412A 


05600 


CALL 


WRDIR 


; Write the sector 


2991 2012 


05610 
05620 ; 


JR 


NZ.IOERR 






05630 ; 


Write 


the remaining 


directory 




05640 ; 








2993 IC 


05650 


INC 


E 


;Bump the sector pointer 


2994 3AE82A 


05660 


LD 


A,(SECCYL) 


;P/u highest # sector 


2997 BB 


05670 


CP 


E 


;Are we finished yet? 


2998 20F1 


05680 


JR 


NZ,GSYS3 


;Loop if not 


299A CDDF29 


05690 


CALL 


EXIT2 


;Get system disk 


299D 


05700 


@(3DSPLY FMTCAO$ 


; "formatting complete... 




00045 


IFEQ 


01H,1 




299D 210E2D 


00046 
00047 


LD 
ENDIF 


HL,FMTCAO$ 




29A0 3E0A 


00048 


LD 


A, 10 




29A2 EF 


00049 


RST 


40 




29A3 1823 


05710 
05720 ; 


JR 


EXIT 






05730 ; 


Exit 


Drocedures 






05740 ; 








29A5 F5 


05750 lOERR 


PUSH 


AF 


;Save errcod 


29A6 CDDF29 


05760 


CALL 


EXIT2 


; Interrupts on if needed 


29 A9 Fl 


05770 


POP 


AF 


;Rcvr errcod 


29AA FE3F 


05780 


CP 


63 


;Extended errrorl 


29AC 280E 


05790 


JR 


Z, EXTERR 


;Go if so 


29AE 6F 


05800 


LD 


L,A 


; Error code to HL 


29AF 2600 


05810 


LD 


H,0 




29 Bl F6C0 


05820 


OR 


0C0H 


;Mask to ABORT with brief 


29 B3 4F 


05830 


LD 


C,A 


; Error code to C 


29 B4 


05840 


@@ ERROR 


; for error display 


29 B4 3E1A 


00050 


LD 


A, 26 




29 B6 EF 


00051 


RST 


40 




29 B7 180C 


05850 
05860 ; 


JR 


ERREXIT 




29 B9 


05870 BREAK 


EQU 


$ 




29B9 21242D 


05880 FMTABT 


LD 


HL,FMTABT$ 


; "Command aborted 


29 BC 


05890 EXTERR 


(a@LOGOT 


;Some error to abort job 




00052 


IFEQ 


00H,1 






00053 


LD 


HL. 






00054 


ENDIF 






29 BC 3E0C 


00055 


LD 


A, 12 




29 E EF 


00056 


RST 


40 




29 BF CDDF29 


05900 


CALL 


EXIT2 


;Get system disk 


29C2 21FFFF 


05910 


LD 


HL,-1 


;Set abort code 


29C5 22C929 


05920 ERREXn 


■ LD 


(RETCOD), HL 




29C8 210000 


05930 EXIT 


LD 


HL,0 


;Init to no error 


29C9 


05940 RETCOD 


EQU 


$-2 




29CB E5 


05950 


PUSH 


HL 




29CC FDE5 


05960 


PUSH 


lY 


;Transfer the saved 


29CE Dl 


05970 


POP 


DE 


; system DCT back 
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29CF 21DD2A 


05980 


LD 


HL,SYSDCT 


; into the system 


29 D2 010A00 


05990 


LD 


BC,10 


; DCT slot 


29D5 EDB0 


06000 


LDIR 






29D7 El 


06010 


POP 


HL 




29 D8 310000 


06020 SPSAV 


LD 


SP,$-$ 


;P/u the stack pointer 


29 DB 


06030 


@@CKBRKC 


;Clear break bit 


29 DB 3E6A 


00057 


LD 


A, 106 




29 DD EF 


00058 


RST 


40 




29DE C9 


06040 
06050 ; 


RET 




; & exit to caller 


29 [F 3A2B2A 


06060 EXIT2 


LD 


A,(FMTDRV+1) 


;P/u drive # just fmtd 


29E2 3C 


06070 


INC 


A 


;If drive never entered. 


29E3 C8 


06080 


RET 


Z 


; just return 


29E4 3D 


06090 


DEC 


A 


;If 0, we need a system 


29E5 200D 


06100 


JR 


NZ,EXIT4 




29E7 21EF2C 


06110 


LD 


HL,PMTSYS$ 


;"load system disk.. . 


29 E A 


06120 


@@DSPLY 








00059 


IFEQ 


00H,1 






00060 


LD 


HL, 






00061 


ENDIF 






29 E A 3E0A 


00062 


LD 


A, 10 




29 EC EF 


00063 


RST 


40 




29ED 


06130 EXIT3 


@@KEY 




; Request a key 


29ED 3E01 


00064 


LD 


A.l 




29EF EF 


00065 


RST 


40 




29F0 FE0D 


06140 


CP 


CR 


;Must be <ENTER> 


29F2 20F9 


06150 


JR 


NZ,EXIT3 




29F4 1809 


06160 EXIT4 
06170 ; 


JR 


RESTOR 


;Restore disk to cyl 




06180 ; 


Disk I/O requests 






06190 ; 








29F6 C5 


06200 [RVNOP 


PUSH 


BC 




29F7 AF 


06210 


XOR 


A 




29F8 1830 


06220 


JR 


FMTDRV 




29FA C5 


06230 SELECT 


PUSH 


BC 




29FB 3E01 


06240 


LD 


AJ 




29FD 182B 


06250 


JR 


FMTDRV 




29FF C5 


06260 RESTOR 


PUSH 


BC 




2A00 3E04 


06270 


LD 


A,4 




2A02 1826 


06280 


JR 


FMTDRV 




2A04 C5 


06290 STEP IN 


PUSH 


BC 




2A05 3E05 


06300 


LD 


A, 5 




2A07 1821 


06310 


JR 


FMTDRV 




2A09 C5 


06320 RSELCT 


PUSH 


BC 




2A0A 3E07 


06330 


LD 


A,7 




2A0C 181C 


06340 


JR 


FMTDRV 




2A0E C5 


06350 WRCYL 


PUSH 


BC 




2A0F 3E0F 


06360 


LD 


A, 15 




2A11 1817 


06370 


JR 


FMTDRV 




2A13 C5 


06380 FMTHD 


PUSH 


BC 




2A14 3E0C 


06390 


LD 


A, 12 




2A16 1812 


06400 


JR 


FMTDRV 




2A18 C5 


06410 WRSEC 


PUSH 


BC 




2A19 3E0D 


06420 


LD 


IK,U 




2A1B 180D 


06430 


JR 


FMTDRV 




2A1D C5 


06440 WRSYS 


PUSH 


BC 




2A1E 3E0E 


06450 


LD 


A, 14 




2A20 1808 


06460 


JR 


FMTDRV 




2A22 C5 


06470 RDSEC 


PUSH 


BC 
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2A23 3E09 


06480 


LD 


A,9 




2A25 1803 


06490 


JR 


FMTDRV 




2A27 C5 


06500 VERSEC 


PUSH 


BC 




2A28 3E0A 


06510 


LD 


A, 10 




2A2A 0EFF 


06520 FMTDRV 


LD 


c,-i 


;P/u drive # 


2A2C C628 


06530 


ADD 


A, 40 


;Adjust SVC # 


2A2E EF 


06540 


RST 


40 




2A2F CI 


06550 


POP 


BC 




2A30 C9 


06560 
06570 ; 


RET 








06580 ; 


Perform 


a verification 


to ensure system sector 




06590 ; 








2A31 CD272A 


06600 VERSYS 


CALL 


VERSEC 


;Sector verify 


2A34 2806 


06610 


JR 


Z, VERSl 


; Bypass if not system 


2A36 D606 


06620 


SUB 


6 


;Test read system retcod 


2A38 C8 


06630 


RET 


Z 


;Go if that's what it was 


2A39 C606 


06640 


ADD 


A, 6 


;Restore orig retcod 


2A3B C9 


06650 


RET 






2A3C F601 


06660 VERSl 


OR 


1 


;S/b system, found data 


2A3E 3E00 


06670 


LD 


A,0 




2m C9 


06680 
06690 ; 


RET 






2A41 CD1D2A 


06700 WRDIR 


CALL 


WRSYS 


;Write the DIR sector 


2A44 C4312A 


06710 WRDIRl 


CALL 


NZ, VERSYS 


; Verify after write 


2A47 C0 


06720 


RET 


NZ 




2A48 D5 


06730 


PUSH 


DE 




2A49 0E2E 


06740 


LD 


c,'.' 


;Display a period 


2A4B 


06750 


@(3DSP 




; for es/ery sector written 


2A4B 3E02 


00066 


LD 


A,2 




2A4D EF 


00067 


RST 


40 




2A4E Dl 


06760 


POP 


DE 




2A4F C9 


06770 
06780 ; 


RET 








06790 ; 


Routine 


to convert reg 


A to 2 decimal digits 




06800 ; 








2A50 0E30 


06810 CVDEC 


LD 


C,30H 


;Init msd to 


2A52 D60A 


06820 CVDl 


SUB 


10 


;Sub 10 until underflow 


2A54 3803 


06830 


JR 


C,CVD2 




2A56 0C 


06840 


INC 


C 


;Inc the count 


2A57 18F9 


06850 


JR 


CVDl 




2A59 C63A 


06860 CVD2 


ADD 


A,3AH 


;Add back 10 + '0' 


2A5B 47 


06870 


LD 


B,A 


;Lsd to B 


2A5C C9 


06880 
06890 ; 


RET 








06900 ; 


Routines to convert in 


put strings to UC 




06910 ; 


HL => Prompt string 






06920 ; 








2A5D 


06930 GET3 


mdSPU 




; Display the prompt 




00068 


IFEQ 


00H,1 






00069 


LD 


HL. 






00070 


ENDIF 






2A5D 3E0A 


00071 


LD 


A, 10 




2A5F EF 


00072 


RST 


40 




2A60 010003 


06940 


LD 


BC,3<8 


;Init 3 keys max 


2A63 1803 


06950 


JR 


$+5 




2A65 010008 


06960 GET8 


LD 


BC,8<8 


;8-chars max 


2A68 210030 


06970 


LD 


HL,HITBUF 


; Buffer area 


2A6B 


06980 GET8A 


@@KEYIN 




; Enter them 


2A6B 3E09 


00073 


LD 


A,9 
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2A6D EF 
2A6E DAB929 
2A71 78 
2A72 B7 
2A73 C8 



2A74 F5 
2A75 C5 
2A76 E5 
2A77 7E 
2A78 FE61 
2A7A 3806 
2A7C FE7B 
2A7E 3002 
2A80 CBAE 
2A82 23 
2A83 10F2 
2A85 El 
2A86 CI 
2A87 Fl 
2A88 C9 



00074 RST 40 

06990 JP CFMTABT 

07000 LD A,B 

07010 OR A 

07020 RET Z 

07030 ; 

07040 ; 

07050 ; 

07060 PUSH AF 

07070 PUSH BC 

07080 PUSH HL 

07090 GETUC LD A,(HL) 

07100 CP 'a' 

07110 JR CGETUCl 

07120 CP 'z'+l 

07130 JR NCGETUCl 

07140 RES 5,(HL) 

07150 GETUCl INC HL 

07160 DJNZ GETUC 

07170 POP HL 

07180 POP BC 

07190 POP AF 

07200 RET 

07210 ; 

07220 ; Routine to display the cylinder number 

07230 ; 



;Quit on Break 

;Get length of response 

;Back if Enter only 

Routine to convert n-character string to UC 

;Save the registers 



;P/u a char 

;Skip if below 'a' 

; or above 'z' 

; else convert to UC 
;Bump the buffer ptr 
;Loop thru all chars 



2A89 C5 07240 DSPCYL PUSH BC 

2A8A 0E08 07250 LD C,8 

2A8C 07260 (a@DSP 

2A8C 3E02 00075 LD A, 2 

2A8E EF 00076 RST 40 

2A8F 0E08 07270 LD C,8 

2A91 07280 @@DSP 

2A91 3E02 00077 LD A, 2 

2A93 EF 00078 RST 40 

2A94 CI 07290 POP BC 

2A95 07300 @@DSP 

2A95 3E02 00079 LD A, 2 

2A97 EF 00080 RST 40 

2A98 48 07310 LD C,B 

2A99 07320 (a@DSP 

2A99 3E02 00081 LD A, 2 

2A9B EF 00082 RST 40 

2A9C C9 07330 RET 

07340 ; 

07350 ; 

07360 ; 

2A9D 5E 07370 BOOTDIR DB 

00 00 00 00 42 4F 4F 54 

20 20 20 20 53 59 53 F6 

37 

2AAF F5 07380 DB 

9C 05 00 00 00 FF FF FF 

FF FF FF FF FF 

2ABD 5D 07390 DIRDIR DB 

00 00 00 00 44 49 52 20 

20 20 20 20 53 59 53 F6 

37 

2ACF 96 07400 DB 



;Save ASCII cylinder # 

;Back up twice & 

; output new position 



;Recover cyl # 
;Send MSD 



;Send LSD 



Formatting data and tables 
5EH, 0,0, 0,0, 'BOOT 



SYS',0F6H,37H 



0F5H, 9CH, 5, 0,0,0,0FFH,0FFH, -1,-1, -1,-1, -1,-1 
5DH,0,0,0,0,'DIR SYS',0F6H,37H 

96H,42H,10,0,11H,1,0FFH,0FFH,0,0,0,0,0,0 
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42 0A 00 11 01 FF FF 00 
00 00 00 00 00 
000A 07410 SYSDCT DS 10 

2AE7 00 07420 STEPDFT OB ;Boot step rate default 

0001 07430 SECCYL DS 1 ;# of sectors per cyl 

0001 07440 SECTRK DS 1 ;# of sectors per trk 

07450 ; 

07460 ; Single density 5" format table 

07470 ; 
2AEA 0A 07480 S5TBL DB 10,7 

07 
2AEC 00 07490 DB 0,5,1,6,2,7,3,8,4,9 

05 01 06 02 07 03 08 04 
09 

2AF6 F6 07500 DB -10, -10, -10, -10, -10, -10, -10, -10, 14, 0FFH 

F6 F6 F6 F6 F6 F6 F6 0E 

FF 
2B00 Fl 07510 DB 0F1H,6,0,1,0FEH 

06 00 01 FE 

2B05 F3 07520 DB 0F3H,3,0,1,1,1,0F7H,1,0FFH,11,0FFH 

03 00 01 01 01 F7 01 FF 

0B FF 
2B10 06 07530 DB 6,0,1,0FBH,0,0E5H,1,0F7H,1,0FFH,13,0FFH 

00 01 FB 00 E5 01 F7 01 
FF 0D FF 

2B1C F2 07540 DB 0F2H,47H,0FFH,0F4H 

47 FF F4 
2B20 00 07550 DB 0,1,2,3,4,5,6,7,8,9 

01 02 03 04 05 06 07 08 
09 

07560 ; 

07570 ; Double density 5" format table 
07580 ; 
2B2A 12 07590 D5TBL DB 18,10 

0A 
2B2C 00 07600 DB 0,9,1,10,2,11,3,12,4 

09 01 0A 02 0B 03 0C 04 
2B35 0D 07610 DB 13,5,14,6,15,7,16,8,17 

05 0E 06 0F 07 10 08 11 
2B3E EE 07620 DC 11,-18 

EE EE EE EE EE EE EE EE 

EE EE 
2B49 14 07630 DB 20,4EH 

4E 
2B4B Fl 07640 DB 0F1H,12,0,3,0F5H,1,0FEH 

0C 00 03 F5 01 FE 
2B52 F3 07650 DB 0F3H,3,0,1,1,1,0F7H,22,4EH,12,0,3,0F5H 

03 00 01 01 01 F7 16 4E 

0C 00 03 F5 
2B5F 01 07660 DB 1,0FBH,0F5H,128,6DH,0B6H 

FB F5 80 6D B6 
2B65 01 07670 DB 1.0F7H,1.0FFH,17,04EH 

F7 01 FF 11 4E 
2B6B F2 07680 DB 0F2H,182,4EH,0F4H 

B6 4E F4 
2B6F 00 07690 DB 0,1,2,3,4,5,6,7,8,9 

01 02 03 04 05 06 07 08 

09 
2B79 0A Wim DB 10,11,12,13,14,15,16,17 
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0B 0C 0D 0E 0F 10 11 
07710 
07720 
07730 
2B81 10 07740 S8TBL DB 16,2 

02 
2B83 0A 07750 DB 10,5,0,11,6,1,12,7,2,13,8,3,14,9,4,15 

05 00 0B 06 01 0C 07 02 
0D 08 03 0E 09 04 0F 

2B93 F0 07760 DB -16,-16,-16,28H,0FFH 

F0 F0 28 FF 
2B98 Fl 07770 DB 0F1H,6,0,1,0FEH 

06 00 01 FE 

2B9D F3 07780 DB 0F3H,3,0,1,1,1,0F7H,11,0FFH,6.0,1,0FBH 

03 00 01 01 01 F7 0B FF 

06 00 01 FB 
2BAA 00 07790 DB 0,0E5H,1,0F7H,1,0FFH,20,0FFH 

E5 01 F7 01 FF 14 FF 
2BB2 F2 07800 DB 0F2H,208,0FFH,0F4H 

D0 FF F4 
2BB6 0A 07810 DB 10,0,6,12,2,8,14,4,5,11,1,7,13,3,9,15 

00 06 0C 02 08 0E 04 05 

0B 01 07 0D 03 09 0F 
07820 ; 

07830 ; Double density 8" format table 

07840 ; 
2BC6 IE 07850 D8TBL DB 30,12 

0C 
2BC8 00 07860 DB 0,10,20,1,11,21,2,12,22,3,13,23,4,14,24 

0A 14 01 0B 15 02 0C 16 

03 0D 17 04 0E 18 
2BD7 05 07870 DB 5,15,25,6,16,26,7,17,27,8,18,28,9,19,29 

0F 19 06 10 lA 07 11 IB 

08 12 IC 09 13 ID 
2BE6 E2 07880 DC 13,-30 

E2 E2 E2 E2 E2 E2 E2 E2 

E2 E2 E2 E2 
2BF3 14 07890 DB 20,4EH 

4E 
2BF5 Fl 07900 DB 0F1H,0CH,0,3,0F5H,1,0FEH 

0C 00 03 F5 01 FE 

2BFC F3 07910 DB 0F3H,3,0,1,1,1,0F7H,22,4EH,12,0,3,0F5H 

03 00 01 01 01 F7 16 4E 

0C 00 03 F5 
2C09 01 07920 DB 1,0FBH,0F5H,128,6DH,0B6H 

FB F5 80 6D B6 
2C0F 01 07930 DB 1,0F7H,1,0FFH,17,4EH 

F7 01 FF 11 4E 
2C15 F2 07940 DB 0F2H,0,4EH,61,4EH,0F4H 

00 4E 3D 4E F4 

2C1B 00 07950 DB 0,20,11,2,22,13,4,24,15,6,26,17,8,28,19 
14 0B 02 16 0D 04 18 0F 
06 lA 11 08 IC 13 

2C2A 0A 07960 DB 10,1,21,12,3,23,14,5,25,16,7,27,18,9,29 

01 15 0C 03 17 0E 05 19 
10 07 IB 12 09 ID 

07970 ; 
2C39 ID 07980 FMTCYL$ DB 29, 'Formatting cylinder ',3 
46 6F 72 6D 61 74 74 69 
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2C51 

2C69 
2C6E 

2C7C 



2CA1 



2CC6 
2CC9 



2CEF 

2D0E 

2D24 
2D35 



6E 67 
64 65 
ID 

56 65 
67 20 

64 65 
2A 

20 20 
46 

6F 72 
67 2E 
4E 
6F 20 

65 72 
6C 61 
72 20 
6F 72 
44 

69 72 
20 77 
20 70 
6F 6E 

64 65 
30 

30 0D 
0A 

49 6E 
7A 69 
45 43 
6E 66 
6F 6E 
0A 

4C 6F 
54 45 

65 74 
4E 54 
0A 

0A 46 
69 6E 
6C 65 
0A 

43 6F 
61 62 
0A 

43 61 
69 73 
6E 6F 
61 74 



20 63 79 
72 20 20 
07990 
72 69 66 
20 63 79 
72 20 20 



20 03 

08010 
6D 61 74 
2E 2E 0D 



63 79 6C 
73 20 61 
62 6C 65 

64 69 72 
79 0D 

08030 

65 63 74 
69 6C 6C 
6C 61 63 
20 63 79 
72 20 

08040 



69 74 69 
6E 67 20 
54 4F 52 
6F 72 6D 
3A 20 03 



61 64 20 
4D 20 64 
74 65 20 
45 52 3E 
08070 
6F 72 6D 
67 20 63 
74 65 0D 



2Em 
00 CB 
2ECB 62 



6D 6D 61 

6F 72 74 

08090 

6E 27 74 

68 65 74 

74 20 66 

74 65 64 

08100 

08110 

08120 

08130 

08140 

08150 



6C 69 6E 
20 03 

VERCYL$ DB 
79 69 6E 
6C 69 6E 
20 03 
STARS DB 

FMTG$ DB 
74 69 6E 

NOCYL$ DB 
69 6E 64 
76 61 69 
20 66 6F 
65 63 74 

DIRCYLS DB 
6F 72 79 
20 62 65 
65 64 20 
6C 69 6E 

DIRASCS DB 

IPLSYSS DB 
61 6C 69 
44 49 52 
59 20 69 
61 74 69 

PMTSYS$ DB 
53 59 53 
59 73 6B 
20 3C 45 
0D 

FMTCAO$ DB 
61 74 74 
6F 6D 70 

FMTABT$ DB 
6E 64 20 
65 64 0D 
NOTFMT$ DB 
2C 20 44 
74 65 20 
6F 72 6D 
0D 



29, 'Verifying cylinder ',3 

'* ' 3 
'Formatting.. . ' ,CR 

'No cylinders available for directory' ^CR 



'Directory will be placed on cylinder ' 



'00',CR 

LF,' Initializing DIRECTORY information: ',3 



LF.'Load SYSTEM diskette <ENTER>',CR 



LFsLFs 'Formatting complete', CR 



LF J 'Command aborted ',CR 



LFs'Can"t9 Diskette not formatted' ,CR 



Patch area 



ORG 
GATBUF DS 
DB 



$<-8+l<+8 

203 ;GAT sector buffer 

RLS,0,0,0,0 ;Ver, cyl exc, type, pswd 



2ED0 20 08160 DB 
20 20 20 20 20 20 20 4D 
4D 2F 44 44 2F 59 59 

2EE0 00 08170 DC 



MM/DD/YY' 



32,0 
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00 m m 

00 00 00 

00 00 00 

00 00 00 



2Fi80 
2F00 
4300 
4300 

4300 00 

4301 FE00 



4303 F3 

4304 00 

00 00 00 
00 00 00 
4310 118UB 
4313 212943 
4316 011700 
4319 EDB0 
431B 11153E 
431E 212943 
4321 011700 
4324 EDB0 
4326 C32643 
4329 43 

61 6E 6E 
6F 74 2C 
20 44 49 



0017 
4340 00 



00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 



00 00 
00 00 

00 00 
00 00 
08180 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 
00 00 

08320 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
6F 74 
20 44 
53 4B 
08420 
08430 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 



00 00 00 
00 00 00 
00 00 00 
00 00 
BOOT 
CORES 



00 00 00 



EQU 

DEFL 

ORG 

LORG 

NOP 

CP 

IF 

DB 

ENDIF 

IF 

DI 

ENDIF 

DC 



LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LDIR 



STOP JP 
DATADSK$ 
20 62 6F 
41 54 41 
21 
STRLEN 



EQU 
DC 



00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 
00 00 



$ 
$ 

4300 H 
CORES 



(aM0D2 
83 H 

(aM0D4 



12,0 



; Execute at ROM BOOT 
; but load here 

;P/u the DIR track 



DE,80*lH-CRT4+29 ;Mod 4 video locn 

HL,DATADSK$ ;Xfer error to vidmem 

BC, STRLEN 

DE,64*8+CRT3+21 ;Mod 3 video locn 
HL,DATADSK$ ;Xfer error to vidmem 

BC, STRLEN 



STOP 
DB 



Cannot boot, DATA DISK! 



$-DATADSK$ 
-$&0FFH,0 
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4400 


08440 SAFESP 


EQU 


$ 


3000 


08450 


ORG 


CORE $+256 


3000 


08460 


LORG 


CORE $+256 


0100 


08470 HITBUF 
08480 ; 


DS 


256 


3100 


08490 


SUBTTL 


'<Format 
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3100 


08510 *GET 


F0RMAT2 


:3 






03950 ; FORMAT 2/ ASM - 


Format Initial iz 


at ion Code 




03960 ; 










03970 ; 


FORMAT 


routine entry point 




03980 ; 










03990 FORMAT 








3100 


04000 


(3@CKBRKC 


;Check for break 


3100 3E6A 


00083 


LD 


A, 106 




3102 EF 


00084 


RST 


40 




3103 2804 


04010 


JR 


Z, FORMATA 


;Continue if no break 


3105 21FFFF 


04020 


LD 


HL,-1 


; else abort 


3108 C9 


04030 
04040 ; 


RET 






3109 ED73D92g 


1 04050 FORMATA LD 


(SPSAV+1),SP 


;Save the stack pointer 


310D E5 


04060 


PUSH 


HL 


;Save cmdline ptr 


310E 


04070 


(3@DSPLy 


HELLO$ 


;Hello message 




00085 


IFEQ 


01H,1 




310E 21C236 


00086 
00087 


LD 
ENDIF 


HL,HELLO$ 




3111 3E0A 


00088 


LD 


A, 10 




3113 EF 


00089 


RST 


40 




3114 CD5436 


04080 
04090 ; 


CALL 


GETSYS2 


;Load SYS2 overlay 




04100 ; 


Read co 


nfig sector & ex 


tract OCT # cyls 




04110 ; 










04120 


IF 


@M0D4 




3117 110200 


04130 


LD 


DE,2 


;Track 0, sector 2 


311A 4A 


04140 
04150 
04160 ; 


LD 
ENDIF 


CD 


; Drive 




04170 


IF 


@M0D2 






04180 


LD 


CJ 


; Drive 


311B 


04190 


@@GTDCT 




;Fetch OCT 




00090 


LD 


A, 81 






00091 


RST 


40 






04200 


LD 


A,(IY+3) 


;Get dct data 




04210 


AND 


28 H 


;Bit 5/3 




04220 


CP 


20 H 


;8" floppy? 




04230 


JR 


NZ, SETSYSl 


;Go if not 




04240 


LD 


A,(IY+4) 


;Get data 




04250 


AND 


50H 


;Bit 6/4 




04260 


CP 


40 H 


;DD not alien? 




04270 


JR 


NZ, SETSYSl 


;Go if not 




04280 


LD 


HL,HITBUF 


;Init buffer 




04290 


LD 


D,(IY+9) 


;Get dir cyl 




04300 


LD 


E.0 


;Init GAT table 


311B 


04310 


@@RDSEC 




;Read GAT table 




00092 


LD 


A, 49 






00093 


RST 


40 






04320 


CP 


6 


; Directory read? 




04330 


JP 


NZ,IOERR 


;Go on disk error 




04340 


LD 


A, (HITBUF+0CDH) 


;Get data byte 




04350 


BIT 


7, A 


; System disk? 




04360 SETSYSl 


LD 


DE,0<8+2 


;Init cyl 




04370 


JR 


NZ,$+3 


;Go if not system 




04380 


INC 


D 


;Else on cyl 1 




04390 


LD 


C,0 


; Drive 




04400 


ENDIF 








04410 ; 








311B 210030 


04420 


LD 


HL,HITBUF 


;Set disk buffer 
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311E 


04430 


@(3RDSEC 


;Read sysinfo sector 


311E 3E31 


00094 


LD 


A, 49 




3120 EF 


00095 


RST 


40 




3121 C2A529 


04440 


JP 


NZ.IOERR 


;Quit on read error 


3124 2E76 


04450 
04460 ; 


LD 


L,70H+6 


;Pt to default DCTs 




04470 ; 


Establ 


ish the default 


BOOT step rate 




04480 ; 








3126 E5 


04490 


PUSH 


HL 


;Pt lY to the 


3127 FDEl 


04500 


POP 


lY 


; start of the DCTs 


3129 FD7EFD 


04510 


LD 


A,(IY+3-6) 


;P/u DCT$ default step 


312C E603 


04520 


AND 


3 


; & strip off 


312E 329731 


04530 
04540 ; 


LD 


(STEPARM+1),A 


;Keep for Step parm 




04550 ; 


Keep cyl count on all 


8 drives 




04560 ; 








3131 0608 


04570 


LD 


B,8 




3133 DD212136 


04580 


LD 


IX.DCTCYL 


;Pt to where to stuff 


3137 110A00 


04590 


LD 


DE,10 


; 10-byte increments 


313A 7E 


04600 DCTLPl 


LD 


A,(HL) 


;P/u default # CYL 


313B DD7700 


04610 


LD 


(IX).A 


;Save in table 


313E DD23 


04620 


INC 


IX 




3140 19 


04630 


ADD 


HL,DE 




3141 10F7 


04640 
04650 ; 


DJNZ 


DCTLPl 


;Loop for 8 DCTs 


3143 El 


04660 


POP 


HL 


;Rcvr ptr to cmdline 


3144 7E 


04670 FMTl 


LD 


A,(HL) 


; Ignore spaces 


3145 23 


04680 


INC 


HL 




3146 FE20 


04690 


CP 


1 1 




3148 28FA 


04700 


JR 


Z,FMT1 




314A FE3A 


04710 


CP 


1 . 1 


;Colon drive indicator? 


314C 281F 


04720 
04730 ; 


JR 


Z,FMT2 


;Go on drive entry 




04740 ; 


Drive 


not entered, prompt for it 




04750 ; 








314E 2B 


04760 


DEC 


HL 


; Backspace command line 


314F 2B 


04770 


DEC 


HL 


; & adjust for next INC 


3150 E5 


04780 


PUSH 


HL 


;Save pointer 


3151 


04790 WHDRV 


@@DSPLY WHDRV$ 


;"which drive.. . 




00096 


IFEQ 


01H,1 




3151 218937 


00097 
00098 


LD 
ENDIF 


HL,WHDRV$ 




3154 3E0A 


00099 


LD 


A, 10 




3156 EF 


00100 


RST 


40 




3157 210030 


04800 


LD 


HL,HITBUF 


; Input buffer for now 


315A 010001 


04810 


LD 


BC,1<8 


;Max 1 char 


315D 


04820 


(3@KEYIN 


;Get a 1-char line 


315D 3E09 


00101 


LD 


A,9 




315F EF 


00102 


RST 


40 




3160 DAB929 


04830 


JP 


CFMTABT 


;Quit on Break 


3163 7E 


04840 


LD 


A.(HL) 


;P/u the entry 


3164 D630 


04850 


SUB 


■0' 


;Cvrt to binary 


3166 FE08 


04860 


CP 


8 


;Error if > 7 


3168 30E7 


04870 


JR 


NC, WHDRV 




316A El 


04880 


POP 


HL 


;Rcvr command pointer 


31 6 B 1808 


04890 
04900 ; 


JR 


FMT2A 






04910 ; 


Drive 


entered 






04920 ; 
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316D 7E 


04930 FMT2 


LD 


A,(HL) 


;P/u drive # 


316E D630 


04940 




SUB 


'0' 


;Cvrt to ASCII 


3170 FEI38 


04950 




CP 


8 


;Make sure not > 7 


3172 D24F36 


04960 




JP 


NCPRMERR 




3175 322B2A 


04970 FMT2A 


LD 


(FMTDRV+1),A 


;Stuff drive 


3178 23 


04980 




INC 


HL 


;Bump cmdline ptr 


3179 116036 


04990 




LD 


DE,PRMTBL$ 


; Parse any parameters 


317C 


05000 




R^PARAM 






317C 3E11 


00103 




LD 


A, 17 




317E EF 


00104 




RST 


40 




317F C24F36 


05010 
05020 




JP 


NZ,PRMERR 


;Jump on parm error 




05030 




Test if 


any other parm ' 


was entered 




05040 










3182 iimm 


05050 


SDPARM 


LD 


DE,0 


jSingle density parm 


3185 7A 


05060 




LD 


A,D 




3186 B3 


05070 




OR 


E 


;Merge all theses parms 


3187 110000 


05080 


DDPARM 


LD 


DE,0 


;Double density parm 


318A B2 


05090 




OR 


D 




318B B3 


05100 




OR 


E 




318C 110000 


05110 


SIDES 


LD 


DEJ 


;Sides parm 


318F B2 


05120 




OR 


D 




3190 B3 


05130 




OR 


E 




3191 110000 


05140 


CPARM 


LD 


DEJ 


;Cylinder parm 


3194 B2 


05150 




OR 


D 




3195 B3 


05160 




OR 


E 




3196 1100FF 


05170 


STEP ARM 


LD 


DE,0FF00H 


;Init to show if entry 


3199 14 


05180 




INC 


D 


;Did user enter it? 


319A B2 


05190 




OR 


D 


;0=no user entry 


319B 32AC32 


05200 
05210 




LD 


(PRMMRG+1),A 


;Set to non-zero if any 




05220 




If Q-parm, then set NAME & MPW if not entered 




05230 










319E ED5BB132 


05240 




LD 


DE,(QPARM+1) 


;P/u Query parm 


31A2 2AEB31 


05250 




LD 


HL,(NPARM+1) 


;P/u Name parm 


31A5 7C 


05260 




LD 


A,H 




31A6 B5 


05270 




OR 


L 




31A7 2004 


05280 




JR 


NZ,$+6 


;Go if user entered name 


31A9 ED53EB31 


05290 




LD 


{NPARM+1),DE 


; else use Q-parm value 


31AD 2A3B32 


05300 




LD 


HL,(MPARM+1) 


;P/u Password parm 


31B0 7C 


05310 




LD 


A,H 




31 Bl B5 


05320 




OR 


L 




31B2 2004 


05330 




JR 


NZ,$+6 


;Go if user entered pass' 


31B4 ED533B32 


05340 
05350 


s 


LD 


(MPARM+1),DE 


;Set to Q-parm entry 


31 B8 3A2B2A 


05360 




LD 


A,(FMTDRV+1) 


;P/u drive 


31 BB 4F 


05370 




LD 


C,A 


;Set in drive register 


31BC 212136 


05380 




LD 


HL,DCTCYL 


;Find default # cyls 


31 BF 85 


05390 




ADD 


A,L 


; Index the DCTCYL table 


31Cj9 6F 


05400 




LD 


L,A 


; according to drive # 


31C1 8C 


05410 




ADC 


A,H 




31C2 95 


05420 




SUB 


L 




31C3 67 


05430 




LD 


H,A 




31C4 7E 


05440 




LD 


A,(HL) 


;P/u cylinder count 


31C5 3C 


05450 




INC 


A 


;Offset from 1 


31C6 323D33 


05460 




LD 


(PCYL2+1),A 


;Stuff default for 5" 


31C9 


05470 




(a@GTDCT 




;Find the DCT pointer 


31C9 3E51 


00105 




LD 


A, 81 




31CB EF 


00106 




RST 


40 





Page 181 



The Source UTILITY Files 

Format I nit Code 



FORMAT - LS-DOS 6.2 



Page 00023 



31CC FDE5 


05480 


PUSH 


lY 




31CE El 


05490 


POP 


HL 


;Xfer DCT to HL 


31CF 11DD2A 


05500 


LD 


DE,SYSDCT 


;Save the system's DCT 


31 D2 010A00 


05510 


LD 


BC,10 


; for the drive since 


31 D5 EDB0 


05520 


LDIR 




; we are altering it 


31 D7 3A1C26 


05530 


LD 


A,(SYSPRM+1) 


;Check if "SYSTEM" parm 


31 DA 3C 


05540 


INC 


A 


; entered 


31 DB 2007 


05550 


OR 


NZ,FMT2B 


;Go if not 


31 DD FDCB035E 05560 


BIT 


3,(IY+3) 


;Checl< if hard drive 


31 El CA4936 


05570 


JP 


Z, NOT HARD 


; Can't "SYSTEM" floppy 


31 E4 CDF 629 


05580 FMT2B 


CALL 


DRVNOP 


;Test if drive enabled 


31E7 C2A529 


05590 


JP 


NZ,IOERR 




31 EA 210000 


05600 NPARM 


LD 


HL,0 


;NAME parm entered? 


31 ED 7C 


05610 


LD 


A,H 




31EE B5 


05620 


OR 


L 




31 EF 3C 


05630 


INC 


A 


;Was it just NAME? 


31F0 2826 


05640 


JR 


Z, DSKNAM 


; Prompt if so 


31F2 3D 


05650 


DEC 


A 


;If entered, use it 


31 F3 2003 


05660 


JR 


NZ.$+5 




31F5 21063A 


05670 DFTNAM 


LD 


HL,PAKNAM$ 




31F8 11D02E 


05680 


LD 


DE,GATBUF+0D0H 


;YeSs move name to field 


31 FB 0608 


05690 


LD 


B,8 


;8-chars max 


31FD 7E 


05700 MOV NAM 


LD 


A,(HL) 


;P/u a char 


31 FE FE22 


05710 


CP 


1 II 1 


^Closing " 


3200 2829 


05720 


JR 


Z, CKNAME 


;Exit if end of parm 


3202 FE20 


05730 


CP 


20 H 


;Permit all but controls 


3204 DA2B32 


05740 


JP 


C, CKNAME 




3207 FE61 


05750 


CP 


'a' 


;If char is lower case, 


3209 3806 


05760 


JR 


C, MOVNAMl 




320B FE7B 


05770 


CP 


'z'+l 




320 D 3002 


05780 


JR 


NC, MOVNAMl 




320F EE20 


05790 


XOR 


20H 


; make it UC 


3211 12 


05800 MOVNAMl 


LD 


(DE).A 


,Put char in buffer 


3212 23 


05810 


INC 


HL 


;Bump both ptrs 


3213 13 


05820 


INC 


DE 




3214 10E7 


05830 


DJNZ 


MOV NAM 


Loop til complete 


3216 1813 


05840 
05850 ; 


JR 


CKNAME 


;Check if valid name 




05860 ; 


Prompt 


user for name parameter 




05870 ; 








3218 


05880 DSKNAM 


@0DSPLY 


DSKNAM$ 


"diskette name? 




00107 


IFEQ 


01H,1 




3218 21A637 


00108 
00109 


LD 
ENDIF 


HL,DSKNAM$ 




321B 3E0A 


00110 


LD 


A, 10 




321D EF 


00111 


RST 


40 




321E CD652A 


05890 


CALL 


GET8 


Get 8 chars, make UC 


3221 28D2 


05900 


JR 


Z, DFTNAM 


Use default if no entry 


3223 48 


05910 


LD 


C,B 


Only move to name field 


3224 0600 


05920 


LD 


B,0 ; 


how many were entered 


3226 11D02E 


05930 


LD 


DE,GATBUF+0D0H 




3229 EDB0 


05940 


LDIR 






322 B 11D02E 


05950 CKNAME 


LD 


DE,GATBUF+0D0H , 


Now check if illegal 


322E CDBC35 


05960 


CALL 


CKMPW0 ; 


chars in name 


3231 C24136 


05970 


JP 


NZ,BADNAM ; 


& quit if so 


3234 21D82E 


05980 GETDAT 


LD 


HL,GATBUF+0D8H ; 


Get today's date & stuff 


3237 


05990 


(30 DATE 






3237 3E12 


00112 


LD 


A, 18 




3239 EF 


00113 


RST 


40 
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06000 


» 










06010 


» 


Master 


Password handli 


ng 




06020 


» 








323A 210000 


06030 MPARM 


LD 


HL,0 


;Did user enter the MPW? 


323D 7C 


06040 




LD 


A,H 




323E B5 


06050 




OR 


L 




323F 3C 


06060 




INC 


A 


;If only MPW, then prompt 


3240 2821 


06070 




JR 


Z.MPW 


;Go prompt if not 


3242 3D 


06080 




DEC 


A 




3243 2003 


06090 




JR 


NZ,$+5 


;If entered, use it 


3245 210E3A 


06100 


DFTMPW 


LD 


HL,PAKMPW$ 


; else use ours 


3248 115736 


06110 




LD 


DE,MPWBUF 


; Shi ft to pswd field 


324B 0608 


06120 




LD 


B,8 




324D 7E 


06130 MOVMPW 


LD 


A.(HL) 




324E FE30 


06140 




CP 


30 H 


;No spaces permitted 


3250 3819 


06150 




JR 


C, PRSMPW 


;End also on closing " 


3252 FE61 


06160 




CP 


'a' 


;Need cvrt to UC? 


3254 3806 


06170 




JR 


C, MOV MPW 1 




3256 FE7B 


06180 




CP 


'z'+l 




3258 3002 


06190 




JR 


NCMOVMPWl 




325A EE20 


06200 




XOR 


20H 


;Cvrt to UC 


325C 12 


06210 


MOVMPWl 


LD 


(DE),A 


; Store the char and 


325D 13 


06220 




INC 


DE 


; bump the buffer ptrs 


325E 23 


06230 




INC 


HL 




325F 10EC 


06240 




DJNZ 


MOVMPW 




3261 1808 


06250 
06260 




JR 


PRSMPW 


;Check if valid password 




06270 




Prompt 


for master password 




06280 










3263 21B737 


06290 MPW 


LD 


HL,MPW$ 


; "master... 


3266 CD9535 


06300 




CALL 


INPMPW 




3269 30DA 


06310 
06320 


3 


JR 


NC, DFTMPW 


;Use default on <ENTER> 




06330 


» 


Parse 


the password & stuff into GAT sector buffer 




06340 


3 








326B 115736 


06350 


PRSMPW 


LD 


DE.MPWBUF 




326E CDB535 


06360 




CALL 


CKMPW 


;Check for valid MPW 


3271 C2A529 


06370 




JP 


NZ,IOERR 




3274 22CE2E 


06380 




LD 


(GATBUF+0CEH), 


HL ; Stuff it 


3277 FDCB0466 


06390 




BIT 


4,(IY+4) 


;Jump if alien controller 


327B C2E133 


06400 




JP 


NZ,CALC6PC 




327E 212936 


06410 




LD 


HL,TBLDATA 


;Pt to config tables 


3281 110600 


06420 




LD 


DE,6 


; Index the table 


3284 FDCB036E 06430 




BIT 


5,(IY+3) 


;8" drive? 


3288 2802 


06440 




JR 


Z, INITDEN 


; Bypass if not 


328A 19 


06450 




ADD 


HL.DE 


; else move to 8" configs 


328B 19 


06460 




ADD 


HL,DE 




328C 22EF32 


06470 


INITDEN 


LD 


(SETSDEN+1),HL 


; & stuff for SDEN option 


328F EB 


06480 




EX 


DE,HL 


;6->HL, SDEN->DE 


3290 19 


06490 




ADD 


HL,DE 


;Pt to DDEN index table 


3291 22DF32 


06500 




LD 


(SETDDEN+1),HL 


; Stuff DDEN config ptr 


3294 EB 


06510 




EX 


DE,HL 


;HL=SDEN, DE=DDEN 


3295 FDCB03B6 06520 




RES 


6,(IY+3) 


;Set DCT to SDEN 


3299 FDCB0476 


06530 




BIT 


6,(IY+4) 


;Test if DDEN capability 


329D 2805 


06540 




JR 


Z, SETSTD 


;Go if single 


329F EB 


06550 




EX 


DE,HL 


;HL->DDEN table 


32A0 FDCB03F6 06560 




SET 


6,(IY+3) 


;Set DCT to DDEN 


32A4 CD5935 


06570 


SETSTD 


CALL 


SETUP 


;Init to std config 


32A7 FDCB04AE 


06580 




RES 


5,(IY+4) 


;Set to 1- sided 
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32AB 3E00 


06590 


PRMMRG 


LD 


A,0 


;<>0 if config parms 


32AD B7 


06600 




OR 


A 


; in command line 


32AE 2008 


06610 




JR 


NZ, GETDEN 




32B0 IIFFFF 


06620 QPARM 


LD 


DE,-1 


;Prompts? Default=Y 


3283 7A 


06630 




LD 


A,D 




32B4 83 


06640 




OR 


E 




3285 CAD633 


06650 




JP 


Z,PSTEP1 


;Go if no prompting 


3288 FDC80476 


06660 GETDEN 


BIT 


6,(IY+4) 


; Bypass DDEN request msg 


32 8C 283A 


06670 




JR 


Z, PMTSIDE 


; if no DDEN capability 


32 8E 3AAC32 


06680 




LD 


A,(PRMMRG+1) 


;Also, don't prompt if 


32C1 87 


06690 




OR 


A 


; any config parm was 


32C2 2013 


06700 




JR 


NZ, GDDENl 


; entered with command 


32C4 216538 


06710 




LD 


HL,DEN?$ 


; Density <S,D>... 


32C7 CD5D2A 


06720 




CALL 


GET3 




32 CA 282 C 


06730 




JR 


Z, PMTSIDE 


;Go on <ENTER> 


32CC 7E 


06740 




LD 


A,(HL) 


;P/u respsonse 


32 CD FE53 


06750 




CP 


'S' 


;Single Density? 


32CF 281D 


06760 




JR 


Z, SETSDEN 




32D1 FE44 


06770 




CP 


'D' 


;Double density? 


32D3 2809 


06780 




JR 


Z, SETDDEN 




32D5 18E1 


06790 




JR 


GETDEN 


;Redo if bad response 


32D7 3A8831 


06800 GDDENl 


LD 


A,(DDPARM+1) 


;Not prompted, was DDEN 


32DA EEFF 


06810 




XOR 


-1 


; set in command line? 


32 DC 2009 


06820 




JR 


NZ, GSDENl 


;Bypass if not 


32DE 210000 


06830 


SETDDEN 


LD 


HL,$-$ 


;P/u DDEN index table 


32E1 FDCB03F6 06840 




SET 


6,(IY+3) 


;Set DCT to DDEN 


32 E5 180E 


05850 




JR 


CHGDEN 




32E7 3A8331 


06860 GSDENl 


LD 


A,(SDPARM+1) 


;Was SDEN parm 


32 EA EEFF 


06870 




XOR 


-1 


; on command line? 


32 EC 200 A 


06880 




JR 


NZ, PMTSIDE 


;Go if not 


32 EE 210000 


06890 


SETSDEN 


LD 


HL,$-$ 


;P/u SDEN index table 


32F1 FDCB03B6 06900 




RES 


6,(IY+3) 


;Set DCT to SDEN 


32F5 CD5935 


06910 


CHGDEN 


CALL 


SETUP 


;Init #CYLs & alloc 


32F8 3AAC32 


06920 


PMTSIDE 


LD 


A,(PRMMRG+1) 


;Config parms entered 


32FB 87 


06930 




OR 


A 


;0n command line? 


32FC 2020 


06940 




JR 


NZ, PMTSl 


; Bypass if yes 


32FE FDE5 


06950 




PUSH 


lY 


;P/u flag table 


3300 


06960 




@@FLAGS 


; and check if 


3300 3E65 


00114 




LD 


A, 101 




3302 EF 


00115 




RST 


40 




3303 FDCB086E 06970 




BIT 


5,(IY+'L'-'A' 


) ; 2-side inhibit? 


3307 FDEl 


06980 




POP 


lY 




3309 2013 


06990 




JR 


NZ, PMTSl 


;If set, use 1 side 


3308 214638 


07000 




LD 


HL,SIDES$ 


;"double sided...? 


330E CD5D2A 


07010 




CALL 


GET3 


;Get # sides wanted 


3311 2816 


07020 




JR 


Z,PMTCYL 


;Go on <ENTER> 


3313 7E 


07030 




LD 


A,(HL) 


;P/u response char 


3314 FE31 


07040 




CP 


'1' 


;1 is ok 


3316 2811 


07050 




JR 


Z,PMTCYL 




3318 FE32 


07060 




CP 


'2' 


; and so is 2 


331A 20DC 


07070 




JR 


NZ, PMTSIDE 


; but redo on anything else 


331C 1805 


07080 
07090 


» 


JR 


TSTSID 






07100 


» 


Check 


side parm from 


command line 




07110 


i 








331E 3A8D31 


07120 


PMTSl 


LD 


A,(SIDES+1) 


;How many sides? 


3321 FE02 


07130 




CP 


2 




3323 2004 


07140 TSTSID 


JR 


NZ,PMTCYL 


;DCT ok if not 2 


3325 FDC804EE 


07150 




SET 


5,(IY+4) 


;Set 2-sided drive 



Page 184 



The Source UTILITY Files FORMAT - LS-DOS 6.2 

Format Init Code 



Page 00026 



3329 FD7E03 


07160 


PMTCYL 


LD 


A,(IY+3) 


;No cylinder request 


332C E628 


07170 




AND 


28 H 


; if either hard drive 


332E 2033 


07180 




JR 


NZ, PMTSTEP 


; or 8" drive 


3330 3AAC32 


07190 


PCYLl 


LD 


A,(PRMMRG+1) 


;P/u config test byte & 


3333 B7 


07200 




OR 


A 


; bypass cyl req if user 


3334 2019 


07210 




JR 


NZ,PCYL4 


; entered cmd line parms 


3336 21CA37 


07220 




LD 


HL,NUMCYL$ 


;" number of cyls.,? 


3339 CD5D2A 


07230 




CALL 


GET3 




333C 3E00 


07240 


PCYL2 


LD 


A,0 


;P/u default # cyls 


333E C48235 


07250 




CALL 


NZ,CVBIN 


;Get # of cyls on CR 


3341 FE61 


07260 


PCYL3 


CP 


96+1 


; System cannot support 


3343 30EB 


07270 




JR 


NC, PCYLl 


; anything over 96 (95) 


3345 FE23 


07280 




CP 


35 




3347 38E7 


07290 




JR 


C, PCYLl 


;Must be 35 or more 


3349 3D 


07300 




DEC 


A 


; Adjust to zero offset 


334A FD7706 


07310 




LD 


(IY+6),A 


; & stuff in DCT 


334D 1814 


07320 
07330 




JR 


PMTSTEP 






07340 




User en 


tered config parms with command line 




07350 










334F 3A9231 


07360 


PCYL4 


LD 


A,(CPARM+1) 


;Was cyl= one of them? 


3352 B7 


07370 




OR 


A 




3353 280E 


07380 




JR 


Z, PMTSTEP 


;Bypass if not 


3355 FE61 


07390 




CP 


96+1 




3357 D24F36 


07400 




JP 


NCPRMERR 


;Parm error if too big 


335A FE23 


07410 




CP 


35 




335C DA4F36 


07420 




JP 


CPRMERR 


; or too small 


335F 3D 


07430 




DEC 


A 


; Adjust to zero offset 


3360 FD7706 


07440 




LD 


(IY+6),A 


; & stuff into DCT 


3363 FDCB0466 


07450 


PMTSTEP 


BIT 


4,(IY+4) 


;Alien controller? 


3367 208F 


07460 
07470 




JR 


NZ,PMTSIDE 


;No adjustable step rate if so 




07480 




If step 


rate parm wasn' 


t entered, prompt 




07490 




for it 


but first determ 


ine 8" or 5" drive 




07500 










3369 3AAC32 


07510 




LD 


A,(PRMMRG+1) 


;Did user enter config 


336C B7 


07520 




OR 


A 


; Parms on command line? 


336 D 2067 


07530 
07540 


s 


JR 


NZ.PSTEPl 


;Go to step prompt if yes 


336F FDE5 


07550 




PUSH 


lY 


;P/u flag table and 


3371 


07560 




(a@FLAGS 




; check if 


3371 3E65 


00116 




LD 


A3I0I 




3373 EF 


00117 




RST 


40 




3374 FDCB0B46 


07570 




BIT 


0,(IY+'L'-'A') 


; step prompt inhibited 


3378 FDEl 


07580 




POP 


lY 




337A 205A 


07590 
07600 


s 


JR 


NZ,PSTEP1 


; Bypass if set 


337C FDCB036E 07610 




BIT 


5,(IY+3) 


;Need prompt, 8"? 


3380 202A 


07620 
07630 




JR 


NZ,STEP8 


;Jump if 8" 




07640 




5" drive step rate pars 


ing 




07650 










3382 21E137 


07660 STEP5 


LD 


HL,STEP5$ 


;"...step rate - 5" 


3385 CD5D2A 


07670 




CALL 


GET3 




3388 CD8235 


07680 




CALL 


CVBIN 


;Get 5" step rate 


338B B7 


07690 




OR 


A 


;Use default? 


338C 2848 


07700 




JR 


Z,PSTEP1 


;Go if parm not entered 


338 E 0600 


07710 




LD 


B,0 


;Init key to 


3390 FE06 


07720 




CP 


6 
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3392 
3394 
3396 
3398 
33 9 A 
339C 
339E 
33A0 
33 A2 
33A4 
33 A6 
33 A8 
33 AA 



2849 
0601 
FE0C 
2843 
0602 
FE14 
283D 
0603 
FEIE 
2837 
FE28 
2833 
18 D6 



33AC 211338 
33AF CD5D2A 
33B2 CD8235 
33B5 B7 
33B6 281E 
33B8 0600 
33BA FE03 
33BC 281F 
33 BE 0601 
33C0 FE06 
33C2 2819 
33C4 0602 
33C6 FE0A 
33C8 2813 
33CA 0603 
33CC FE0F 
33CE 280D 
33 D0 FE14 
33 D2 2809 
33 D4 18 D6 
33 D6 3A9731 
33 D9 E603 
33 DB 1801 
33 DD 78 
33DE 32E72A 



33E1 FD7E08 
33 E4 07 
33 E5 07 
33 E6 07 
33 E7 E607 
33E9 3C 



33 EA FDCB046E 
33 EE 2801 
33F0 87 
33F1 01FFFF 
33F4 CB20 



07730 

07740 

07750 

07760 

07770 

07780 

07790 

07800 

07810 

07820 

07830 

07840 

07850 

07860 ; 

07870 ; 

07880 ; 

07890 STEPS 

07900 

07910 

07920 

07930 

07940 

07950 

07960 

07970 

07980 

07990 



JR 
LD 
CP 
JR 
LD 
CP 
JR 
LD 
CP 
JR 
CP 
JR 
JR 



08010 

08020 

08030 

08040 

08050 

08060 

08070 

08080 

08090 PSTEPl 

08100 

08110 

08120 GOTSTEP 

08130 

08140 ; 

08150 ; 

08160 ; 

08170 ; 

08180 CALC6PC 

08190 

08200 

08210 

08220 

08230 

08240 ; 

08250 ; 

08260 ; 

08270 

08280 

08290 

08300 

08310 CGPCl 



Z, GOTSTEP 

B.l 

12 

Z, GOTSTEP 

B,2 

20 

Z, GOTSTEP 

B,3 

30 

Z, GOTSTEP 

40 

Z, GOTSTEP 

STEP5 



;Init key to 1 
;Init key to 2 
;Init key to 3 



;Re-request, bad value 



8" drive step rate parsing 



LD HL,STEP8$ 

CALL 6ET3 

CALL CVBIN 

OR A 

JR Z,PSTEP1 

LD BJ 

CP 3 

JR Z, GOTSTEP 

LD B,l 

CP 6 

JR Z, GOTSTEP 

LD B,2 

CP 10 

JR Z, GOTSTEP 

LD B,3 

CP 15 

JR Z, GOTSTEP 

CP 20 

JR Z, GOTSTEP 

JR STEP 8 

LD A,(STEPARM+1) 

AND 3 

JR $+3 

LD A,B 

LD (STEPDFT),A 



;"step rate - 8"... 

;Get 8" step rate 
;Use default? 
;Go if not entered 
;Init key to 



;Init key to 1 
;Init key to 2 
;Init key to 3 



;Bad entry, re-request 
;P/u step parm entry 
;Keep 2 lo-order bits 

; Stuff boot step rate key 



Routine to calculate the # of grans per logical 
cylinder so that the GAT byte can be constructed 



LD 

RLCA 

RLCA 

RLCA 

AND 

INC 



A,(IY+8) 



;P/u # of grans per cyl 
;Rotate to bits 0-2 



jStrip off other data 
;Adj for zero offset 



If double siding (cylindering), double the count 

BIT 5,{IY+4) ;Test if 2-sided drive 

JR Z,$+3 ;Bypass if only 1-sided 

ADD A, A ; Double the grans/cyl 

LD BC,0FFFFH ;Init GAT byte to ones 

SLA B ;Now keep removing low 
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33F6 3D 


08320 


DEC 


A 


; order bits , 1 bit for 


33F7 20FB 


08330 


JR 


NZ,CGPC1 


; each available granule 


33F9 21002E 


08340 


LD 


HL,6ATBUF 


;Pt to GAT buffer area 


33FC FD7E06 


08350 


LD 


A,(IY+6) 


;P/u highest # cylinder 


33 FF 70 


08360 C6PC2 


LD 


(HL),B 


; Stuff the GAT byte into 


3400 2C 


08370 


INC 


L 


;Each position of the GAT 


3401 BD 


08380 


CP 


L 


;One byte per cylinder 


3402 30FB 


08390 
08400 ; 


JR 


NC,CGPC2 






08410 ; 


Test if 


we are at 202 


first by ignoring the 




08420 ; 


first two instructions 


with LD DEsXXXX 




08430 ; 








3404 3ECB 


08440 


LD 


AJCBH 


; Continue to stuff GAT 


3406 11 


08450 


DB 


11 H 


; until cyl 202 


3407 71 


08460 CGPC3 


LD 


(HL),C 


;Use FFH to show unused 


3408 2C 


08470 


INC 


L 




3409 BD 


08480 


CP 


L 


;First test here for 


340A 20FB 


08490 
08500 ; 


JR 


NZ,CGPC3 


; match against 202 




08510 ; 


Prompt 


for destination 


disk a prepare it 




08520 ; 








340C 3A2B2A 


08530 


LD 


A,(FMTDRV+1) 


;P/u drive 


340F B7 


08540 


OR 


A 




3410 2020 


08550 


JR 


NZ, PFMTl 


;Bypass if other than 


3412 


08560 PMTDST 


@(3DSPLY 


PMTDST$ 


;"load dest disk.. . 




00118 


IFEQ 


01 HJ 




3412 21C038 


00119 
00120 


LD 
ENDIF 


HL,PMTDST$ 




3415 3E0A 


00121 


LD 


A, 10 




3417 EF 


00122 


RST 


40 




3418 FDE5 


08570 


PUSH 


lY 


;Save DCT pointer 


341A 


08580 


(P@FLAGS 




; Point to flags 


341A 3E65 


00123 


LD 


Aa01 




341C EF 


00124 


RST 


40 




341D FDCB126E 


08590 


BIT 


5,(IY-J-'S'-'A') 


;Check for JCL active 


3421 FDEl 


08600 


POP 


lY 


;Restore pointer 


3423 C2B929 


08610 


JP 


NZ.FMTABT 


; Abort if in JCL 


3426 210030 


08620 


LD 


HL,HITBUF 




3429 010000 


08630 


LD 


BCJ 


;Zero characters means 


342 C 


08640 


(a@KEYIN 




;Enter or Break only 


342 C 3E09 


00125 


LD 


A.9 




342E EF 


00126 


RST 


40 




342F DAB929 


08650 


JP 


CFMTABT 


jAbort if Break 


3432 FDE5 


08660 PFMTl 


PUSH 


lY 


;Xfer DCT ptr to HL 


3434 El 


08670 


POP 


HL 


; & move DCT again 


3435 111736 


08680 


LD 


DE,TMPDCT 


; to store tempy 


3438 010A00 


08690 


LD 


BC,10 




343B EDB0 


08700 


LDIR 








08710 


IF 


@M0D2 






08720 


CALL 


SELECT 






08730 


JP 


NZ,IOERR 


;Go on error 




08740 


ENDIF 






343D CDFF29 


08750 


CALL 


RESTOR 


;Restore to cyl 


3440 C2A529 


08760 


JP 


NZ,IOERR 


;Go on error 


3443 CD092A 


08770 


CALL 


RSELCT 


;Reselect drive 


3446 C2A529 


08780 


JP 


NZ,IOERR 


;Go on error 


3449 FDCB0466 


08790 


BIT 


4,(IY+4) 


;Jump if alien controller 


344 D 2040 


08800 


JR 


NZ,PFMT3 




344F 218738 


08810 


LD 


HL,NOTRDY$ 


;Init "drive not ready 
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3452 CB7F 


08820 


BIT 


7,A 


;Test FDC status for READY 


3454 C2BC29 


08830 


JP 


NZ,EXTERR 


;Quit if not ready 


3457 21AC38 


08840 


LD 


HL,NODRV$ 


;Init "drive not in.. . 


345A CB57 


08850 


BIT 


2,A 


;Test FDC status for TRACK-0 


345C CABC29 


08860 


JP 


Z,EXTERR 


; & error if not at track 


345F CDEC35 


08870 


CALL 


CKDRV 


;Ck if floppy not present 


3462 20AE 


08880 


JR 


NZ,PMTDST 




3464 219738 


08890 


LD 


HL,CANTWR$ 


;Init "write protected.. 


3467 07 


08900 


RLCA 




;Align to bit 7 


3468 FDB603 


08910 


OR 


(IY+3) 


; Combine with soft WP 


346B E680 


08920 


AND 


80 H 


;WP error? 


346D C2BC29 


08930 


JP 


NZ.EXTERR 


; Can't format over WP 


3470 3A1C26 


08940 


LD 


A,(SYSPRM+1) 


; Don't check space needed 


3473 B7 


08950 


OR 


A 


; if SYSTEM info only 


3474 2019 


08960 


JR 


NZ,PFMT3 




3476 210031 


08970 


LD 


HL, FORMAT 


; Start of format buffer 


3479 110000 


08980 PFMT2 


LD 


DE,0 


;P/u format space needed 


347 C 19 


08990 


ADD 


HL,DE 


;Pt to last addr needed 


347 D 54 


09000 


LD 


D,H 


;Xfer to reg DE 


347E 5D 


09010 


LD 


E.L 




347F 210000 


09020 


LD 


HL,0 


;Set up for HI6H$ fetch 


3482 45 


09030 


LD 


B.L 




3483 


09040 


@@HIGH$ 




;Make sure it won't wrap 


3483 3E64 


00127 


LD 


A, 100 




3485 EF 


00128 


RST 


40 




3486 AF 


09050 


XOR 


A 




3487 ED52 


09060 


SBC 


HL,DE 


; into protected memory 


3489 216037 


09070 


LD 


HL,NOMEM$ 


;Init "insufficient mem.. 


348C DABC29 


09080 


JP 


CEXTERR 


;Quit if no memory available 


348F 110000 


09090 PFMT3 


LD 


DE,0 


;Init to cyl 0, sect 


3492 CD272A 


09100 


CALL 


VERSEC 


; Verify BOOT 


3495 C24535 


09110 
09120 ; 


JP 


NZ,PFMT6 


;Assume unformated if err 




09130 ; 


Appears 


formatted, is 


there SYSTEM information? 




09140 ; 








3498 3A1C26 


09150 


LD 


A,(SYSPRM+1) 


; Ignore data if SYSTEM 


349B B7 


09160 


OR 


A 


; info only 


349C C24535 


09170 


JP 


NZ,PFMT6 




349F 210030 


09180 


LD 


HL,HITBUF 


;Pt to i/o buffer 


34A2 CD222A 


09190 


CALL 


RDSEC 


;Now try to read BOOT 


34A5 C2A529 


09200 


JP 


NZ,IOERR 


;Jump on error 


34A8 


09210 


(3(9L0G0T 


HAS DAT $ 


;Show "disk contains data 




00129 


IFEQ 


01H,1 




34 A8 21E338 


00130 
00131 


LD 
ENDIF 


HL,HASDAT$ 




34 AB 3E0C 


00132 


LD 


A, 12 




34AD EF 


00133 


RST 


40 




34AE 21FA38 


09220 
09230 ; 


LD 


HL,NOFMT$ 


;Init "non-std format 




09240 ; 


BOOT was read, is theri 


e a valid directory pointer 




09250 ; 








34B1 3A0230 


09260 


LD 


A,(HITBUF+2) 


;P/u dir cyl # (possible) 


34B4 FDBE06 


09270 


CP 


(IY+6) 


;Check against max cyl # 


34B7 3069 


09280 
09290 ; 


JR 


NC,PFMT5 


;Go if bigger (or =) 




09300 ; 


Read the assumed GAT & 


test it 




09310 ; 








34B9 210030 


09320 


LD 


HL.HITBUF 




34BC 5D 


09330 


LD 


E,L 
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34BD 57 
34BE 210030 
34C1 CD222A 
34 C4 FE06 
34 C6 2805 
34C8 210E39 
34CB 1855 
34CD 212339 
34 D0 3ADA30 
34 D3 FE2F 
34 D5 2048 



34D7 21D030 
34DA 114239 
34 DD 010800 
34E0 EDB0 
34E2 115139 
34E5 0E08 
34E7 EDB0 



34E9 2ACE30 
34 EC 11E042 
34 EF AF 
34F0 ED52 
34F2 213D39 
34F5 282B 
34F7 



34F7 3E0C 
34F9 EF 
34FA FDE5 
34 FC 

34FC 3E65 
34 FE EF 
34FF FDCB126E 
3503 FDEl 
3505 C2B929 



3508 215A39 
350B CD9535 
350E 30F8 
3510 115736 
3513 CDB935 



3516 EB 

3517 2ACE30 
351A AF 
351B ED52 
351D C24536 



09340 

09350 

09360 

09370 

09380 

09390 

09400 

09410 PFMT4 

09420 

09430 

09440 

09450 ; 

09460 ; 

09470 ; 

09480 

09490 

09500 

09510 

09520 

09530 

09540 

09550 ; 

09560 ; 

09570 ; 

09580 

09590 

09600 

09610 

09620 

09630 

09640 

00134 

00135 

00136 

00137 

00138 

09650 

09660 

00139 

00140 

09670 

09680 

09690 

09700 ; 

09710 ; 

09720 ; 

09730 OLDMPW 

09740 

09750 

09760 

09770 

09780 ; 

09790 ; 

09800 ; 

09810 

09820 

09830 

09840 

09850 



LD 

LD 

CALL 

CP 

JR 

LD 

JR 

LD 

LD 

CP 

JR 



D,A 

HL,HITBUF 

RDSEC 

6 

Z,PFMT4 

HL,CANTRD$ 

PFMT5 

HL,NODIR$ ;Init "non-init dir 

A,(HITBUF+0DAH) ;Check if date field 

'/' ; is present 

NZ,PFMT5 ;Jump if no 



;Pt to assumed GAT sector 
;Pt to buffer 
;Read the sector 
;Dir errcod returned? 
;Jump if yes & grab data 
;Init "unreadable dir... 



The directory is readable - request its MPW 



LD 

LD 

LD 

LDIR 

LD 

LD 

LDIR 



HL,HITBUF+0D0H 

DE,PACKID$+5 

BC98 

DE,PACKID$+14H 
C,8 



;Move name & date into 
; display message field 



If MPW = "PASSWORD", just ck ABS 



HL,(HITBUF+0CEH) ;P/u disk MPW 

DE, PASSWORD ;Password=PASSWORD 



;Is it password? 
;Init"Name=5 Date= 
;If match, go check ABS 
;Log the ID field 



LD 

LD 

XOR A 

SBC HL,DE 

LD HL,PACKID$ 

JR Z,PFMT5 

@@LOGOT 

IFEQ 00H,1 

LD HL J 

ENDIF 

LD A, 12 

RST 40 

PUSH lY 

e^FLAGS 

LD A, 101 

RST 40 

BIT 5,(IY+"S'-'A') ;Test if "DOing" 

POP lY 

JP NZ,FMTABT ;Can"t get PW if in JCL 

User must enter Current Pack's MPW to proceed 



;Abort if in JCL 



LD HL,OLDMPW$ 

CALL INPMPW 

JR NC, OLDMPW 

LD DE,MPWBUF 

CALL HASHMPW 



;"What's the old MPW? 
;Grab user input to match 



;Hash user entry 

Routine to test master password for match 

EX DE,HL ;Xfer hashed MPW to DE 

LD HL,(HITBUF+0CEH) ;Else grab pack MPW 

XOR A ;Clear carry flag 

SBC HL.DE ;Did user enter pack MPW? 

JP NZ,BADMPW jAbort if no match 
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3520 1823 


09860 
09870 ; 


JR 


PFMT6 






09880 ; 


The dir 


ectory was not 


readable - req assurance 




09890 ; 








3522 


09900 PFMT5 


@@LOGOT 








00141 


IFEQ 


00H,1 






00142 


LD 


HL, 






00143 


END IF 






3522 3EJ8C 


00144 


LD 


A, 12 




3524 EF 


00145 


RST 


40 




3525 110000 


09910 APARM 


LD 


DE,0 


;ABS parameter 


3528 IC 


09920 


INC 


E 




3529 281A 


09930 


JR 


Z,PFMT6 


;Go if ABS used 


352B FDE5 


09940 


PUSH 


lY 




352D 


09950 


(3@FLAGS 






352D 3E65 


00146 


LD 


A. 101 




352F EF 


00147 


RST 


40 




3530 FDCB126E 09960 


BIT 


5,(IY+'S'-'A' 


) ;Test if "DOing" 


3534 FDEl 


09970 


POP 


lY 




3536 C2B929 


09980 


JP 


NZ,FMTABT 


;Abort if JCL but no ABS 


3539 21B439 


09990 


LD 


HL,SURE?$ 


;"are you sure...? 


353C CD5D2A 


10000 


CALL 


GET3 


;Get response 


353F 7E 


10010 


LD 


A,(HL) 




3540 FE59 


10020 


CP 


'Y' 


;If not Yes, abort 


3542 C2B929 


10030 


JP 


NZ.FMTABT 




3545 FDE5 


10040 PFMT6 


PUSH 


lY 


;|V|ove drive code table 


3547 Dl 


10050 


POP 


DE 


; back into place 


3548 211736 


10060 


LD 


HL,TMPDCT 


; into system slot 


354B 010A00 


10070 


LD 


BC,10 




354E EDB0 


10080 


LDIR 






3550 CDFF29 


10090 


CALL 


RESTOR 


jRestore to cylinder 


3553 C2A529 


10100 


JP 


NZ,IOERR 


;Go on error 


3556 C30126 


10110 
10120 ; 


JP 


GOFMT 


;Go and format it 




10130 ; 


Routine 


to set up the 


DCT for format 




10140 ; 








3559 3A3D33 


10150 SETUP 


LD 


A,(PCYL2+1) 


;P/u the highest # cyl 


355C FDCB036E 


10160 


BIT 


5JIY+3) 


;If 8" drive, use 77 


3560 2802 


10170 


JR 


Z,$+4 


;Go if only 5" 


3562 3E4D 


10180 


LD 


A, 77 


;8" drives are 77 cyls 


3564 3D 


10190 


DEC 


A 




3565 FD7706 


10200 


LD 


(IY+6),A 


; Stuff in our DCT 


3568 5E 


10210 


LD 


E,(HL) 


;Grab address to 


3569 23 


10220 


INC 


HL 


; master formatting table 


356A 56 


10230 


LD 


D,(HL) 




356B 23 


10240 


INC 


HL 




356C ED530926 


10250 


LD 


(FMTTBL+1),DE 


;Stuff for later use 


3570 5E 


10260 


LD 


E,(HL) 


;P/u DCT+7 data 


3571 23 


10270 


INC 


HL 


;Max sector, # of heads 


3572 56 


10280 


LD 


D,(HL) 


;P/u DCT+8 data, # of 


3573 23 


10290 


INC 


HL 


; sectors/gran & grans/cyl 


3574 FD7307 


10300 


LD 


(IY+7),E 


;Stuff these values into 


3577 FD7208 


10310 


LD 


(IY+8),D 


; our DCT 


357A 5E 


10320 


LD 


E,(HL) 


;P/u space needed for 


357B 23 


10330 


INC 


HL 


; the formatting buffer 


357C 56 


10340 


LD 


D,(HL) 




357D ED537A34 


10350 


LD 


(PFMT2+1),DE 


; & stuff that for later 


3581 C9 


10360 
10370 ; 


RET 
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10380 ; 


Convert 


decimal ASCII 


to binary 




10390 ; 








3582 1EJ80 


10400 CVBIN 


LD 


E.0 


;Init value to 


3584 7E 


10410 CVBl 


LD 


A,(HL) 


;Get a character 


3585 23 


10420 


INC 


HL 


;Bump buff ptr 


3586 D630 


10430 


SUB 


30 H 


;Make binary 


3588 47 


10440 


LD 


B,A 




3589 FE0A 


10450 


CP 


0AH 


;Was it a decimal digit? 


358B 7B 


10460 


LD 


A.E 




358C D0 


10470 


RET 


NC 


;Return if not 


358D 87 


10480 


ADD 


A, A 


;Mult previous value X 10 


358E 87 


10490 


ADD 


A, A 




358F 83 


10500 


ADD 


A,E 




3590 87 


10510 


ADD 


A, A 




3591 80 


10520 


ADD 


A,B 


;Add in new digit 


3592 5F 


10530 


LD 


E,A 


;Put results in E 


3593 18EF 


10540 
10550 ; 


JR 


CVBl 


;Loop 


3595 


10560 INPMPW 


@(9DSPLV 








00148 


IFEQ 


00H,1 






00149 


LD 


HL, 






00150 


END IF 






3595 3E0A 


00151 


LD 


A, 10 




3597 EF 


00152 


RST 


40 




3598 215736 


10570 


LD 


HL,MPWBUF 


;Use this buffer 


35 9 B 0608 


10580 


LD 


B,8 


;8 chars max 


359D CD6B2A 


10590 


CALL 


6ET8A 


; Input the pswd 


35Aj9 C8 


10600 


RET 


Z 


;Go if Enter only 


35A1 EB 


10610 


EX 


DE,HL 




35A2 83 


10620 


ADD 


A,E 


;Find where the X'0D' was 


35A3 6F 


10630 


LD 


L,A 


; stuffed & cover it 


35 A4 7 A 


10640 


LD 


A,D 




35A5 CE00 


10650 


ADC 


A,0 




35A7 67 


10660 


LD 


H,A 




35 A8 3E08 


10670 


LD 


A, 8 


;If 8 chars entered. 


35 AA 90 


10680 


SUB 


B 




35AB 37 


10690 


SCF 




; done 


35AC C8 


10700 


RET 


Z 




35 AD 47 


10710 


LD 


B,A 


; else pad the buffer 


35AE 3620 


10720 FILLBLK 


LD 


(HL),' ' 


; w/spaces 


35Bj9 23 


10730 


INC 


HL 




35B1 10FB 


10740 


DJNZ 


FILLBLK 




35 B3 37 


10750 


SCF 






35B4 C9 


10760 
10770 ; 


RET 






35B5 CDBC35 


10780 CKMPW 


CALL 


CKMPW0 




35B8 C0 


10790 
10800 ; 


RET 


NZ 






10810 ; 


Hash a 


diskette password 




10820 ; 








35B9 3EE4 


10830 HASHMPW 


LD 


A,0E4H 


;Use SYS2 routine 


35 BB EF 


10840 
10850 ; 


RST 


40 




35 BC 0608 


10860 CKMPW0 


LD 


B,8 


;8 char to check 


35 BE D5 


10870 


PUSH 


DE 


;Xfer start of PW 


35BF El 


10880 


POP 


HL 


; to HL 


35C0 7E 


10890 


LD 


A,(HL) 


;P/u 1st char 


35C1 180E 


10900 


JR 


CKMPW2 


; & check <A-Z> 


35C3 23 


10910 CKHPWl 


INC 


HL 


jAdvance to next char 



Page 191 



The Source 


UTILITY Fi 


les 


FORMAT - LS-DOS 


6.2 Page 00033 


Format Init 


Code 








35C4 7E 


10920 


LD 


A,(HL) 


;P/u the char 


35C5 FE20 


10930 


CP 


1 1 




35C7 2818 


10940 


JR 


Z,CKMPW7 


;Go on space 


35C9 FE30 


10950 


CP 


'0' 




35CB 3818 


10960 


JR 


C, INVMPW 


;Bad if less than o 


35CD FE3A 


10970 


CP 


•9'+l 


; or greater than 9 


35CF 3808 


10980 


JR 


C,CKMPW3 




35 Dl FE41 


10990 CKMPW2 


CP 


'A' 




35D3 3810 


11000 


JR 


C, INVMPW 


; but less than A 


35D5 FE5B 


11010 


CP 


•Z'+l 




35 D7 300C 


11020 


JR 


NC, INVMPW 


;More than Z also bad 


35 D9 10E8 


11030 CKMPW3 


DJNZ 


CKMPWl 


;Char ok, do another 


35 DB AF 


11040 


XOR 


A 


;Set Z, PW good 


35DC C9 


11050 
11060 ; 


RET 






35 DD 23 


11070 CKMPW5 


INC 


HL 


;Next char position 


35 DE BE 


11080 


CP 


(HL) 


;No imbedded spaces 


35 DF 2004 


11090 


JR 


NZ, INVMPW 




35E1 10FA 


11100 CKMPW7 


DJNZ 


CKMPW5 


;Loop til 8 checked 


35 E3 AF 


11110 


XOR 


A 


;Set Z = PW good 


35E4 C9 


11120 
11130 ; 


RET 






35E5 21DA39 


11140 INVMPW 


LD 


HL,INVMPW$ 


;Init "Invalid PW 


35E8 3E3F 


11150 


LD 


A, 53 


; Indicate extended error 


35 EA B7 


11160 


OR 


A 


;Set NZ condition 


35EB C9 


11170 
11180 ; 


RET 








11190 ; 


Brief routine to check 


a drive for availability 




11200 ; 








35 EC 210030 


11210 CKDRV 


LD 


HL,HITBUF 




35 EF 


11220 


miim 




;P/u the timer pointer 


35EF 3E13 


00153 


LD 


A. 19 




35F1 EF 


00154 


RST 


40 




35F2 EB 


11230 


EX 


DE,HL 


;TIME$ to HL 


35F3 2B 


11240 


DEC 


HL 


;TIMER$ to HL 


35F4 7E 


11250 


LD 


A,(HL) 


;P/u current timer value 


35F5 C60F 


11260 


ADD 


A, 15 


;Set timeout to 500ms 


35F7 57 


11270 
11280 ; 


LD 


D,A 


;Save for test later 




11290 ; 


Test fc 


ir diskette in dr 


ive & rotating 




11300 ; 








35F8 CD0836 


11310 CKDRl 


CALL 


CKDR6 


;Test index pulse 


35FB 20FB 


11320 


JR 


NZ, CKDRl 


;Jump on index 


35FD CD0836 


11330 CKDR2 


CALL 


CKDR6 


;Test index pulse 


3600 28FB 


11340 


JR 


Z,CKDR2 


;Jump on no index 


3602 CD0836 


11350 CKDR2A 


CALL 


CKDR6 




3605 20FB 


11360 


JR 


NZ,CKDR2A 


;Jump on index 


3607 C9 


11370 


RET 






3608 FB 


11380 CKDR6 


EI 




;Make sure they're ON 


3609 7E 


11390 


LD 


A,(HL) 


;P/u latest TIMERS value 


360A 92 


11400 


SUB 


D 


;500ms passed? 


360 B 2806 


11410 


JR 


Z,CKDR7 




360D CD092A 


11420 


CALL 


RSELCT 


; Select & wait not busy 


3610 CB4F 


11430 


BIT 


1,A 


;Test index 


3612 C9 


11440 


RET 






3613 Dl 


11450 CKDR7 


POP 


DE 


;Pop the ret address 


3614 F601 


11460 


OR 


1 


;Set "Illegal drive # 


3616 C9 


11470 
11480 ; 


RET 




;With NZ 
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11490 ; 

11500 ; 

000A 11510 TMPDCT DS 10 

0008 11520 DCTCYL DS 8 

11530 ; 

11540 ; Config table for single density 5" 

11550 ; 

3629 11560 TBLDATA EQU $ 



; Default # cyls 



3629 EA2A 


11570 




DW 


S5TBL,2409H,3381 


0924 350D 










11580 










11590 




Confi 


ig table for double density 5" 




11600 








362F 2A2B 


11610 




DW 


D5TBL,4511H,6506 


1145 6A19 










11620 










11630 




Confi 


ig table for single density 8" 




11640 








3635 812B 


11650 




DW 


S8TBL,270FH,5464 


0F27 5815 










11660 










11570 




Confi 


ig table for double density 8" 




11680 








363B C62B 


11690 




DW 


D8TBL, 49 IDH, 10673 


1D49 B129 










11700 










11710 




Parm 


error exit 




11720 








3641 21F439 


11730 


BADNAM 


LD 


HL,BADNAM$ 


3644 DD 


11740 




DB 


0DDH 


3645 21DA39 


11750 


BADMPW 


LD 


HL,INVMPW$ 


3648 DD 


11760 




DB 


0DDH 


3649 214737 


11770 


NOT HARD 


LD 


HL,HARD$ 


364C C3BC29 


11780 




JP 


EXTERR 


364F 3E2C 


11790 


PRMERR 


LD 


A, 44 ;Init Parm ERROR 


3651 C3A529 


11800 
11810 




JP 


lOERR 




11820 




Load 


SYS2 overlay 




11830 








3654 3E84 


11840 GETSYS2 LD 


A,84H 


3656 EF 


11850 
11860 


» 


RST 


28 H 


3657 20 


11870 


MPWBUF 


DB 


1 1 


20 20 20 20 20 


20 20 20 






11880 


PRMTBL$ 






0080 


11890 


VAL 


EQU 


80H 


0040 


11900 


SW 


EQU 


40 H 


0020 


11910 


STR 


EQU 


20H 


0010 


11920 


SQL 


EQU 


10H 


3660 80 


11930 




DB 


80H 


3661 74 


11940 




DB 


SW!STR!SGL!4,'NAME'.0 


4E 41 4D 45 00 








3666 


11950 


NRESP 


EQU 


$-1 


3667 EB31 


11960 




DW 


NPARM+1 


3669 73 


11970 




DB 


SW!STR!SGL!3,'MPW',0 


4D 50 57 00 








366 D 


11980 


M^ESP 


EQU 


$-1 


366E 3B32 


11990 




DW 


MPARM+1 


3670 44 


12000 




DB 


SW!4,'SDEN',0 


53 44 45 


4E 00 
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3676 
3678 

367E 
3680 

3687 
3689 

368E 
3690 

3696 
3698 

369D 
36 9F 

36A6 
36 A8 

36 B0 
36 B2 

36 B8 
36 BA 

36 BF 
36C1 

36C2 
36C8 



36C8 



36 F2 



3707 



372F 



3747 



8331 
44 

44 44 
8831 
85 

53 49 
8D31 
93 

43 59 
9231 
84 

53 54 

9731 

53 

41 42 

2635 

55 

51 55 

B132 

46 

53 59 

1C26 

94 

57 41 

2C27 

93 

44 49 
1228 



46 
4F 52 



20 

2D 20 
2D 20 
67 68 
2F 38 
79 20 
6C 
20 

53 79 
20 49 
20 20 

41 

6C 6C 

73 20 
65 64 
6E 73 
32 2F 
20 

74 6F 
78 78 
78 78 
43 

61 6E 



12010 
12020 
45 4E 00 
12030 
12040 

44 45 53 
12050 
12060 

4C 00 
12070 
12080 

45 50 00 
12090 
12100 

53 00 

12110 

12120 

45 52 59 

12130 

12140 

53 54 45 

12150 

12160 

49 54 00 

12170 

12180 

52 00 

12190 

12200 

12210 

12220 

4D 41 54 

12230 

12240 

12250 

12260 

36 2E 32 

43 6F 70 

74 20 31 

33 2F 38 

4C 6F 67 

12270 
73 74 65 
6E 63 2E 
20 0A 

12280 

12290 
20 52 69 
52 65 73 
2E 20 4C 
65 64 20 
38 33 2F 

12300 
20 78 78 
78 78 78 
78 78 78 

12310 
6E 6F 74 



00 
4D 



DW 
DB 

DW 
DB 

DW 
DB 

DW 
DB 

DW 
DB 

DW 



DW 
DB 

DW 
DB 

DW 
DB 

DW 
NOP 



HELLO$ DB 

*GET CLIENT; 
; CLIENTS/ ASM - 



DB 



2E 30 20 
79 72 69 
39 38 32 
34 20 62 
69 63 61 



SDPARM+1 
SW!4,'DDEN',0 

DDPARM+1 
VAL!5, 'SIDES' J 

SIDES+1 
VAL!SGL!3,'CYL',0 

CPARM+1 
VAL!4,'STEP'J 

STEPARM+1 
SW!SGL!3,'ABS',0 

APARM+1 
SW!SGL!5,'QUERY' J 

QPARM+1 

SW!6, 'SYSTEM' J 

SYSPRM+1 
VAL!SGL!4/WAIT',0 

WAITPRM+1 
VAL!S6L!3/DIR'J 

DIRPARM-M 



'FORMAT' 

3 

File to establish sign-on headers 

' - 6.2.0 - Copyright 1982/83/84 by Logical 



DB 



' Systems, Inc. 



'.10 



6D 73 2C 
20 20 20 



DB 
67 68 74 
65 72 76 
69 63 65 
31 39 38 
38 34 

DB 
78 78 78 
78 78 78 
0A 0D 
HARD$ DB 
20 22 53 



All Rights Reserved. Licensed 1982/83/84' 



to xxxxxxxxxxxxxxxxxx ' , 10, 13 



Cannot "SYSTEM" a f loppy', CR 
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Format I nit 


, Code 


59 53 


54 


45 4D 22 20 61 


20 66 


6C 


6F 70 70 79 0D 


3760 49 




12320 NOMEM$ DB 


6E 73 


75 


66 66 69 63 69 


65 6E 


74 


20 6D 65 6D 6F 


72 79 


20 66 6F 72 20 


3778 73 




12330 DB 


70 65 


63 


69 66 69 65 64 


20 66 


6F 


72 6D 61 74 0D 


3789 57 




12340 WHDRV$ DB 


68 69 


63 


68 20 64 72 69 


76 65 


20 


69 73 20 74 6F 


20 62 


65 


20 75 73 65 64 


20 3F 


20 03 


37A6 44 




12350 DSKNAM$ DB 


69 73 


6B 


65 74 74 55 20 


6E 61 


6D 


65 20 3F 20 03 


37B7 4D 




12360 MPW$ DB 


61 73 


74 


65 72 20 70 61 


73 73 


77 


6F 72 64 20 3F 


20 03 






37 CA 4E 




12370 NUMCYL$ DB 


75 6D 


62 


65 72 20 6F 66 


20 63 


79 


6C 69 6E 64 65 


72 73 


20 


3F 20 03 


37 El 42 




12380 STEP5$ DB 


6F 6F 


74 


20 73 74- 72 61 


70 20 73 


74 65 70 70 69 


6E 67 


20 


72 61 74 65 20 


37 FA 3C 




12390 DB 


36 2C 


20 


31 32 2C 20 32 


30 2C 


20 


33 30 20 6D 73 


65 63 


73 


3E 20 3F 20 03 


3813 42 




12400 STEP8$ DB 


6F 6F 


74 


73 74 72 61 70 


20 73 


74 


65 70 70 69 6E 


67 20 


72 


61 74 65 20 


3828 3C 




12410 DB 


33 2C 


20 


36 2C 20 31 30 


2C 20 


31 


35 2F 32 30 20 


6D 73 


65 


63 73 3E 20 3F 


20 03 






3846 45 




12420 SIDES$ DB 


6E 74 


65 


72 20 6E 75 6D 


62 65 


72 


20 6F 66 20 73 


69 64 


65 


73 20 3C 31 2C 


32 3E 


20 


3F 20 03 


3865 53 




12430 DEN?$ DB 


69 6E 


67 


6C 65 20 6F 72 


20 44 


6F 


75 62 6C 65 20 


64 65 


6E 


73 69 74 79 20 


3C 53 


2C 


44 3E 20 3F 20 


03 






3887 44 




12440 NOTRDY$ DB 


72 69 


76 


65 20 6E 6F 74 


20 72 


65 


61 64 79 0D 


3897 57 




12450 CANTWR$ DB 


72 69 


74 


65 20 70 72 6F 


74 65 


63 


74 65 64 20 64 
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Insufficient memory for ' 



'specified format ',CR 



'Which drive is to be used ? ',3 



'Diskette name ? ' ,3 



Master password ? ' ^3 



'Number of cylinders ? '^3 



Boot strap stepping rate ' 



'<6, 12, 20, 30 msecs> ? ',3 



Bootstrap stepping rate ' 



'<3, 6, 10, 15/20 msecs> ? ',3 



'Enter number of sides <1,2> ? ',3 



Single or Double density <S,D> ? ',3 



'Drive not ready' ,CR 



Write protected disk',CR 
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Format ] 


[nit Code 


69 


73 6B 0D 


38AC 44 


12460 NODRV$ DB 


72 


69 76 65 20 6E 6F 74 


20 69 6E 20 73 79 73 74 


65 


6D 0D 


38C0 4C 


12470 PMTDST$ DB 


6F 


61 64 20 64 65 73 74 


69 


6E 61 74 69 6F 6E 20 


64 


69 73 6B 65 74 74 65 


20 20 3C 45 4E 54 45 52 


3E 0D 


38E3 44 


12480 HASDAT$ DB 


69 


73 6B 20 63 6F 6E 74 


61 


69 6E 73 20 64 61 74 


61 


20 2D 2D 20 03 


38FA 4E 


12490 NOFMT$ DB 


6F 


6E 2D 73 74 61 6E 64 


61 


72 64 20 66 6F 72 6D 


61 


74 0D 


390E 55 


12500 CANTRD$ DB 


6E 


72 65 61 64 61 62 6C 


65 


20 64 69 72 65 63 74 


6F 


72 79 0D 


3923 4E 


12510 NODIR$ DB 


6F 


6E 2D 69 6E 69 74 69 


61 


6C 69 7A 65 64 20 64 


69 


72 65 63 74 6F 72 79 


0D 




393D 4E 


12520 PACKID$ DB 


61 


6D 65 3D 58 58 58 58 


58 


58 58 58 20 20 44 61 


74 


65 3D 4D 4D 2F 44 44 


2F 


59 59 0D 


395A 20 


12530 OLDMPW$ DB 


20 45 6E 74 65 72 20 69 


74 


73 20 4D 61 73 74 65 


72 


20 50 61 73 73 77 6F 


72 


64 


3975 20 


12540 DB 


6F 


72 20 3C 42 52 45 41 


4B 3E 20 74 6F 20 61 62 


6F 


72 74 3A 20 03 


398C 2A 


12550 LASTMSG DB 


2A 2A 20 54 68 65 20 74 


61 


72 67 65 74 20 64 72 


69 


76 65 20 69 73 20 61 


20 68 61 72 64 20 64 69 


73 


6B 20 2A 2A 2A 0A 


39B4 41 


12560 SURE?$ DB 


72 


65 20 79 6F 75 20 73 


75 


72 65 20 79 6F 75 20 


77 


61 6E 74 20 74 6F 20 


66 


6F 72 6D 61 74 20 69 


74 20 3F 20 03 


39 DA 0A 


12570 INVMPW$ DB 


49 


6E 76 61 6C 69 64 20 


4D 61 73 74 65 72 20 50 


61 


73 73 77 6F 72 64 0A 
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Load destination diskette <ENTER>',CR 



'Disk contains data ~ ',3 



'Non-standard format ',CR 



'Unreadable directory' ,CR 



'Non-initialized directory' ,CR 



' Name=XXXXXXXX Date=MM/DD/YY ' ,CR 



Enter its Master Password' 



' or <BREAK> to abort: ',3 



'*** The target drive is a hard disk ***',LF 



'Are you sure you want to format it ? ',3 



LF,' Invalid Master Password' ,LF,CR 
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39F4 49 12580 BADNAM$ DB 

6E 76 61 6C 69 64 20 44 

69 73 68 20 4E 61 6D 65 

0D 
3A06 44 12590 PAKNAM$ DB 'DATADISK 

41 54 41 44 49 53 4B 
3A0E 50 12600 PAKMPW$ DB 'PASSWORD 

41 53 53 57 4F 52 44 
08520 ; 
3A16 08530 SUBTTL <> 
3100 08540 END FORMAT 



FORMAT - LS-DOS 6.2 



'Invalid Disk Name',CR 
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mi 


mm m2 


0000 


m3 


0000 


@@4 


mm moD2 


0000 @M0D4 


FFFF 


AFLOP 


27 D3 APARM 


3525 


BADMPW 


3645 


BADNAM 


3641 BADNAM$ 


39F4 


BFMTl 


26A4 


BFMT2 


26A7 BFMT3 


26CF 


BFMT4 


26 D5 


BFMT5 


26FE BGNFMT 


2698 


BGNVER 


2735 


BOOT 


2FJ90 BOOTDIR 


2A9D B00TST$ 


2600 


BREAK 


29B9 BVERl 


2747 


BVER10 


27B2 


BVER3 


2767 BVER4 


2768 


BVER5 


2771 


BVER8 


278A BVER9 


27A9 CALCl 


2823 


CALC2 


2836 CALC3 


283A CALCDIR 


2806 


CALCGPC 


33E1 CANTRD$ 


390E CANTWR$ 


3897 


CGPCl 


33F4 CGPC2 


33 FF 


CGPC3 


3407 


CHGDEN 


32F5 CKDRl 


35F8 


CKDR2 


35 FD 


CKDR2A 


3602 CKDR6 


3608 


CKDR7 


3613 


CKDRV 


35 EC CKMPW 


35 B5 CKMPW0 


35 BC 


CKMPWl 


35C3 CKMPW2 


35D1 


CKMPW3 


35 D9 


CKMPW5 


35DD CKMPW7 


35E1 


CKNAME 


322B 


CKWAIT 


2724 CODEl 


265F 


CODEIA 


2661 


CODFl 


2669 CODFIA 


266C 


C0DF2 


2670 


C0DF2A 


2677 CODE 3 


267A 


CODE 4 


2682 


C0DF5 


2657 CODRET 


2665 


CORES 


2F00 


CPARM 


3191 CR 


000D CRT3 


3C00 


CRT4 


F800 CVBl 


3584 


CVBIN 


3582 


CVDl 


2A52 CVD2 


2A59 


CVDEC 


2A50 


CYLGRN 


2951 D5TBL 


2B2A 


D8TBL 


2BC6 


DATADSK$ 


4329 DCTCYL 


3621 


DCTLPl 


313A 


DDPARM 


3187 DEN?$ 


3865 


DFTMPW 


3245 


DFTNAM 


31F5 DIRASC$ 


2CC6 


DIRCYLS 


2CA1 


DIRDIR 


2ABD DIRPARM 


2811 


DIRSET 


2821 


DRVNOP 


29F6 DSKNAM 


3218 


DSKNAMS 


37A6 


DSPCYL 


2A89 ERREXIT 


29C5 


EXIT 


29C8 


EXIT2 


29[F EXIT3 


29ED 


EXIT4 


29F4 


EXTERR 


29BC FILLBLK 


35 AE 


FMTl 


3144 


FMT2 


316D FMT2A 


3175 


FMT2B 


31 E4 


FMTABT 


29 B9 FMTABT$ 


2024 


FMTCAOS 


2D0E 


FMTCYL$ 


2C39 FMTDAT 


2639 


FMTDRV 


2A2A 


FMTG$ 


2C6E FMTHD 


2A13 


FMTTBL 


2608 


FORMAT 


3100 FORMATA 


3109 


GATBUF 


2E00 


GDDENl 


32 D7 GENSYS 


2840 GET3 


2A5D 


GETS 


2A65 GET8A 


2A6B 


GETDAT 


3234 


GETDEN 


32 B8 GETSYS2 


3654 


GETUC 


2A77 


GETUCl 


2A82 GOFMT 


2601 


60TSTEP 


33 DD 


GSDENl 


32E7 GSYSl 


28F2 


GSYS2 


2981 


GSYS3 


298B HARD$ 


3747 


HASDATS 


38E3 


HASHMPW 


35B9 HELLO$ 


36C2 


HITBUF 


3000 


HRDRV 


27C1 HRDRVl 


27E5 


INITDEN 


328C 


INPMPW 


3595 INVMPW 


35 E5 


INVMPWS 


39 DA 


lOERR 


29A5 IPLSYS$ 


2CC9 


LASTMS6 


398C 


LF 


000A LSIID 


28 DB 


MOVFREE 


2794 


MOVMPW 


324D MOVMPWl 


325C 


MOV NAM 


31FD 


mVNAMl 


3211 MP ARM 


32 3 A 


MPW 


3263 


MPW$ 


37B7 MPWBUF 


3657 


MRESP 


366D 


NOCYL$ 


2C7C NODIR 


281E 


NODIR$ 


3923 


NODRV$ 


38AC NOFMT$ 


38FA 


NOMEM$ 


3760 


NOTFMT$ 


2D35 NOTHARD 


3649 


NOTRDYS 


3887 


NPARM 


31 EA NRESP 


3666 


NUMCYLS 


37 CA 


OLDMPW 


3508 OLDMPWS 


395A PACKID$ 


393D 
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PAKMPW$ 


3A0E PAKNAM$ 


3A06 PASSWORD 


42 E0 


PCYLl 


3330 


PCYL2 


333C PCYL3 


3341 


PCYL4 


334F 


PFMTl 


3432 PFMT2 


3479 


PFMT3 


348F 


PFMT4 


34CD PFMT5 


3522 


PFMT6 


3545 


PMTCYL 


3329 PMTDST 


3412 


PMTDST$ 


38C0 PMTSl 


331 E PMTSIDE 


32 F8 


PMTSTEP 


3363 


PMTSYS$ 


2CEF PRMERR 


364F 


PRMMRG 


32AB 


PRMTBL$ 


3660 PRSMPW 


326B 


PSTEPl 


33 D6 QPARM 


32B0 RDSEC 


2A22 


RESTOR 


29FF 


RETCOD 


29C9 RLS 


0062 


RSELCT 


2A09 


S5TBL 


2AEA S8TBL 


2B81 


SAFESP 


4400 


SDPARM 


3182 SECCYL 


2AE8 


SECSKEW 


26A1 


SECTRK 


2AE9 SELECT 


29FA 


SETDDEN 


32 DE 


SETSDEN 


32 EE SETSTD 


32 A4 


SETUP 


3559 


SGL 


0010 SIDES 


318C 


SIDES$ 


3846 


SPSAV 


29 D8 STARS 


2C69 


STEP5 


3382 


STEP5$ 


37E1 STEPS 


33AC 


STEP8$ 


3813 


STEP ARM 


3196 STEPDFT 


2AE7 


STEPIN 


2A04 


STOP 


4326 STR 


0020 


STRLEN 


0017 


SURE?$ 


39 B4 SW 


0040 


SYSDCT 


2ADD 


SYSPRM 


26 IB TBLDATA 


3629 


TMPDCT 


3617 


TRKSKEW 


2702 TSTSID 


3323 


VAL 


0080 VERCYL$ 


2C51 VERSl 


2A3C 


VERSEC 


2A27 


VERSKEW 


2764 VERSYS 


2A31 


WAITPRM 


272 B 


WHDRV 


3151 WHDRV$ 


3789 


WRCYL 


2A0E 


WRDIR 


2A41 WRDIRl 


2A44 


WRGATl 


28 DF 


WRSEC 


2A18 WRSYS 


2A1D 


@@ABORT 


BE7D 


00ADTSK 


BF10 00BANK 


C428 


@@BKSP 


C108 


00BREAK 


C43E 00CHNIO 


BE68 


@(3CKBRKC 


C48C 


00CKDRV 


BF64 00CKEOF 


CUD 


@@CKTSK 


BEFB 


00CLOSE 


C0F3 00CLS 


C476 


@@CMNDI 


BEA7 


00CMNDR 


BEBC 00CTL 


BCCC 


(30 DATE 


BE3E 


00DCSTAT 


BFA3 00DEBUG 


BEE6 


@@DECHEX 


C3A8 00DIRRD 


C315 00DIRWR 


C32A 


@@DIV16 


C393 


00DIV8 


C37E 00DODIR 


BF79 


(30 DSP 


BC90 00DSPLY 


BD30 00ERROR 


BEDl 


@@EXIT 


BE 92 


00FEXT 


C282 00FLAGS 


C412 


(a@FNAME 


C297 


00FSPEC 


C26D 00GATRD 


C300 


moAjm 


C33F 


00 GET 


BCA4 00GTDCB 


C2C1 


@@GTDCT 


C2AC 


00GTMOD 


C2D6 00HDFMT 


C04B 


0@HEX16 


C3E7 


00HEX8 


C3D2 00HEXDEC 


C3BD 


(a(9HIGH$ 


C3FC 


00INIT 


C0C9 00KBD 


BD08 


0(3 KEY 


BC7C 


00KEYIN 


BDIC 00KLTSK 


BF4F 


@@LOAD 


C243 


00LOC 


C132 00LOF 


C147 


@@LOGER 


BD67 


00LOGOT 


BD7C 00MSG 


BDB3 


0(3MUL16 


C369 


00MUL8 


C354 00OPEN 


C0DE 


@@PARAM 


BE29 


00 PAUSE 


BE14 00PEOF 


C15C 


@0POSN 


C171 


00 PR I NT 


BDC8 00PRT 


BCE0 


@@PUT 


BCB8 


00RAMDIR 


BF8E 00RDSEC 


C021 


00RDSSC 


C2EB 


00READ 


C186 00REMOV 


C0B4 


(30 RE NAM 


C09F 


00REW 


C19B 00RMTSK 


BF25 


00RPTSK 


BF3A 


00RREAD 


C1B0 00RSLCT 


C00C 


00RSTOR 


BFCD 


00RUN 


C258 00RWRIT 


C1C5 


00 SEEK 


BFF7 


00SEEKSC 


CIDA 00SKIP 


CIEF 


00SLCT 


BFB8 


00 STEP I 


BFE2 00TIME 


BE 53 


00VDCTL 


BDFF 


00VER 


C204 00VRSEC 


C036 


00WEOF 


C219 


00WHERE 


BCF4 00WRITE 


C22E 


00WRSEC 


C060 00WRSSC 


C075 00WRTRK 


C08A 
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00000 Total errors 
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NOTES: 
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FORMS/FLT - Printer output fornmatlng filter 

The Forms filter allows formatting of data sent to the *PR device. It is installed 
with the SET and FILTER Library commands. Its parameters are adjusted with the FORMS 
Library command. 
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0000 
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000 D 
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00100 ; FORMS/ASM - Printer Formatting Filter 

00110 TITLE <FORMS/FLT - LS-DOS 6.2> 

00120 ; 

00130 LF EQU 10 

00140 CR EQU 13 

00150 ; 

00160 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00170 *GET C0PYC0M:3 ;Copyright message 

03920 ; COPYCOM - File for Copyright COMment block 

03930 ; 



0000 


03940 


COM 


'<*(C) 1982 


,83,84 by LSI*>' 




00180 ; 








2400 


00190 


ORG 


2400H 






00200 ; 










00210 BEGIN 








2400 


00220 


(30CKBRKC 


;Check for break 


2400 3E6A 


00001 


LD 


A, 106 




2402 EF 


00002 


RST 


40 




2403 2804 


00230 


JR 


Z, BEGINA 


;Continue if no Break 


2405 21FFFF 


00240 


LD 


HL,-1 




2408 C9 


00250 
00260 ; 


RET 




; else abort 


2409 D5 


00270 BEGINA 


PUSH 


DE 


;Save DCB address 


240A DDEl 


00280 


POP 


IX 


; in index reg 


240C ED534B26 


00290 


LD 


(PFDCB),DE 


; and in filter header 


2410 


00300 


@@DSPLY 


HELLO$ 


; Wei come the user 




00003 


IFEQ 


01H.1 




2410 212525 


00004 
00005 


LD 
ENDIF 


HL,HELLO$ 




2413 3E0A 


00006 


LD 


A. 10 




2415 EF 


00007 
00310 ; 


RST 


40 






00320 ; 


Check i 


f entry fron 


1 SET command 




00330 ; 








2416 


00340 


(a@FLAGS 




;IY => flag table base 


2416 3E65 


00008 


LD 


A. 101 




2418 EF 


00009 


RST 


40 




2419 FDCB025E 00350 


BIT 


3,(IY+'C'-' 


A' ) ; System request? 


241D CA0525 


00360 
00370 ; 


JP 


Z,VIASET 


;Quit if not 




00380 ; 


Check i 


f filter is 


already resident 




00390 ; 








2420 112125 


00400 


LD 


DE,FF$ 


;Check if filter is 


2423 


00410 


QiaGTMOD 




; already resident 


2423 3E53 


00010 


LD 


A,83 




2425 EF 


00011 


RST 


40 




2426 EB 


00420 


EX 


DE,HL 


;Put DCB ptr to HL 


2427 2023 


00430 
00440 ; 


JR 


NZ, NOTRES 


;Go if not 




00450 ; 


Make sure that the 


new DCB is same as the old 




00460 ; 








2429 ED4B4B26 00470 


LD 


BC,(PFDCB) 


;Replace DCB pointer 


242D 79 


00480 


LD 


A.C 


; with new one 


242E 4E 


00490 


LD 


C,(HL) 


;P/u DCB pointer LSB 


242F 00 


00500 


NOP 






2430 23 


00510 


INC 


HL 




2431 78 


00520 


LD 


A,B 




2432 46 


00530 


LD 


B,(HL) 


;P/u DCB pointer MSB 
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les 


FORMS/FLT 


- LS- 


DOS 6.2 Page 0000 


2433 210600 


00540 


LD 


HL,6 




;Get old DCB name & 


2436 09 


00550 


ADD 


HL,BC 




; stuff into error 


2437 7E 


00560 


LD 


A,(HL) 




; message in case 


2438 2C 


00570 


INC 


L 




; a different DCB 


2439 66 


00580 


LD 


H,(HL) 




; is referenced 


243A 6F 


00590 


LD 


L,A 






243B 22FB25 


00600 


LD 


(DCBNAM$), 


HL 


; Stuff message with sp 


243E B4 


00610 


OR 


H 






243F 2876 


00620 


JR 


Z,ISRES 






2441 2A4B26 


00630 


LD 


HL,(PFDCB] 




;P/u DCB existing DCB 


2444 B7 


00640 


OR 


A 




; pointer 


2445 ED42 


00650 


SBC 


HL,BC 




;Same DCB pointer? 


2447 C20925 


00660 


JP 


NZ.DCBERR 




;Can't install if diff 


244A 186B 


00670 
00680 ; 


JR 


ISRES 








00690 ; 


Module 


is not resi 


dent 






00700 ; 










244C 114B49 


00710 NOTRE S 


LD 


DE,'IK' 






244F 


00720 


(a@GTDCB 






; Locate low memory ptr 


244F 3E52 


00012 


LD 


A, 82 






2451 EF 


00013 


RST 


40 






2452 C21725 


00730 


JP 


NZ.IOERR 




;Quit if not found 


2455 2D 


00740 


DEC 


L 






2456 56 


00750 


LD 


D,(HL) 




;P/u pointer to 


2457 2D 


00760 


DEC 


L 




; start of free 


2458 5E 


00770 


LD 


E,(HL) 




; low core 


2459 ED53A724 00780 


LD 


(LCPTR+1), 


DE 


;Save loc for later 


245D E5 


00790 


PUSH 


HL 




;Save low core ptr 


245E 210101 


00800 


LD 


HL,PFEND-PFFLT 




2461 19 


00810 


ADD 


HL.DE 




;Start + driver length 


2462 E5 


00820 


PUSH 


HL 






2463 2B 


00830 


DEC 


HL 




; Point to last byte 


2464 22DD24 


00840 


LD 


(SVEND+1), 


HL 




2467 010013 


00850 


LD 


BC,1300H 




;Max addr + 1 


246A AF 


00860 


XOR 


A 






246B ED42 


00870 


SBC 


HL,BC 






246D Dl 


00880 


POP 


DE 




;Rcvr new Ic 


246E El 


00890 


POP 


HL 




;Rcvr low core ptr 


246F 382F 


00900 
00910 ; 


JR 


CPUTLOW 




;If room, put low 




00920 ; 


Check i 


f high memory available 




00930 ; 










2471 


00940 


@(3FLAGS 








2471 3E65 


00014 


LD 


A, 101 






2473 EF 


00015 


RST 


40 






2474 FDCB0246 


00950 


BIT 


0,(IY+'C'- 


■'A') 


; Memory frozen? 


2478 C20D25 


00960 


JP 


NZ,NOROOM 




;"No memory... 


247B 210000 


00970 


LD 


HL,0 




;Get HIGH$ 


247 E 45 


00980 


LD 


B,L 






247F 


00990 


(a@HIGH$ 








247F 3E64 


00016 


LD 


A, 100 






2481 EF 


00017 


RST 


40 






2482 22DD24 


01000 


LD 


(SVEND+1), 


HL 


;Save for relocator 


2485 5D 


01010 


LD 


E,L 




;Xfer new last 


2486 54 


01020 


LD 


D,H 




; to reg DE 


2487 AF 


01030 


XOR 


A 




;Calc new start 


2488 010101 


01040 


LD 


BC,PFEND-PFFLT 


;BC = filter len 


248B ED42 


01050 


SBC 


HL,BC 






248 D 0600 


01060 


LD 


B,0 






248F 


01070 


@(aHIGH$ 






;Set new HIGH$ 


248F 3E64 


00018 


LD 


A, 100 
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Page 00003 



2491 EF 

2492 23 

2493 EB 

2494 D5 

2495 CDD624 

2498 Dl 

2499 3EFF 
249 B 32G824 
249E 1809 



24A0 73 
24 Al 2C 
24A2 72 
24A3 CDD624 
24A6 110000 



24A9 D5 
24AA 214326 
24AD 010101 
24B0 EDB0 
24B2 Dl 
24B3 FDCB03EE 

24B7 21FE25 
24BA DD360047 
24BE DD7301 
24C1 DD7202 
24C4 



24C4 3E0C 
24C6 EF 
24C7 3E00 
24 C8 
24C9 B7 
24CA 2806 
24CC 211B26 
24 CF 



24 CF 3E0C 
24 Dl EF 
24 D2 210000 
24D5 C9 



24 D6 DDES 
24D8 DD214427 
24 DC 210000 
24DF 224526 
24E2 114327 
24E5 B7 
24E6 ED52 
24 E8 44 



00019 

01080 

01090 

01100 

01110 

01120 

01130 

01140 

01150 

01160 ; 

01170 ; 

01180 ; 

01190 PUTLOW 

01200 

01210 

01220 

01230 LCPTR 

01240 ; 

01250 ; 

01260 ; 

01270 MOVMOD 

01280 

01290 

01300 

01310 

01320 

01330 ; 

01340 ISRES 

01350 

01360 

01370 

01380 



00021 

00022 

00023 

00024 

01390 

01400 HGHFLG 

01410 

01420 

01430 

01440 

00025 

00026 

00027 

00028 

00029 

01450 NTHGH 

01460 

01470 ; 

01480 ; 

01490 ; 

01500 RELO 

01510 

01520 SVEND 

01530 

01540 

01550 

01560 

01570 



RST 

INC 

EX 

PUSH 

CALL 

POP 

LD 

LD 

JR 



40 

HL 

DE,HL 

DE 

RELO 

DE 

A,0FFH 

(HGHFLG), A 

WVMOD 



; Point to new start 
;Re1ocate internal references 



;Flag to notify user 
: hi mem used 



Room in low core - move driver low 



LD (HL),E 

INC L 

LD (HL),D 

CALL RELO 

LD DE,$-$ 

Move module to memory 



PUSH 

LD 

LD 

LDIR 

POP 

SET 



; Stuff low core ptr 
; with new low 

;Relocate vectors 
;Low core pointer 



;Save start 



DE 

HL,PFFLT 

BC.PFEND-PFFLT ;Calc driver length 

DE ;Pop filter start 

5,(IY+'D'-'A') ;Set PF in DFLAG$ 



LD 

LD 

LD 

LD 

@@LOGOT 

IFEQ 00H,1 



HL,PFACT$ 
(IX),40H!7 
(IX+1),E 
(IX+2),D 



;Init "FORMS installed 
jinit DCB type to "C/P/G" 
; & filter & stuff the 
; filter address 
;Display installation 



HL, 



LD 

ENDIF 

LD 

RST 

LD 

EQU 

OR 

JR 

LD 

(a(3L0G0T 

IFEQ 00H,1 



A, 12 

40 

A,$-$ 

$-1 

A 

Z, NTHGH 

HL,HMEM$ 



;Flag filter went high 
;Skip if not set 

: else show "Went in hi mem 



LD 

ENDIF 

LD 

RST 

LD 

RET 



HL, 

A, 12 

40 

HL,0 



;No error 

;Done, back to user 



Relocate internal references in driver 



PUSH 

LD 

LD 

LD 

LD 

OR 

SBC 

LD 



IX 

IX,RELTAB 

HL,$-$ 

(PFFLT+2),HL 

DE,PFEND-1 

A 

HL,DE 

B,H 



;Point to relocation tbl 
;Find distance to move 
;Set last byte used 

;Clear carry flag 

;Move to BC 
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UTILITY Fi 


les 


FORMS/FLT - LS 


-DOS 6.2 Page 0000 


24E9 4D 


01580 




LD 


C,L 




24 EA 3E0E 


01590 




LD 


A,TABLEN 


;Get table length 


24 EC DD6E00 


01600 RLOOP 


LD 


L,(IX) 


;Get address to change 


24EF DD6601 


01610 




LD 


H,(IX+1) 




24F2 5E 


01620 




LD 


E.(HL) 


;P/U address 


24F3 23 


01630 




INC 


HL 




24F4 56 


01640 




LD 


D,(HL) 




24F5 EB 


01650 




EX 


DE,HL 


; Off set it 


24F6 09 


01660 




ADD 


HL,BC 




24F7 EB 


01670 




EX 


DE,HL 




24F8 72 


01680 




LD 


(HL).D 


;Put it back 


24F9 2B 


01690 




DEC 


HL 




24FA 73 


01700 




LD 


(HL),E 




24FB DD23 


01710 




INC 


IX 




24FD DD23 


01720 




INC 


IX 




24FF 3D 


01730 




DEC 


A 




2500 20EA 


01740 




JR 


NZ.RLOOP 


;Loop till done 


2502 DDEl 


01750 




POP 


IX 




2504 C9 


01760 
01770 




RET 








01780 




Error exits 






01790 










2505 21B025 


01800 VIASET 


LD 


HL.VIASET$ 


;" Install with Set 


2508 DD 


01810 




DB 


0DDH 




2509 21DF25 


01820 


DCBERR 


LD 


HL,DCBERR$ 


;"Filter in use 


250C DD 


01830 




DB 


0DDH 




250D 21C525 


01840 


NOROOM 


LD 


HL,NOROOM$ 


;" Memory frozen 


2510 


01850 




@@LOGOT 




;Show the error 




00030 




IFEQ 


00H,1 






00031 




LD 


HL. 






00032 




ENDIF 






2510 3E0C 


00033 




LD 


A. 12 




2512 EF 


00034 




RST 


40 




2513 21FFFF 


01860 




LD 


HL,-1 


;Set abort code 


2516 C9 


01870 
01880 


» 


RET 






2517 6F 


01890 


lOERR 


LD 


L,A 


; Error # to HL 


2518 2600 


01900 




LD 


H.0 




251A F6C0 


01910 




OR 


0C0H 


;Abbrev, return 


251C 4F 


01920 




LD 


C,A 


; Error code to C 


251D 


01930 




(3@ERR0R 




; for error display 


251D 3E1A 


00035 




LD 


A. 26 




251F EF 


00036 




RST 


40 




2520 C9 


01940 
01950 




RET 








01960 




Messages & Data tables 






01970 










2521 24 


01980 FF$ 


DB 


'$FF',3 




46 46 03 












2525 46 


01990 HELLO$ 


DB 


•FORMS Filter' 




4F 52 4D 


53 20 46 69 6C 






74 65 72 












2531 


02000 


*GET 


CLIENT: 


3 






03950 


;CLIENTS/ASM - 


File to establish sign-on headers 




03960 


» 








2531 20 


03970 




DB 


• - 6.2.0 - Copyright 1982/83/84 by Lo( 


2D 20 36 


2E 32 


2E 30 20 






2D 20 43 


6F 70 79 72 69 






67 68 74 


20 31 


39 38 32 






2F 38 33 


2F 38 


34 20 62 






79 20 4C 6F 67 


69 63 61 
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Page 00005 



6C 
255B 20 

53 79 
20 49 
20 20 

2570 41 

6C 6C 

73 20 
65 64 
6E 73 
32 2F 

2598 20 

74 6F 
78 78 
78 78 

25B0 4D 

75 73 
61 6C 
53 45 

25C5 4E 

6F 20 
20 73 

76 61 
0D 

25 DF 46 

69 6C 

72 65 

74 61 

6F 20 

25FB 

25 FE 46 

6F 72 

74 65 

6F 77 

65 6E 

261 B 0A 

4E 6F 

6C 74 

74 61 

6E 20 

65 6D 



03980 
73 74 65 
6E 63 2E 
20 0A 

03990 



DB 



6D 73 2C 
20 20 20 



' Systems, Inc. 



,10 



DB 



0003 
0000 
000A 



2643 1814 
2645 4327 
2647 03 

24 46 



20 52 69 
52 65 73 
2E 20 4C 
65 64 20 
38 33 2F 

04010 
20 78 78 
78 78 78 
78 78 78 

02010 

02020 
74 20 69 
6C 20 76 
54 0D 

02030 
6D 65 6D 
70 61 63 
69 6C 61 

02040 
74 65 72 
61 64 79 
63 68 65 
2A 78 78 
02050 
02060 
6D 73 20 
72 20 69 
20 72 65 
74 0D 

02070 

74 65 3A 

65 72 20 

6C 6C 65 

68 69 67 

6F 72 79 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

46 



DB 



67 68 74 

65 72 76 

69 63 65 

31 39 38 
38 34 

78 78 78 

78 78 78 
0A 0D 



VIASET$ DB 
6E 73 74 
69 61 20 

NOROOM$ DB 
6F 72 79 

65 20 61 
62 6C 65 

DCBERR$ DB 
20 61 6C 
20 61 74 
64 20 74 
0D 

DCBNAM$ EQU 
PFACT$ DB 

66 69 6C 
73 20 6E 
73 69 64 

HMEM$ DB 
20 66 69 
69 6E 73 
64 20 69 
68 20 6D 
2E 0D 



'All Rights Reserved. Licensed 1982/83/84' 



' to xxxxxxxxxxxxxxxxxx' ,10,13 



'Must install via SET',CR 



No memory space available' ,CR 



"Filter already attached to *xx',CR 



$-3 

'Forms filter is now resident',CR 



LF,'Note: filter installed in high memory. ',CR 



Printer Filter - PF 

Provides hard or soft form feed, line wraparound, 
automatic form feeds between pages, tabs, blank 
lines, 1 byte translation table, left margins, 
and set-top-of-form character. 



*MOD 
PFBIT 
SPLBIT EQU 



EQU 



LF 
CR 



EQU 
EQU 



PFFLT JR 
DW 
DB 



3 


10 
13 

PFBGN 

PFEND-1 

3,'$FF' 



;Position in DFLAG 
;Position in DFLAG 



; Branch around header 
;Last byte used 
;Name length/name 
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UTILITY Fi 


les 


FORMS/FLT - LS- 


DOS 6.2 ^ Page 00006 


264B 0000 


02250 PFDCB 


DW 


$-$ 


;Link to DCB 


264 D 0000 


02260 
02270 ; 


DW 









02280 ; 


Filter 


data area 






02290 ; 








264F 


02300 PFDATA$ EQU 


$ 




0000 


02310 PMAX 


EQU 


$-PFDATA$ 




264F 42 


02320 


DB 


66 


;Page size (max lines per page) 


0001 


02330 LCOUNT 


EQU 


$-PFDATA$ 




2650 00 


02340 


DB 





;Line counter 


0002 


02350 LMAX 


EQU 


$-PFDATA$ 




2651 42 


02360 


DB 


66 


;Max lines to print 


0003 


02370 CCOUNT 


EQU 


$-PFDATA$ 




2652 00 


02380 


DB 





; Chars per line printed 


0004 


02390 XLl 


EQU 


$-PFDATA$ 




2653 00 


02400 


DB 





;Translate from 


0005 


02410 XL2 


EQU 


$-PFDATA$ 




2654 00 


02420 


DB 





; Trans late to 


0006 


02430 INDENT 


EQU 


$-PFDATA$ 




2655 00 


02440 


DB 





; Indent after line wraparound 


0007 


02450 ADDLF 


EQU 


$«PFDATA$ 




2656 04 


02460 
02470 


DB 


4 


;Bit-0, LF after CR; bit-l=FF 
;Bit-2, TAB expand (1) 


0008 


02480 CMAX 


EQU 


$-PFDATA$ 




2657 00 


02490 


DB 





;Max CPL before wraparound 


0009 


02500 MARGIN 


EQU 


$-PFDATA$ 




2658 00 


02510 
02520 ; 


DB 





;Left hand margin 




02530 ; ■ 


Start { 


3f filter 






02540 ; 








2659 281A 


02550 PFBGN 


JR 


Z, FFENTRY 


;Go if @PUT 


265B 11 


02560 


DB 


011H 


; Ignore next inst if not 


265C 0602 


02570 PFPUT 


LD 


B,2 


;Init for @PUT 


265E DDE5 


02580 


PUSH 


IX 




2660 DD2A4B26 


02590 


LD 


IX, (PFDCB) 


;Grab the DCB vector 


2662 


02600 RX01 


EQU 


$-2 




2664 


02610 


eiaCHNIO 


; & chain to it 


2664 3E14 


0^037 


LD 


A, 20 




2666 EF 


00038 


RST 


40 




2667 DDEl 


02620 


POP 


IX 




2669 C9 


02630 
02640 ; 


RET 








02650 ; 


Peform 


the tab function 






02660 ; 








266A DD7E03 


02670 DOTAB 


LD 


A,(IX+CCOUNT) 


;How many spaces to 


266D E607 


02680 


AND 


7 


; next tab stop? 


266 F D608 


02690 


SUB 


8 




2671 ED44 


02700 


NEG 






2673 1867 


02710 
02720 ; 


JR 


(^INDENT 


; Space over to it 




02730 ; 


Filter 


code 






02740 ; 








2675 DD214F26 


02750 FFENTRY LD 


IX,PFDATA$ 


;Base register 


2677 


02760 RX02 
02770 ; 


EQU 


$-2 




2679 DD7E04 


02780 CKXLAT 


LD 


A,(IX+XL1) 


;Get xlate in 


267C 89 


02790 


CP 


C 


;Translate this char? 


26 7 D 2004 


02800 


JR 


NZ,CONT 


;Go if not xlated char 


267F DD7E05 


02810 


LD 


A,(IX+XL2) 


;Xlated to this 


2682 4F 


02820 


LD 


C,A 




2683 79 


02830 CONT 


LD 


A,C 


;P/u char to test 
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UTILITY Fi 


les 


FORMS/FLT - LS- 


■DOS 6.2 Page 00007 


2684 FE0C 


02840 


CP 


0CH 


;Form feed? 


2686 CA1B27 


02850 


JP 


Z,[X)TOF 




2687 


02860 RX14 


EQU 


$-2 




2689 FE06 


02870 


CP 


6 


;SET TOF? 


268B CA3E27 


02880 


JP 


Z,SETTOF 




268C 


02890 RX03 


EQU 


$-2 




268E FE0D 


02900 


CP 


CR 


;CR? 


2690 287A 


02910 


JR 


Z,[X)CRLF 




2692 FE0A 


02920 


CP 


LF 


;LF? 


2694 2876 


02930 


JR 


Z,DOCRLF 




2696 DD7E09 


02940 


LD 


A,(IX+MARGIN) 


;Left margin to do? 


2699 87 


02950 


OR 


A 




26 9A 280 B 


02960 


JR 


Z,NOMARG 


;Go if not 


269C DD3403 


02970 


INC 


(IX+CCOUNT) 


;Check current char count 


269F DD3503 


02980 


DEC 


(IX+CCOUNT) 


;If at newline^ 


26A2 C5 


02990 


PUSH 


BC 




26A3 CCDC26 


03000 


CALL 


Z,@INDENT 


; need a margin now 


26A4 


03010 RX13 


EQU 


$-2 




26A6 CI 


03020 


POP 


BC 




26A7 79 


03030 NOMARG 


LD 


A,C 


;P/u character again 


26A8 DDCB0756 


03040 


BIT 


2,(IX+ADDLF) 


;Expand tabs? 


26AC 2804 


03050 


JR 


Z, CONTA 




26 AE FE09 


03060 


CP 


9 


;Tab? 


26B0 28B8 


03070 


JR 


Z,1X)TAB 




26B2 FE20 


03080 CONTA 


CP 


20H 


;Other control code? 


26B4 38A6 


03090 
03100 ; 


JR 


CPFPUT 


;Pass on unchanged if so 




03110 ; 


Got a 


character to output 




03120 ; 








26B6 C5 


03130 PUTCHAR 


PUSH 


BC 


;Save character 


26B7 CDC026 


03140 


CALL 


SETUP 


; Setup for next char 


26B8 


03150 RX12 


EQU 


$-2 




26BA CI 


03160 


POP 


BC 




26BB C0 


03170 


RET 


NZ 


;Quit on error 


26BC CC5C26 


03180 


CALL 


Z^PFPUT 


;Now put the char 


26BD 


03190 RX04 


EQU 


$-2 




26BF C9 


03200 
03210 ; 


RET 








03220 ; 


Do the 


1 end of line check 




03230 ; 








26C0 DD3403 


03240 SETUP 


INC 


(IX+CCOUNT) 


;Inc char counter 


26C3 DD7E08 


03250 


LD 


A,(IX+CMAX) 


;Wraparound needed? 


26C6 A7 


03260 


AND 


A 




26C7 C8 


03270 


RET 


Z 


;Quit if feature is off 


26C8 DDBE03 


03280 


CP 


(IX+CCOUNT) 




26CB 3075 


03290 


JR 


NC,EXITZ 


;Done if not needed 


26CD CD0C27 


03300 


CALL 


DOCRLF 


;Do carriage return 


26CE 


03310 RX05 


EQU 


$-2 




26D0 C0 


03320 


RET 


NZ 




26D1 DD3403 


03330 
03340 ; 


INC 


(IX+CCOUNT) 


;Adjust char counter 




03350 ; 


Check 


on indent needed 






03360 ; 








26D4 DD7E06 


03370 


LD 


A,(IX+INDENT) 


;P/u indent 


26 D7 DD8609 


03380 


ADD 


A,(IX+MARGIN) 


;Add in the MARGIN 


26 DA B7 


03390 


OR 


A 




26 DB C8 


03400 


RET 


Z 


;Done if none 


26DC C5 


03410 ©INDENl 


■ PUSH 


BC 


;In case of recursive 


26 DD 47 


03420 


LD 


B,A 


; calls 


26DE 0E20 


03430 


LD 


C,' ' 


;Print spaces 


26E0 C5 


03440 SPACES 


PUSH 


BC 


;Save counter 
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UTILITY Fi 


les 


FORMS/FLT - LS- 


-DOS 5o2 Page 00008 


26E1 AF 


03450 


XOR 


A 




26E2 CDB626 


03460 


CALL 


PUTCHAR 


;Put the character 


26 E3 


03470 RX06 


EQU 


$-2 




26E5 CI 


03480 


POP 


BC 


;Recover counter 


26 E6 2002 


03490 


JR 


NZ,$+4 


;Exit on PUT error 


26E8 10F6 


03500 


DJNZ 


SPACES 




26EA CI 


03510 


POP 


BC 




26 EB C9 


03520 


RET 






26 EC DDCB0746 


03530 LINFEED 


BIT 


0,(IX+ADDLF) 




26F0 2808 


03540 


JR 


Z, DOWNl 


;Go if hardware auto-LF 


26F2 0E0D 


03550 


LD 


C,CR 


;Else do CR and LF 


26F4 CD5C26 


03560 


CALL 


PFPUT 




26F5 


03570 RXll 


EQU 


$-2 




26F7 C0 


03580 


RET 


NZ 




26F8 1808 


03590 


JR 


DOWNLF 




26 FA DD7E03 


03600 DOWNl 


LD 


A,(IX+CCOUNT) 




25FD A7 


03610 


AND 


A 


;Line empty? 


26FE 0E0D 


03620 


LD 


C,CR 


;Do CR if not 


2700 2002 


03630 


JR 


NZ.DOWNCR 




2702 0E0A 


03640 DOWNLF 


LD 


C,LF 


;Do LF if so 


2704 CD5C26 


03650 DOW NCR 


CALL 


PFPUT 




2705 


03660 RX07 


EQU 


$-2 




2707 DD360300 03670 


LD 


(IX+CCOUNT) J 


; Starting new line 


270B C9 


03680 
03690 ; 


RET 






270C CDEC26 


03700 DOCRLF 


CALL 


LINFEED 


;CRLF & check if page eni 


270D 


03710 RX08 


EQU 


$-2 




270F C0 


03720 
03730 ; 


RET 


NZ 




2710 DD3401 


03740 


INC 


(IX+LCOUNT) 




2713 DD7E01 


03750 


LD 


A,(IX+LCOUNT) 


;Time to do form feed? 


2716 DDBE02 


03760 


CP 


(IX+LMAX) 




2719 3827 


03770 
03780 ; 


JR 


C, EXITZ 


; Return if not 


271B DD7E00 


03790 DOTOF 


LD 


A,(IX-fPMAX) 


;How many lines to feed? 


271E DD9601 


03800 


SUB 


(IX+LCOUNT) 




2721 281B 


03810 


JR 


Z, SETTOF 


;Skip if zero 


2723 C5 


03820 


PUSH 


BC 


;In case called by DOTAB 


2724 47 


03830 


LD 


B,A 




2725 DDCB074E 03840 


BIT 


1,(IX+ADDLF) 


; Hardware form feed? 


2729 2807 


03850 


JR 


Z, SOFTFF 


;Go if not 


272B 0E0C 


03860 


LD 


CJCH 


; else load up TOF char 


272D CD5C26 


03870 


CALL 


PFPUT 


; and send it 


272E 


03880 RX09 


EQU 


$-2 




2730 180B 


03890 


JR 


FFEXIT 




2732 C5 


03900 SOFTFF 


PUSH 


BC 




2733 CDEC26 


03910 


CALL 


LINFEED 


;Do LF's 


2734 


03920 RX10 


EQU 


$-2 




2736 CI 


03930 


POP 


BC 




2737 2802 


03940 


JR 


Z, CHRGONE 


;This linefeed sent OK 


2739 CI 


03950 


POP 


BC 


; else clean stack 


273A C9 


03960 


RET 




; and return error 


273B 10F5 


03970 CHRGONE 


DJNZ 


SOFTFF 




273D CI 


03980 FFEXIT 
03990 ; 


POP 


BC 






04000 ; 


Set the 


: top-of-form 






04010 ; 








273E DD360100 04020 SETTOF 


LD 


( IX+LCOUNT), 


;Reset line counter 


2742 BF 


04030 EXITZ 


CP 


A 




2743 C9 


04040 
04050 ; 


RET 
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2744 04060 PFEND EQU $ 

04070 ; 

2744 6226 04080 RELTAB DW RX01,RX02,RX03,RX04,RX05,RX06,RX07,RX08 

7726 8C26 BD26 CE26 E326 0527 0D27 

2754 2E27 04090 DW RX09,RX10,RX11,RX12,RXB,RX14 

3427 F526 B826 A426 8726 

000E 04100 TABLEN EQU $-RELTAB/2 

04110 ; 

2400 04120 END BEGIN 
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UTILITY Files 


FORMS/FLT - LS-DOS 


6.2 


mi 


0000 002 


0000 003 


0000 


@@4 


0000 INDENT 


26 DC 0MOD2 


0000 


@M0D4 


FFFF 


ADDLF 


0007 BEGIN 


2400 


BEGINA 


2409 


CCOUNT 


0003 CHRGONE 


273B 


CKXLAT 


2679 


CMAX 


0008 CONT 


2683 


CONTA 


26B2 


CR 


000D DCBERR 


2509 


DCBERR$ 


25DF 


DCBNAMS 


25FB DOCRLF 


270C 


OOTAB 


266A 


DOTOF 


271B DOWNl 


26FA 


DOWNCR 


2704 


DOWNLF 


2702 EXITZ 


2742 


FF$ 


2521 


FFENTRY 


2675 FFEXIT 


273D 


HELLO$ 


2525 


HGHFLG 


24C8 HMEM$ 


261B 


INDENT 


0006 


lOERR 


2517 ISRES 


24B7 


LCOUNT 


0001 


LCPTR 


24A6 LF 


000A 


LINFEED 


26EC 


LMAX 


0002 MARGIN 


0009 


MOVMOD 


24A9 


NOMARG 


26A7 NOROOM 


250D 


NOROOM$ 


25C5 


NOTRES 


244C NTHGH 


24 D2 


REACTS 


25FE 


PFBGN 


2659 PFBIT 


0003 


PFDATA$ 


264F 


PFDCB 


264B PFEND 


2744 


PFFLT 


2643 


PFPUT 


265C PMAX 


0000 


PUTCHAR 


26B6 


PUTLOW 


24A0 RELO 


24 D6 


RELTAB 


2744 


RLOOP 


24EC RX01 


2662 


RX02 


2677 


RX03 


268C RX04 


26BD 


RX05 


26CE 


RX06 


26 E3 RX07 


2705 


RX08 


270D RX09 


272E RX10 


2734 


RXll 


26F5 


RX12 


26B8 RX13 


26A4 


RX14 


2687 


SETTOF 


273E SETUP 


26C0 


SOFTFF 


2732 


SPACES 


26E0 SPLBIT 


0000 


SVEND 


24 DC 


TABLEN 


000E VIASET 


2505 


VIASETS 


25B0 XLl 


0004 XL2 


0005 


(a(3AB0RT 


8FAE 


00ADTSK 


9041 00BANK 


9559 


@@BKSP 


9239 


00BREAK 


956F 00CHNIO 


8F99 


(a@CKBRKC 


95BD 


00CKDRV 


9095 00CKEOF 


924E 


0@CKTSK 


902C 00CLOSE 


9224 00CLS 


95 A7 


@@CMNDI 


8FD8 


00CMNDR 


8FED 00CTL 


8DFD 


@(3DATE 


8F6F 


00DCSTAT 


90D4 00DEBUG 


9017 


@@DECHEX 


94 D9 


00DIRRD 


9446 00DIRWR 


945 B 


0@DIV16 


94C4 00DIV8 


94AF 00DODIR 


90AA 


0(3 DSP 


8DC1 


00DSPLY 


8E61 00ERROR 


9002 


@@EXIT 


8FC3 00FEXT 


93B3 00FLAGS 


9543 


©(ciFNAME 


93C8 00FSPEC 


939E 00GATRD 


9431 


@@GATWR 


9470 00GET 


8DD5 00GTDCB 


93F2 


0@GTDCT 


93 DD 


00GTMOD 


9407 00HDFMT 


917C 


@(3HEX16 


9518 


00HEX8 


9503 00HEXDEC 


94EE 


0@HIGH$ 


952D 


00INIT 


91 FA 00KBD 


8E39 


@(aKEY 


8DAD 


00KEYIN 


8E4D 00KLTSK 


9080 


@@LOAD 


9374 


00LOC 


9263 00LOF 


9278 


@(3L0GER 


8E98 


00LOGOT 


8EAD 00MSG 


8EE4 


@(3MUL16 


949A 


00MUL8 


9485 00OPEN 


920F 


@@PARAM 


8F5A 00 PAUSE 


8F45 00PEOF 


928 D 


laiapOSN 


92 A2 00 PR I NT 


8EF9 00PRT 


8E11 


00 PUT 


8DE9 00RAMDIR 


90F 00RDSEC 


9152 


00RDSSC 


941C 


00READ 


92B7 00REMOV 


91E5 


00 RE NAM 


91D0 00REW 


92CC 00RMTSK 


9056 


00RPTSK 


906B 00RREAD 


92E1 00RSLCT 


913D 


00RSTOR 


90FE 


00 RUN 


9389 00RWRIT 


92F6 


00 SEEK 


9128 


00SEEKSC 


930 B 00 SKIP 


9320 


00SLCT 


90E9 00 STEP I 


9113 00TIME 


8F84 


00VDCTL 


8F30 00VER 


9335 00VRSEC 


9167 


00WEOF 


934A 


00WHERE 


8E25 00WRITE 


935F 


00WRSEC 


9191 


00WRSSC 


91A6 00WRTRK 


91 BB 



Page 00010 



Page 213 



The Source UTILITY Files FORMS/FLT - LS-DOS 6.2 Page 00011 



2400 is the transfer address 
Total errors 
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KSH/FLT - Keystroke multiply filter 

The KSM filter allows multiple characters or lines to be assigned to an alphabetic 
key. It must be installed with the SET and FILTER Library commands. It will install 
in high memory, and will not attempt to use the low driver zone. 
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Page 00001 



000A 
000 D 

0000 



m{ 



2400 
2400 
2402 
2403 
2405 
2408 

2409 
240D 
240E 



3E6A 

EF 

2804 

21FFFF 

C9 

ED53CA27 
E5 



00110 
00120 
00130 
00140 
00150 
00160 
00010 
00020 
03900 
00170 
03920 
03930 
03940 
00180 
00190 
00200 
00210 
00220 
00001 



;KSM/ASM - Keystroke Multiply Filter 

TITLE <KSM/FLT - LS-DOS 6.2> 



LF 
CR 



EQU 
EQU 



10 
13 



*GET SVCMAC:3 



;SVC Macro equivalents 



;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*GET C0PYC0M:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



KSM 



00230 
00240 
00250 
00260 
00270 
00280 
00290 



KSMA 



240E 217225 



2411 
2413 
2414 
2414 
2416 
2417 



2418 
241C 
241F 
2422 
2422 
2424 
2425 
2428 
2429 
242 C 
242C 
242E 
242F 
2430 
2433 
2436 
2436 
2438 



3E0A 
EF 

3E55 

EF 

El 



FDCB025E 

CA4B25 

11A126 

3E4E 

EF 

C25725 

D5 

119626 

3E11 

EF 

Dl 

C26325 

217225 

3E4F 
EF 



00005 
00006 
00007 
00300 



00009 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00010 

00011 

00390 

00400 

00410 

00420 

00012 

00013 

00430 

00440 

00450 

00460 

00014 

00015 

00470 

00480 

00490 



COM 


'<*(C) 1982,83,^ 


J4 by LSI*>* 


ORG 


2400H 




(a@CKBRKC 




;Check for break 


LD 


'a, 106 




RST 


40 




JR 


Z.KSMA 


;Contine if not 


LD 


HL,-1 


; else abort 


RET 






LD 


(KSMDCB),DE 


;Save ptr to DCB 


PUSH 


HL 


;Save ptr to cmdline buf 


@@DSPLY 


HELLO$ 


; Display copyright msg 


IFEQ 


0lHa 




LD 


HL,HELLO$ 




ENDIF 






LD 


Aa0 




RST 


40 




0(3FLAGS 




;Get flags 


LD 


Aa01 




RST 


40 




POP 


HL 


;Rcvr cmndline pointer 


Check i- 


f entry from SET 


command 


BIT 


3,(IY+'C'-'A') 


; System request? 


JP 


Z,VIASET 


;Quit if not 


LD 


DE.KSMFCB 


; Point to FCB 


eiBFSPEC 




;Fetch the KSM filespec 


LD 


A, 78 




RST 


40 




JP 


NZ,SPCREQ 


;Jump on bad spec 


PUSH 


DE 


;Save FCB pointer 


LD 


DE,PRMTBL$ 


;Load par am table pointer 


(913 PAR AM 




;Parse parms 


LD 


Aa7 




RST 


40 




POP 


DE 


;Recover FCB pointer 


JP 


NZ,IOERR 


;Go on parm error 


LD 


HL,DFTKSM 


;Init to default ext 


(3(3FEXT 




;Fetch if not entered 


LD 


A, 79 




RST 


40 





Transfer requested ENTER char to test loc 
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2439 213B00 


00500 EPARM 


LD 


HL,';' 


; set default ";" 


243C 3A9D26 


00510 


LD 


A,(ERSP) 


;Test parm response 


243F CB77 


00520 


BIT 


6,A 


;Flag is no good! 


2441 C26125 


00530 


JP 


NZ.PRMERR 




2444 CB6F 


00540 


BIT 


5, A 


;Test string or value 


2446 7E 


00550 


LD 


A,(HL) 


;P/u assumed string 


2447 2001 


00560 


JR 


NZ,$+3 


;Go if string entry 


2449 7D 


00570 


LD 


A,L 


;P/u hex or dec entry 


244A 321328 


00580 


LD 


(ECHAR+1),A 


; Stuff it in there 


244 D D5 


00590 


PUSH 


DE 




244E 116D25 


00600 


LD 


DE,KSM$ 


; Check if filter is 


2451 


00610 


@@GTMOD 


1 


; already resident 


2451 3E53 


00016 


LD 


A, 83 




2453 EF 


00017 


RST 


40 




2454 227D24 


00620 


LD 


(KSMMEM+1),HL 


; Stuff start 


2457 EB 


00630 


EX 


DE.HL 


;Put DCB ptr to HL 


2458 Dl 


00640 


POP 


DE 




2459 202C 


00650 
00660 ; 


JR 


NZ, OPENKSM 


;Go if not 




00670 ; 


Make sure that the new 


DCB is same as the old 




00680 ; 








245B E5 


00690 


PUSH 


HL 


;Save where to stuff 


245C 4E 


00700 


LD 


C,(HL) 


;P/u DCB pointer LSB 


245 D 23 


00710 


INC 


HL 




245 E 46 


00720 


LD 


B,(HL) 


;P/u DCB pointer MSB 


245F 210600 


00730 


LD 


HL,6 


;6et old DCB name & 


2462 09 


00740 


ADD 


HL.BC 


; stuff into error 


2463 7E 


00750 


LD 


A,(HL) 


; message in case 


2464 2C 


00760 


INC 


L 


; a different DCB 


2465 66 


00770 


LD 


H,(HL) 


; is referenced 


2466 6F 


00780 


LD 


L,A 




2467 227226 


00790 


LD 


(DCBNAM$),HL 




246A B4 


00800 


OR 


H 


;If DCB name is null ^ 


246B 2ACA27 


00810 


LD 


HL,(KSMDCB) 




246E E5 


00820 


PUSH 


HL 


;Save pointer to stuff 


246F 2803 


00830 


JR 


Z, UPDPTR 


; then OK to use 


2471 B7 


00840 


OR 


A 




2472 ED42 


00850 


SBC 


HL.BC 


;Same DCB pointer? 


2474 CI 


00860 UPDPTR 


POP 


BC 


;Rcvr pointer to stuff 


2475 El 


00870 


POP 


HL 


;Rcvr address to put poin 


2476 C24F25 


00880 
00890 ; 


JP 


NZ.DCBERR 


;Quit if fi Iter in use 




00900 ; 


Same DCB - Okay to stuff 




00910 ; 








2479 71 


00920 


LD 


(HL),C 


; Store the DCB pointer 


247A 23 


00930 


INC 


HL 




247B 70 


00940 


LD 


(HL),B 




247 C 210000 


00950 KSMMEM 


LD 


HL,$-$ 


;If res, ptr to start 


247F 015200 


00960 


LD 


BC,ECHAR-DVRBGN+1 


2482 09 


00970 


ADD 


HL,BC 


;Resident, stuff ECHAR 


2483 3A1328 


00980 


LD 


A,(ECHAR+1) 


; where it is in memory 


2486 77 


00990 


LD 


(HL),A 


; Stuff in upper mem 


2487 21C126 


01000 OPENKSM LD 


HL.KSMBUF 


;Pt to buffer area 


248A 0600 


01010 


LD 


BJ 


;Init LRL=256 


248 C 


01020 


(a@OPEN 




;Open the file 


248C 3E3B 


00018 


LD 


A, 59 




248E EF 


00019 


RST 


40 




248F C26325 


01030 


JP 


NZ,IOERR 


;Jump on open error 


2492 212128 


01040 


LD 


HL,DVREND 


; Place file in memory 1st 


2495 061A 


01050 


LD 


B,26 


;Init for 26 lines 


2497 


01060 KSMl 


(3@GET 




;Get a char from file 
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2497 3E03 


00020 


LD 


A,3 




2499 EF 


00021 


RST 


40 




249A ZmC 


01070 


JR 


NZ,KSM2 ; 


Jump on error 


249C 77 


01080 


LD 


(HL).A ; 


Stuff into memory 


249 D 23 


01090 


INC 


HL ; 


Inc memory pointer 


249E FE0D 


01100 


CP 


CR ; 


Found end-of-line? 


24A0 20F5 


01110 


JR 


NZ,KSM1 ; 


Loop if not 


24A2 mS 


01120 


DJNZ 


KSMl ; 


Decrement the A-Z loop 


24 A4 2B 


01130 


DEC 


HL ; 


Backup over last CR & 


24A5 04 


01140 


INC 


B ; 


adjust for one more 


24A6 3E1C 


01150 


LD 


A, ICH ; 


No error here, just EOF 


24A8 F5 


01160 KSM2 


PUSH 


AF ; 


Save error code 


24A9 


01170 


@@CLOSE 




Close the file 


24A9 3E3C 


00022 


LD 


A, 60 




24AB EF 


00023 


RST 


40 




24 AC Fl 


01180 


POP 


AF 




24 AD FEIC 


01190 


CP 


ICH ; 


Ck for eof 


24AF C26325 


01200 


JP 


NZ,IOERR ; 


Jump on not eof error 


24B2 360D 


01210 KSM3 


LD 


(HL),CR 


End with a <ENTER> 


24B4 23 


01220 


INC 


HL ; 


For all remaining 


24B5 laFB 


01230 


DONZ 


KSM3 


"letters" not entered 


24B7 DD2ACA27 


01240 


LD 


IX,(KSMDCB) ; 


Rcvr user DCB entry 


24BB 112128 


01250 


LD 


DE,DVREND 


Calculate the length 


24 BE AF 


01260 


XOR 


A 


of the KSM file just 


24BF ED52 


01270 


SBC 


HL,DE 


, loaded 


24C1 44 


01280 


LD 


B,H 


;Xfer length 


24C2 4D 


01290 


LD 


C,L 




24C3 2A7D24 


01300 


LD 


HL,(KSMMEM+1) 


If not previously res. 


24C6 7D 


01310 


LD 


A,L 


; move to HIGH$ 


24 C7 B4 


01320 


OR 


H 




24C8 281E 


01330 


JR 


Z, MOVTOHI 




24CA C5 


01340 


PUSH 


BC 


;Save length 


24CB E5 


01350 


PUSH 


HL 


;Save old start 


24 CC 09 


01360 


ADD 


HL,BC 


; Start + data 


24CD 3812 


01370 


JR 


C.KSM3A 


;Bad if wrap past 


24CF 016100 


01380 


LD 


BC,DVREND-DVRBGN+1 


24 D2 09 


01390 


ADD 


HL,BC 


;Start + data + filter 


24 D3 380C 


01400 


JR 


C,KSM3A 


;Bad if wrap past 


24 D5 EB 


01410 


EX 


DE,HL 


;Save in reg DE 


24 D6 El 


01420 


POP 


HL 


;Rcvr old start 


24 D7 23 


01430 


INC 


HL 


;Pt to last byte used 


24 D8 23 


01440 


INC 


HL 




24D9 7E 


01450 


LD 


A,{HL) 


;P/u last byte used 


24 DA 23 


01460 


INC 


HL 




24 DB 66 


01470 


LD 


H,(HL) 


; into HL 


24 DC 6F 


01480 


LD 


L.A 




24 DD E5 


01490 


PUSH 


HL 




24 DE AF 


01500 


XOR 


A 


;Clear carry flag 


24 DF ED52 


01510 


SBC 


HL,DE 


;Is req > available? 


24E1 El 


01520 KSM3A 


POP 


HL 


;Rcvr old start to reuse 


24E2 CI 


01530 


POP 


BC 


;Rcvr length of req 


24E3 DA5325 


01540 


JP 


CNOROOM 


;Quit if file too big 


24E6 1809 


01550 


JR 


KSM0A 




24E8 C5 


01560 MOVTOHI PUSH 


BC 


;Save data length 


24E9 210000 


01570 


LD 


HL,0 


;P/u current high memory 


24 EC 45 


01580 


LD 


B.L 




24 ED 


01590 


@@HIGH$ 




24ED 3E64 


00024 


LD 


A, 100 




24 EF EF 


00025 


RST 


40 




24F0 CI 


01600 


POP 


BC 


;Recover data length 


24F1 22C327 


01610 KSMjaA 


LD 


(DVRBGN+2),HL 


; Stuff last byte used 
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24F4 22CF27 


01620 


LD 


(RX1),HL 


; Stuff ptr to flag byte 


24F7 3600 


01630 


LD 


(HL).0 


;Init the KSM char ptr 


24F9 2B 


01640 


DEC 


HL 


; to zero to show no 


24FA 3600 


01650 


LD 


(HL),0 


; char avail at startup 


24FC 2B 


01660 


DEC 


HL 




24FD 112128 


01670 


LD 


DE,DVREND 


;Move data to high 


2500 lA 


01680 MOV LP 


LD 


A.(DE) 


;Data is in reverse order 


2501 77 


01690 


LD 


(HL),A 




2502 2B 


01700 


DEC 


HL 


;Dec hi mem ptr 


2503 13 


01710 


INC 


DE 


; and inc the char ptr 


2504 08 


01720 


DEC 


BC 


;Reduce char count 


2505 78 


01730 


LD 


A.B 


; and check if done 


2506 Bl 


01740 


OR 


C 




2507 20F7 


01750 


JR 


NZ,MOVLP 


;Loop back if not 


2509 016000 


01760 


LD 


BCDVREND-DVRBGN ;Get driver Ten 


250C AF 


01770 


XOR 


A 


;Reduce potential HIGH$ 


250D ED42 


01780 


SBC 


HL,BC 


; by driver length 


250F 3A7D24 


01790 


LD 


A,(KSMMEM+1) 


; Don't update HIGH$ 


2512 B7 


01800 


OR 


A 


; if previously res 


2513 2809 


01810 
01820 ; 


JR 


Z, DOHIGH 


;Go if not resident 




01830 ; 


Module 


already residei 


It 




01840 ; 








2515 ED5B7D24 01850 


LD 


DE,(KSMMEM+1) 


;P/u module entry point 


2519 213926 


01860 


LD 


HL,KSMRPL$ 


; & reuse the filter 


251C 1818 


01870 
01880 ; 


JR 


KSM8 






01890 ; 


Stuff new HIGH$ value 


(Note: B=0 for driver 




01900 ; 


length 


so there is no 


damage on the (a0HIGH$ SVC 




01910 ; 








25 IE 0600 


01920 DOHIGH 


LD 


B,0 




2520 


01930 


(3@HIGH| 


) 




2520 3E64 


00026 


LD 


A, 100 




2522 EF 


00027 


RST 


40 




2523 23 


01940 


INC 


HL 


;Pt to driver start 


2524 EB 


01950 


EX 


DE,HL 




2525 D5 


01960 


PUSH 


DE 


;Save start of driver 


2526 210900 


01970 


LD 


HL,KSMDCB-DVRBGN 


2529 19 


01980 


ADD 


HL,DE 


; Point to filter DCB ptr 


252 A 22DF27 


01990 


LD 


(RX2),HL 




252D 21C127 


02000 


LD 


HL,DVRBGN 


;Move parms also 


2530 EDB0 


02010 


LDIR 






2532 Dl 


02020 


POP 


DE 


;Rcvr driver ept 


2533 212226 


02030 


LD 


HL,KSMACT$ 


;Init "KSM installed 


2536 DD36004E 


02040 KSM8 


LD 


(IX),40H!5 


;Init DCB type to "input" 


253A DD7301 


02050 


LD 


(IX+1),E 


; & filter & stuff the 


253D DD7202 


02060 


LD 


(IX+2),D 


; filter address 


2540 FDCB03F6 02070 


SET 


6,(IY+'D'-'A' 


) ;Turn on device flag bit 


2544 


02080 


(aiaLOGOl 




;Display installation msg 




00028 


IFEQ 


00H,1 






00029 


LD 


HL, 






00030 


ENDIF 






2544 3E0C 


00031 


LD 


A, 12 




2546 EF 


00032 


RST 


40 




2547 210000 


02090 


LD 


HL,0 


;Set no error 


254A C9 


02100 
02110 ; 


RET 




;Back to the user 




02120 ; 


Error processing 






02130 ; 








254B 21FB25 


02140 VIASET 


LD 


HL,VIASET$ 


;"Install with Set 


254E DD 


02150 


DB 


0DDH 
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254F 
2552 
2553 
2556 
2557 
255A 



255A 
255C 
255D 
2560 
2561 
2563 
2564 
2566 
2568 
2569 
2569 
256B 
256C 



256D 

2572 
2572 



257C 
257C 



25A6 



25 BB 



25E3 



25FB 



215226 

DD 

217526 

DD 

211026 



3E0C 

EF 

21FFFF 

C9 

3E2C 

6F 

2600 

F6C0 

4F 

3E1A 

EF 

C9 



24 

4B 53 4D 

4B 

53 4D 20 

72 



20 

2D 20 36 

2D 20 43 

67 68 74 

2F 38 33 

79 20 4C 

6C 

20 

53 79 73 

20 49 6E 

20 20 20 

41 

6C 6C 20 

73 20 52 
65 64 2E 
6E 73 65 
32 2F 38 
20 

74 6F 20 
78 78 78 
78 78 78 

4D 

75 73 74 
61 6C 6C 
53 45 54 



02160 

02170 

02180 

02190 

02200 

02210 

00033 

00034 

00035 

00036 

00037 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

00038 

00039 

02300 

02310 

02320 

02330 

02340 

03 

02350 

02360 

46 69 

02370 
03950 
03960 
03970 
2E 32 
6F 70 
20 31 
2F 38 
6F 67 

03980 
74 65 
63 2E 
0A 

03990 
04000 
52 69 
65 73 
20 4C 
54 20 
33 2F 
04010 
78 78 
78 78 
78 78 
02380 
02390 
20 69 
20 76 
0D 



DCBERR LD 
DB 

NOROOM LD 
DB 

SPCREQ LD 



HL,DCBERR$ 

0DDH 

HL,NOROOM$ 

0DDH 

HL,SPCREQ$ 



@@LOGOT 

IFEQ 00H,1 



;"Filter in use already 

;" Memory frozen 

;"Missing filespec 
; Display an error 



LD 

ENDIF 
LD 
RST 
LD 
RET 
PRMERR LD 
lOERR LD 
LD 



HL, 

A, 12 

40 

HL,-1 

A, 44 

L,A 

H,0 

0C0H 

C,A 



KSM$ 



OR 

LD 

@@ERROR 

LD A, 26 

RST 40 

RET 

Data and message area 
DB '$KSM',3 



;Set abort code 

;Init PARM ERROR 
; Error code to HL 

;Set short, return 

; Error to C 

; for error display 



DFTKSM EQU 
HELLO$ DB 
6C 74 65 



$ 



KSM Filter 



;Note: HELLO$ must follow 



*6ET CLIENT: 3 

;CLIENTS/ASM - File to establish sign-on headers 



2E 30 20 
79 72 69 
39 38 32 
34 20 62 
69 63 61 



DB 



' - 6.2.0 - Copyright 1982/83/84 by Logical 



DB 



6D 73 2C 
20 20 20 



Systems, Inc. 



',10 



DB 



DB 



67 68 74 

65 72 76 

69 63 65 

31 39 38 
38 34 

78 78 78 

78 78 78 
0A 0D 



VIASET$ DB 
6E 73 74 
69 61 20 



'All Rights Reserved. Licensed 1982/83/84' 



to xxxxxxxxxxxxxxxxxx' ,10,13 



Must install via SET',CR 
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Page 



2610 



2622 



2639 



2652 



2672 
2675 



2696 
269D 



46 

69 6C 65 

72 65 71 

0D 

4B 

53 4D 20 

77 20 6F 
69 6F 6E 
4B 

53 4D 20 
72 20 64 
65 70 6C 
4B 

53 4D 20 
72 20 61 
79 20 61 
65 64 20 

78 0D 

52 

65 71 75 

78 63 65 

76 61 69 

20 6D 65 

D2 

F5 45 4E 



02400 SPCREQ$ DB 
73 70 65 63 20 
75 69 72 65 64 



269E 3A24 
26A0 00 

0020 
0100 



27C1 180B 
27 C3 0000 
27 C5 04 

24 4B 53 
27 CA 0000 
27 CC 0000 

27 CE 210000 
27 CF 
27D1 56 
27D2 2B 
27D3 5E 
27D4 2B 
27 D5 EB 
27D6 F5 
27D7 7C 
27D8 B5 
27 D9 202 B 
27DB Fl 
27 DC D5 
27DD DD2ACA27 
27 DF 
27E1 

27E1 3E14 
27E3 EF 



02410 

69 73 

70 65 
61 6C 
02420 
66 69 
61 74 
61 63 
02430 
66 69 
6C 72 
74 74 
74 6F 

02440 

02450 

65 73 

65 64 

6C 61 

6D 6F 

02460 

54 45 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

4D 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 



KSMACTS DB 
20 6E 6F 

72 61 74 
0D 

KSMRPL$ DB 
6C 74 65 
61 20 72 
65 64 0D 
DCBERR$ DB 
6C 74 65 
65 61 64 

61 63 68 
20 2A 78 

DCBNAM$ EQU 
NOROOM$ DB 
74 20 65 

73 20 61 

62 6C 65 
72 79 0D 
PRMTBL$ DB 
52 00 

ERSP EQU 

DW 
DB 

KSMFCB DEFS 
KSMBUF DEFS 



Filespec required' ,CR 



'KSM is now operational' ,CR 



KSM filter data replaced ',CR 



'KSM filter already attached to *xx',CR 



$-3 

'Request exceeds available memory', CR 



'R'!80H,0F5H, 'ENTER', 

$-1 

EPARM+1 


32 
256 



Key-Stroke Multiplication driver 



DVRB6N 



KSMDCB 



START 
RXl 



DVRl 
RX2 



00041 



JR 
DW 
DB 

DW 
DW 

LD 

EQU 

LD 

DEC 

LD 

DEC 

EX 

PUSH 

LD 

OR 

JR 

POP 

PUSH 

LD 

EQU 

@@CHNIO 

LD 

RST 



START 

$-$ 

4,'$KSM' 

$-$ 


HL,0 

$-2 

D,(HL) 

HL 

E,(HL) 

HL 

DE,HL 

AF 

A,H 

L 

NZ,DVR4A 

AF 

DE 

IX, (KSMDCB) 

$-2 

A, 20 
40 



; Branch around header 
;Last byte used 



; Pointer to KSM's DCB 



;P/u possible address to 

a KSM that was parsed 
to a •;' logical ENTER 
If this vector is zero, 
no KSM continuation is 
pending - find a new 
entry. Save flags. 
If <> 0, grab the KSM 
line continuation 

;Rcvr flags 

;Save ptr to 'A' -KSM 

;Chain to next DCB module 
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27 E4 
27 E5 
27 E6 
27 E8 
27E9 
27 EA 
27 EC 
27 EE 
27F0 
27F2 
27F3 
27F4 



Dl 

C0 

CB7F 

C8 

F5 

FECI 

3804 

FEDB 

3803 

Fl 

BF 

C9 



27F5 Fl 
27F6 62 
27F7 6B 
27F8 D6C1 
27FA 280B 
27 FC 47 
27FD 3E0D 
27 FF BE 

2800 2B 

2801 20FC 
2803 10FA 
2805 3E 



2806 Fl 

2807 7E 

2808 2B 

2809 EB 
280A 23 
280B FE0D 
280D 280B 
280F 73 

2810 23 

2811 72 

2812 FE3B 
2814 2002 
2816 3E0D 

2818 BF 

2819 C9 



281A AF 
281B 77 
281C 23 
281D 77 
281E FEFF 
2820 C9 
2821 



2400 



02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 



DVR2 



DVR3 



DVR4 



DVR4A 
DVR5 



ECHAR 
DVR7 

DVR6 



POP DE ;Rcvr 'A'-KSM pointer 

RET NZ ;Back if nothing or error 

BIT 7, A ;Is it a CLEAR function? 

RET Z ;Ret if <CLEAR> not down 

PUSH AF ;Save key entry 

CP 'A'+80H ;Ck for range A-Z 

JR C,DVR2 ;Exit if < 'A' 

CP 'Z'+1+80H 

JR C,DVR3 ;Use it if A-Z 

POP AF ;Rcvr orig flag 

CP A ;Set Z-flag 

RET 

Key code entry includes <CLEAR> key 



POP 

LD 

LD 

SUB 

JR 

LD 

LD 

CP 

DEC 

JR 

DJNZ 

DB 



AF 

H,D 

L,E 

80H+'A' 

Z,DVR5 

B,A 

A,CR 

(HL) 

HL 

NZ,DVR4 

DVR4 

3EH 



Rcvr orig flag 

Rcvr ptr to 'A'-KSM 
& xfer to reg HL 

Adjust offset to index 

Bypass if was 'A' 

Set loop counter 

Read past the KSM lines 
for letters preceding 
key entry to find the 
KSM line for entered 
key code 

Ignore next inst 



Routine to pick up the next KSM character 
& return it to the system KI request 



POP 

LD 

DEC 

EX 

INC 

CP 

JR 

LD 

INC 

LD 

CP 

JR 

LD 

CP 

RET 



AF 

A,(HL) 

HL 

DE,HL 

HL 

CR 

Z,DVR6 

(HL),E 

HL 

(HL),D 
I . I 

NZ,DVR7 

A,CR 

A 



Clean the stack 
P/u the next KSM char 
Dec pointer to next one 
Put either a pointer to 

the next KSM char or 

if got last, zero the 

data pointer 
Stuff pointer to next 

character to fetch 

;Ck on logical line end 
; & convert to <ENTER> 
; if it was semi -col on 
;Tell the system we have 
: retrieved a char 



Got the terminating X'0D' - Clear the pointer 



DVREND 



XOR 

LD 

INC 

LD 

CP 

RET 

EQU 

END 



A 

(HL),A 

HL 

(HL),A 

0FFH 

$ 
KSM 



;Clear the KSM char ptr 
; as next request is new 



;Set NZ & A = 
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mi 


0000 m2 


@@4 


0000 @M0D2 


CR 


000D DCBERR 


DCBNAM$ 


2672 


DFTKSM 


DVRl 


27 DD 


DVR2 


DVR4 


27 FF 


DVR4A 


DVR6 


281A 


DVR7 


DVREND 


2821 


ECHAR 


ERSP 


269D HELLO$ 


KSM 


2400 KSM$ 


KSMl 


2497 


KSM2 


KSM3A 


24E1 


KSM8 


KSMACTS 


2622 


KSMBUF 


KSMFCB 


26A1 


KSMMEM 


LF 


000A MOV LP 


NOROOM 


2553 


NOROOM$ 


PRMERR 


2561 


PRMTBL$ 


RX2 


27 DF 


SPCREQ 


START 


27 CE 


UPDPTR 


VIASET$ 


25FB 


@(PABORT 


0(3 BANK 


9431 


(3@BKSP 


@@CHNIO 


8E71 


@@CKBRKC 


@@CKEOF 


9126 


@@CKTSK 


@@CLS 


947 F 


@@CMNDI 


@0CTL 


8CD5 


@@DATE 


@@ DEBUG 


8EEF 


@@DECHEX 


@@DIRWR 


9333 


0(aDIVl6 


@0DODIR 


8F82 


0@DSP 


@(3 ERROR 


8EDA 


@@EXIT 


@@FLAGS 


941B 


@@FNAME 


@@GATRD 


9309 


(3@GATWR 


@@GTDCB 


92 CA 


(30GTDCT 


@(9HDFMT 


9054 @@HEX16 


@(3HEXDEC 


93C6 0(9HIGH$ 


@@KBD 


8D11 


(30 KEY 


(a(aKLTSK 


8F58 


00 LOAD 


@@LOF 


9150 @@L06ER 


@@MS6 


8DBC 


00MUL16 


(a(30PEN 


90 E 7 @@PARAM 


0@PEOF 


9165 


00POSN 


@@PRT 


8CE9 


00 PUT 


eiBRDSEC 


902A @@RDSSC 


@@REMOV 


90 BD (a@RENAM 


ia@RMTSK 


8F2E 


00RPTSK 


@@RSLCT 


9015 @@RSTOR 


@@RWRIT 


91CE 


00SEEK 


0(9 SKIP 


91F8 


00 SLOT 


(3@TIME 


8E5C 


00VDCTL 


@0VRSEC 


903F @@WEOF 


@@WRITE 


9237 


00WRSEC 


eiPWRTRK 


9093 




2400 is the 


transfer 


address 


00000 Total 


errors 





KSM/FLT - LS-DOS 6.2 
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0000 


003 


0000 0MOD4 


254F 


DCBERR$ 


2572 


DOHIGH 


27F2 


DVR3 


2806 


DVR5 


2818 


DVRBGN 


2812 


EPARM 


2572 


lOERR 


256 D KSM0A 


24A8 


KSM3 


2536 


KSMA 


26C1 


KSMDCB 


247C KSMRPL$ 


2500 MOVTOHI 


2675 


OPENKSM 


2696 


RXl 


2557 


SPCREQ$ 


2474 


VIASET 


8E86 


00ADTSK 


9111 


00 BREAK 


9495 


00CKDRV 


8F04 00CLOSE 


8EB0 00CMNDR 


8E47 


00DCSTAT 


93B1 


00DIRRD 


939C 


00DIV8 


8C99 


00DSPLY 


8E9B 00FEXT 


92A0 00FSPEC 


9348 


00GET 


92B5 


00GTMOD 


93F0 00HEX8 


9405 


00 IN IT 


8C85 


00KEYIN 


924C 


00LOC 


8D70 00LOGOT 


9372 


00MUL8 


8E32 


00PAUSE 


917A 


00 PR I NT 


8CC1 


00RAMDIR 


92F4 00READ 


90A8 00REW 


8F43 


00RREAD 


8FD6 


00RUN 


9000 00SEEKSC 


8FC1 


00STEPI 


8E08 00VER 


9222 


00WHERE 


9069 00WRSSC 



FFFF 
2652 
251E 
27F5 
2807 
27C1 
2439 
2563 
24F1 
24B2 
2409 
27 CA 
2639 
24E8 
2487 
27 CF 
2610 
254B 
8F19 
9447 
8F6D 
90FC 
8EC5 
8FAC 
931 E 
9387 
8D39 
928B 
9276 
8CAD 

92 DF 

93 DB 
90 D2 
8D25 
913B 
8D85 
935 D 
8E1D 
8DD1 
8F97 
918F 
91A4 
91 B9 
9261 
91E3 
8FEB 
920 D 
8CFD 
907 E 
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LOG/CMD - Log in a disk 

The main use of the Log utility is to allow swapping a double sided disk into drive 
after booting on a single sided disk. 
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UTILITY Fi 


les 


LOG - LS-DOS 6. 


2 Page 00001 




00100 


; LOG/ASM - Optional Disk Log Program 


0000 


00110 
00120 


9 


TITLE 


<LOG - LS-DOS 6 


.2> 


000 D 


00130 CR 


EQU 


13 




000A 


00140 1 


LF 


EQU 


10 




000E 


00150 CRSON 


EQU 


14 






00160 


s 








0000 


00170 ■ 


*6ET 


SVCMAC:; 


3 


;SVC Macro equivalents 




00010 


;SVCMAC/ASM - LS-DOS Version VI 






00020 


*LIST 


OFF 








03900 


*LIST 


ON 






0000 


00180 *GET 


COPYCOM 


:3 


;Copyright message 




03920 


; COPYCOM - Fill 


e for Copyright 


COMment block 




03930 


* 








0000 


03940 
00190 


i 


COM 


'<*(C) 1982,83, 


84 by LSI*>' 


2600 


00200 
00210 
00220 


LOG 


ORG 


2600H 




2600 


00230 




0@CKBRKC 


;Check for break 


2600 3E6A 


00001 




LD 


A, 106 




2602 EF 


00002 




RST 


40 




2603 2804 


00240 




JR 


Z,LOGA 


;Go if not 


2605 21FFFF 


00250 




LD 


HL,-1 


; else abort 


2608 C9 


00260 
00270 


» 


RET 








00280 LOGA 








2609 ED738326 


; 00290 




LD 


(STACK ),SP 


;Save entry SP 


260D E5 


00300 




PUSH 


HL 


;Save cmdline ptr 


260E 


00310 




mospu 


HELLO$ 


; Display the signon msg 




00003 




IFEQ 


01H,1 




260E 219626 


00004 
00005 




LD 
ENDIF 


HL,HELLO$ 




2611 3E0A 


00006 




LD 


A, 10 




2613 EF 


00007 




RST 


40 




2614 El 


00320 
00330 


9 


POP 


HL 


;Recover cmdline ptr 




00340 


; Start 


. of main 


module code 






00350 


» 








2615 0E00 


00360 


START 


LD 


C,0 


;Default drive 


2617 7E 


00370 SKIPSP 


LD 


A,(HL) 


;Scan command line 


2618 23 


00380 




INC 


HL 




2619 FE20 


00390 




CP 


1 1 


;Skip spaces 


261 B 28FA 


00400 




JR 


Z, SKIPSP 




261 D FE3A 


00410 




CP 


1 . 1 


;Look for colon 


261F 200C 


00420 




JR 


NZ, DEFALT 


;End of line if not found 


2621 7E 


00430 




LD 


A,(HL) 


;Get drive # 


2622 D630 


00440 




SUB 


30H 


;Make a number 


2624 DA8926 


00450 




JP 


CILLDRV 


;# too low 


2627 FE08 


00460 




CP 


7+1 




2629 D28926 


00470 




JP 


NCILLDRV 


;# too hi 


262C 4F 


00480 




LD 


C,A 


;Save in C 


262D 79 


00490 


DEFALT 


LD 


A,C 


; Drive 0? 


262E A7 


00500 




AND 


A 




262F 2018 


00510 




JR 


NZ,NOWAIT 


;Go if not 


2631 


00520 




(a@DSPLY WAITS 


; Display "Switch disks 




00008 




IFEQ 


01H,1 




2631 211E27 


00009 
00010 




LD 
ENDIF 


HL, WAITS 




2634 3E0A 


00011 




LD 


A, 10 




2636 EF 


00012 




RST 


40 





Page 228 



The Source 


UTILITY Fi 


iles 


LOG - LS-DOS 


6.2 Page 00002 


2637 2052 


00530 




JR 


NZ,IOERR 




2639 


00540 




(30 KEY 




;Wait for a key 


2639 3E01 


00013 




LD 


A,l 




263B EF 


00014 




RST 


40 




263C 204D 


00550 




JR 


NZ.IOERR 




263E C5 


00560 




PUSH 


BC 


;Save the drive # 


263F 0E0D 


00570 




LD 


C,CR 


;Output a new line 


2641 


00580 




(aiapSP 






2641 3E02 


00015 




LD 


A,2 




2643 EF 


00016 




RST 


40 




2644 CI 


00590 




POP 


BC 


;Recover drive # 


2645 2044 


00600 




JR 


NZ,IOERR 




2647 1807 


00610 
00620 


9 


JR 


NOCHK 


;Can't call CKDRV if :0 


2649 


00630 


NOWAIT 


mCKDRM 




; Drive ready? 


2649 3E21 


00017 




LD 


A, 33 




264B EF 


00018 




RST 


40 




264C 3E20 


00640 




LD 


A, 32 


;" 11 legal drive number" 


264E 203B 


00650 




JR 


NZ,IOERR 


;Go if not ready 


2650 210028 


00660 


NOCHK 


LD 


HL, BUFFER 


; Sector buffer 


2653 110000 


00670 




LD 


DE,0 


;Read boot sector 


2656 


00680 




0@RDSEC 






2656 3E31 


00019 




LD 


A, 49 




2658 EF 


00020 




RST 


40 




2659 2030 


00690 




JR 


NZ,IOERR 


;Go if error 


2658 


00700 




(3@GTDCT 




; Point lY to DCT 


265B 3E51 


00021 




LD 


A,81 




265D EF 


00022 




RST 


40 




265 E 23 


00710 




INC 


HL 


; Point HL to byte 2 


265F 23 


00720 




INC 


HL 




2660 7E 


00730 




LD 


A,(HL) 


;Get dir cyl # 


2661 FD7709 


00740 
00750 


9 


LD 


(IY+9),A 


; and put in DCT 


2664 57 


00760 




LD 


D,A 


;Now read GAT 


2665 210028 


00770 




LD 


HL, BUFFER 


;Disk sector buffer 


2668 5D 


00780 




LD 


E,L 


;Set to 


2669 


00790 




(3@RDSEC 






2669 3E31 


00023 




LD 


A, 49 




266B EF 


00024 




RST 


40 




266C FE06 


00800 




CP 


6 


;Must be sys sector 


266E 201B 


00810 
00820 


> 


JR 


NZ,IOERR 


;Go if error 


2670 2ECD 


00830 




LD 


L,0CDH 


; Off set to disk type 


2672 7E 


00840 




LD 


A,(HL) 


;P/U disk type 


2673 E620 


00850 




AND 


20H 


; Check # of sides bit 


2675 47 


00860 




LD 


B,A 


;Save in B 


2676 FD7E04 


00870 




LD 


A,(IY+4) 


;P/U byte in DCT 


2679 E6DF 


00880 




AND 


0DFH 


;Mask out old value 


267B B0 


00890 




OR 


B 


;Put in new value 


267C FD7704 


00900 
00910 


» 


LD 


(IY+4),A 


;Put back in DCT 


267F 210000 


00920 




LD 


HL,0 


;Set no error 


2682 310000 


00930 $QUIT 


LD 


SP,$-$ 


;P/u original stack 


2683 


00940 


STACK 


EQU 


$-2 




2685 


00950 




eeCKBRKC 


;Clear any break 


2685 3E6A 


00025 




LD 


A, 106 




2687 EF 


00026 




RST 


40 




2688 C9 


00960 
00970 


s 


RET 




;Back to the user 


2689 3E20 


00980 


ILLDRV 


LD 


A, 32 


;Init "illegal drv" 


268B 6F 


00990 


lOERR 


LD 


L,A 


;Put error # into HL 
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268C 2600 
268E F6C0 

2690 4F 
2691 

2691 3E1A 

2693 EF 

2694 18EC 

2696 4C 

4F 47 
269F 



269F 20 

2D 20 
2D 20 
67 68 
2F 38 
79 20 
6C 

26C9 20 

53 79 
20 49 
20 20 

26 DE 41 

6C 6C 

73 20 
65 64 
6E 73 
32 2F 

2706 20 

74 6F 
78 78 
78 78 

271E 45 

78 63 
64 69 
64 20 
73 20 
3E 20 

2800 

2800 

2600 



01000 
01010 
01020 
01030 
00027 



LD 

OR 

LD 

@@ERROR 

LD 

RST 

JR 



H,0 

0C0H 

C,A 

A, 26 

40 

$QUIT 



;Abbrev, return 
; Error code to C 
; for error display 



01040 

01050 ; 

01060 HELLO$ DB 'LOG Drive' 

20 44 72 69 76 65 

01070 *GET CLIENT: 3 

03950 ;CLIENTS/ASM - File to establish sign-on headers 

03960 ; 

03970 DB ' - 6.2.0 - Copyright 1982/83/84 by Logical 
36 2E 32 2E 30 20 
43 6F 70 79 72 69 
74 20 31 39 38 32 
33 2F 38 34 20 62 
4C 6F 67 69 63 61 



03980 
73 74 65 
6E 63 2E 
20 0A 
03990 
04000 
20 52 69 
52 65 73 
2E 20 4C 
65 64 20 
38 33 2F 
04010 
20 78 78 
78 78 78 
78 78 78 
01080 
68 61 6E 
73 6B 73 
64 65 70 
3C 45 4E 
03 

01090 
01100 
01110 
01120 



DB 



6D 73 2C 
20 20 20 



DB 



67 68 74 

65 72 76 

69 63 65 

31 39 38 
38 34 

78 78 78 

78 78 78 
0A 0D 
WAITS 

67 65 20 

20 61 6E 

72 65 73 

54 45 52 



ORG 
BUFFER EQU 

END 



DB 



DB 



' Systems, Inc. 



',10 



'All Rights Reserved. Licensed 1982/83/84' 



to xxxxxxxxxxxxxxxxxx' ,10,13 



'Exchange disks and depress <ENTER> ',3 



$<-8+l<8 
$ 

LOG 
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LOG - LS-DOS 6.2 




$QUIT 


2682 001 


0000 002 


0000 


003 


0000 004 


0000 0MOD2 


0000 


0MOD4 


FFFF BUFFER 


2800 CR 


000 D 


CRSON 


000E DEFALT 


262D HELLO$ 


2696 


ILLDRV 


2689 lOERR 


268B LF 


000A 


LOG 


2600 L06A 


2609 NOCHK 


2650 


NOWAIT 


2649 SKIPSP 


2617 STACK 


2683 


START 


2615 WAITS 


27 IE 00 ABORT 


750F 


00ADTSK 


75 A2 00 BANK 


7ABA 00BKSP 


779A 


0@ BREAK 


7AD0 00CHNIO 


74FA 00CKBRKC 


7B1E 


00CKDRV 


75F6 00CKEOF 


77AF 00CKTSK 


758 D 


@@CLOSE 


7785 00CLS 


7B08 00CMNDI 


7539 


00CMNDR 


754E 00CTL 


735E 00DATE 


74 D0 


00DCSTAT 


7635 00DEBUG 


7578 00DECHEX 


7A3A 


00DIRRD 


79A7 00DIRWR 


79BC 00DIV16 


7A25 


0@DIV8 


7A10 00DODIR 


760B 00DSP 


7322 


@0DSPLY 


73C2 00ERROR 


7563 00EXIT 


7524 


0@FEXT 


7914 00FLAGS 


7AA4 00 F NAME 


7929 


@0FSPEC 


78FF 00GATRD 


7992 00GATWR 


79 Dl 


@0GET 


7336 00GTDCB 


7953 00GTDCT 


793E 


^0GTMOD 


7968 00HDFMT 


76DD 00HEX16 


7A79 


00HEX8 


7A64 00HEXDEC 


7A4F 00HIGH$ 


7A8E 


00INIT 


775B 00KBD 


739A 00KEY 


730E 


0@KEYIN 


73AE 00KLTSK 


75 El 00 LOAD 


78 D5 


00LOC 


77C4 00LOF 


77 D9 00LOGER 


73F9 


@0LOGOT 


740E 00MSG 


7445 00MUL16 


79FB 


0@MUL8 


79E6 00OPEN 


7770 00 PAR AM 


74BB 


00PAUSE 


74A6 00PEOF 


77EE 00POSN 


7803 


00 PR I NT 


745 A 00PRT 


7372 00PUT 


734A 


00RAMDIR 


7620 00RDSEC 


76B3 00RDSSC 


797D 


00READ 


7818 00 RE MOV 


7746 00 RE NAM 


7731 


00REW 


78 2D 00RMTSK 


75B7 00RPTSK 


75 CC 


00RREAD 


7842 00RSLCT 


769E 00RSTOR 


765 F 


00 RUN 


78 EA 00RWRIT 


7857 00SEEK 


7689 


00SEEKSC 


786C 00SKIP 


7881 00SLCT 


764A 


00 STEP I 


7674 00TIME 


74E5 00VDCTL 


7491 


00VER 


7896 00VRSEC 


76C8 00WEOF 


78AB 


00WHERE 


7386 00 WRITE 


78C0 00WRSEC 


76F2 


00WRSSC 


7707 00WRTRK 


771C 




2600 is the 


transfer address 






00000 Total 


errors 
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MEMDISK/DCT - Memory disk driver 

The Memdisk DCT program will establish a psuedo disk drive either in the main memory 
or in the alternate memory banks, if available. There must be room for Memdisk in the 
low driver zone or the installation will abort. 
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MEMDISK/DCT - LS-DOS 6.2 
Memory Disk Driver 



Page 00001 



0000 



0000 



0000 



00100 ;MEMDISK/ASM 

00110 TITLE 

00120 ; 

00130 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00140 *GET VALUES: 3 

03920 ;VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00150 *GET C0PYC0M:3 ;Copyright message 

04210 ; COPYCOM - File for Copyright COMment block 

04220 ; 

'<*(C) 1982,83,84 by LSI*>' 



<MEMDISK/DCT - LS-DOS 6.2> 

;SVC Macro equivalents 



;Misc. equates 



1200 
8000 
1300 
2300 
0003 
000F 

2C00 



2C00 

Zm 3E6A 
2C02 EF 
2C03 2804 
2C05 21FFFF 
2C08 C9 

2C09 

2C09 ED73222C 



2C0D CDF62C 
2C10 CD3F30 
2C13 CD9A2E 



2C16 210000 
2C19 1806 

2C1B CD2C2D 
2C1E 21FFFF 

2C21 310000 
2C24 

2C24 3E6A 
2C26 EF 
2C27 C9 

2C28 

2C28 



04230 COM 

00160 ; 

00170 SDBPC EQU 

00180 DDBPC EQU 

00190 LOWEST EQU 

00200 HIDRVR EQU 

00210 BUFFERS EQU 

00220 MINCYL EQU 

00230 WP 

00240 ; 

00250 

00260 ; 

00270 START 

00280 

00001 

00002 

00290 

00300 

00310 

00320 ; 

00330 STARTA EQU 

00340 LD 

00350 ; 

00360 ; 

00370 ; 

00380 

00390 

00400 

00410 ; 

00420 ; 

00430 ; 

00440 NORMEX LD 



EQU 
ORG 

§@CKBRKC 

LD 

RST 

JR 

LD 

RET 



5*2*256 

6*3*256 

8000H 

1300H 

2300H 

3 

15 

2C00H 



A, 106 

40 

Z, STARTA 

HL,-1 



$ 
(EXIT+1),SP 



;Single Density Bytes/Cyl 
; Double Density Bytes/Cyl 
; Lowest addr for Bank 
; Highest addr for Driver 
^Temporary I/O buffer Add 

;Write Prot Disk Error # 



;Check for break 



;Continue if not 
: else abort 



;Save SP location 



Install or Disable MemDISK 



CALL 
CALL 
CALL 



CALCDRV 

DOMEM 

INSTMEM 



;Calculate drive # 
;Get type of memdisk 
; Install MemDISK 



Exit - Clean stack. Set HL, Revector <BREAK> 



00450 
00460 ; 
00470 ABORT 
00480 
00490 ; 
00500 EXIT 
00510 
00003 



JR 

CALL 
LD 



HL,0 
EXIT 

GETDUP 
HL,-1 

SP,$-$ 



LD 

(peCKBRKC 

LD A, 106 

RST 40 

RET 



; Normal Exit - HL = 
;Get SP & RETurn 

;Get duplicate DCT 
;Abort 

;P/u SP address 
;Clear break 



00520 

00530 ; 

00540 *GET MEMDISKB:3 

04240 ;MEMDISKB/ASM - Miscellaneous Subroutines 

04250 SUBTTL '<MEMDISKB - Subroutines>' 
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2C28 


04260 
04270 




PAGE 










04280 




SETBANK 


- Tel 1 system 


which banks are used 




04290 












2C28 3E00 


04300 


SETBANK 


LD 


A,$-$ 




;P/u bank # 


2C2A 4F 


04310 




LD 


C,A 




;Xfer to C 


2C2B FE03 


04320 




CP 


3 




;Both banks 1 & 2 ? 


2C2D 2005 


04330 




JR 


NZ,STBANK 




J No - just 1 bank 


2C2F 0D 


04340 




DEC 


C 




;Set C = 2 


2C30 CD342C 


04350 




CALL 


STBANK 




;Show Bank in use 


2C33 0D 


04360 




DEC 


C 




;c = 1 


2C34 C5 


04370 


ST BANK 


PUSH 


BC 




;Save BC 


2C35 0603 


04380 




LD 


B,3 




;Show in use function # 


2C37 


04390 




(a@BANK 






;Let system know it 


2C37 3E66 


00005 




LD 


A ,102 






2C39 EF 


00006 




RST 


40 






2C3A CI 


04400 




POP 


BC 






2C3B C9 


04410 
04420 




RET 






;RETurn 




04430 




FREBANK 


- Free up 


Bank 


C 




04440 












2C3C C5 


04450 FREBANK 


PUSH 


BC 




;Save C & B 


2C3D 0601 


04460 




LD 


BJ 




;Show bank available 


2C3F 


04470 




@@BANK 








2C3F 3E66 


00007 




LD 


A, 102 






2C41 EF 


00008 




RST 


40 






2C42 CI 


04480 




POP 


BC 




;Recover C 


2C43 C9 


04490 
04500 




RET 






;RETurn 




04510 




DECASC2 


- Display 


Number to video 




04520 












2C44 CDAE2C 


04530 


DECASC2 


CALL 


SAVEREG 




;Save Registers 


2C47 F5 


04540 




PUSH 


AF 




;Save # 


2C48 0E08 


04550 




LD 


CBS 




;Backspace 


2C4A CD592C 


04560 




CALL 


DSP 




;Output byte 


2C4D CD592C 


04570 




CALL 


DSP 




;Twice 


2C50 Fl 


04580 




POP 


AF 




;Recover A 


2C51 CD632C 


04590 




CALL 


DECASC 




;Convert to ASCII 


2C54 4C 


04600 




LD 


C,H 




;P/u ms digit 


2C55 CD592C 


04610 




CALL 


DSP 






2C58 4D 


04620 
04630 




LD 


C,L 




;P/u Is digit 




04640 




DSP - Output byte 


to Video & exit if I/O err 




04650 












2C59 


04660 


DSP 


0@DSP 






;Output byte 


2C59 3E02 


00009 




LD 


A,2 






2C5B EF 


00010 




RST 


40 






2C5C C8 


04670 
04680 




RET 


Z 




;RETurn if good 




04690 




IOERR - 


Set HL = 1 


Error 


# & Abort 




04700 












2C5D 6F 


04710 


ioERR 


LD 


L,A 




;Set HL = I/O Error # 


2C5E 2600 


04720 




LD 


H,0 






2C60 C3212C 


04730 
04740 




JP 


EXIT 




;Go to exit routine 




04750 




Display 


Decimal ASCII 


equivalent 




04760 












2C63 262F 


04770 


DECASC 


LD 


H,2FH 




;H=msb of BCD ASCII 


2C65 24 


04780 LPADD 


INC 


H 




;Bump msb 


2C66 D60A 


04790 




SUB 


10 




;Successive sub's of 10 
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2C68 30FB 


04800 


JR 


NCLPADD 


Keep sub til carry 


2C6A C63A 


04810 


ADD 


A,3AH 


A = Isb ASCII 


2C6C 6F 


04820 


LD 


L.A 


,HL => DEC ASCII 


2C6D C9 


04830 
04840 


RET 








04850 


; DECHEX 


- Convert Decimal 


ASCII to Hex 




04860 








2C6E CD822C 


04870 I 


kcHEX CALL 


GETDIG 


,Get digit 


2C71 23 


04880 


INC 


HL 


.Next byte in buffer 


2C72 05 


04890 


DEC 


B 


,Dec digit counter 


2C73 280B 


04900 


JR 


Z,D0NE1 


,A11 done 


2C75 57 


04910 


LD 


D,A 


;Xfer to D 


2C76 CD822C 


04920 


CALL 


GETDIG 


,Get digit 


2C79 5F 


04930 


LD 


E,A 


,Save digit 


2C7A 7A 


04940 


LD 


A,D 


,P/u ten's digit 


2C7B 87 


04950 


ADD 


A,A 


; Multiply 


2C7C 87 


04960 


ADD 


A,A 


A times 10 


2C7D 82 


04970 


ADD 


A,D 


, and add it 


2C7E 87 


04980 


ADD 


A.A 


to the ones digit 


2C7F 83 


04990 


ADD 


A.E 


;A = number of tracks 


2C80 BF 


05000 [ 


)0NE1 CP 


A 


.Set Z flag 


2C81 C9 


05010 
05020 , 


RET 




; and RETurn 


2C82 7E 


05030 GETDIG LD 


A,(HL) 


P/u second digit 


2C83 D630 


05040 


SUB 


'0' 


Cvt to binary 


2C85 3803 


05050 


JR 


C, ILLEGAL 


Clr stack & RETurn NZ 


2C87 FE0A 


05060 


CP 


10 


Legal digit 


2C89 D8 


05070 


RET 


C 


;Yes - A = digit 


2C8A 3C 


05080 ] 


[LLEGAL INC 


A 


Reset Z flag 


2C8B El 


05090 


POP 


HL 


Clear stack 


2C8C C9 


05100 
05110 


RET 




; and RETurn 




05120 


; Verify Error - P/u Bank / Address & display 




05130 








2C8D E5 


05140 £ 


ERROR PUSH 


HL 


L = Isb of Address 


2C8E 3EC9 


05150 


LD 


A,0C9H 


Modify GETADR routine 


2C90 32722E 


05160 


LD 


(STFRET),A 


HL <= page from DE 


2C93 CD5D2E 


05170 


CALL 


GETADR 




2C96 Dl 


05180 


POP 


DE 


;E = Isb of address 


2C97 6B 


05190 
05200 


LD 


L,E 


;HL = Bad RAM address 




05210 


Stuff Bank # and Address 


into string 




05220 








2C98 3E30 


05230 


LD 


A,'0' 


Cvt BANK # to ASCII 


2C9A 81 


05240 


ADD 


A,C 




2C9B 324737 


05250 


LD 


(VBANK),A 


Stuff into string 


2C9E EB 


05260 


EX 


DE,HL 


Xfer address to DE 


2C9F 215737 


05270 


LD 


HL,VLOC 


.HL => string destination 


2CA2 


05280 


(P(aHEX16 




.Cvt DE to Hex ASCII 9 HL 


2CA2 3E63 


00011 


LD 


A. 99 




2CA4 EF 


00012 
05290 , 


RST 


40 






05300 , 


Display 


string & restore 


hi /low mem 




05310 , 








2CA5 213137 


05320 


LD 


HL.BADRAM ; 


"BAD RAM ... 


2CA8 


05330 


@@LOGOT 




Display it 




00013 


IFEQ 


00H,1 






00014 


LD 


HL, 






00015 


ENDIF 
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2CA8 3E0C 
2CAA EF 
2CAB C3EE2E 



2CAE 
2CAF 
2CB2 
2CB3 
2CB4 
2CB8 
2CB9 
2CBA 
2CBB 
2CBE 
2CBF 
2CC3 
2CC6 
2CC7 
2CC8 
2CC9 
2 CCA 



E3 

22C42C 

El 

E5 

ED53B832 

D5 

C5 

F5 

11C62C 

D5 

ED5BB832 

C 30000 

Fl 

CI 

Dl 

El 

C9 



2CCB C5 
2CCC 0602 
2CCE 

2CCE 3E66 
2CD0 EF 
2CD1 CI 
2CD2 C8 
2CD3 C3DA32 



2CD6 210039 
2CD9 

2CD9 3E09 
2CDB EF 
2CDC DA1B2C 
2 CDF 04 
2CE0 05 
2CE1 C9 



2CE2 D5 
2CE3 E5 



2CE4 110012 
2CE7 3EFF 



2CE9 3C 



00016 

00017 

05340 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 

05590 

05600 

00018 

00019 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

00020 

00021 

05690 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 



LD 

RST 

JP 



A, 12 

40 

OLDRVR 



; Leave & clear stack 
SAVEREG - Save All Primary Registers 



SAVEREG EX 
LD 
POP 
PUSH 
LD 

PUSH 
PUSH 
PUSH 
LD 
PUSH 
LD 
RETADDR^JP 
RESTREG POP 
POP 
POP 
POP 
RET 



INPUT 



BPC 



DIVLP 



(SP).HL 

(RETADDR+1),HL 

HL 

HL 

(SAVEDE),DE 

DE 

BC 

AF 

DE, RESTREG 

DE 

DE,(SAVEDE) 

$-$ 

AF 

BC 

DE 

HL 



CKBANK - Check if Bank C is in use 



CKBANK PUSH BC 

LD B,2 
(3@BANK 

LD A, 102 . 

RST 40 

POP BC 

RET Z 

JP BNKUSE 



;Save BC 
;Bank in use ? 
;Check it out 



;Recover BC 

;RETurn if available 

; else - display "in use" 



INPUT - Input a line to the input buffer 



LD HL, BUFFER 

@@KEYIN 

LD A, 9 

RST 40 

JP C, ABORT 

INC B 

DEC B 

RET 



;HL => Input buffer 
;Input line 



;Exit if <BREAK> hit 
;Set Z if no chars 



; else RETurn 
GETCYL - Get max # of cylinders in A 



GETCYL PUSH 
PUSH 



DE 
HL 



;Save regs 



Init DE = # bytes/cyl, A = dividend (-1) 



LD 
LD 



DE,DDBPC 
A,-l 



;P/u bytes/cyl 

;Init avail cyl cnt = -1 



Divide total bytes available by Bytes/cyl 
INC A ;Bump cyl count 
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2CEA B7 


05870 


OR 


A 


2CEB ED52 


05880 


SBC 


HL,DE ;Take off 1 cyl 


2CED 30FA 


05890 
05900 ; 


JR 


NC,DIVLP ;Loop until carry 




05910 ; 


A = # 


of cyls avail. Restore regs 




05920 ; 






2CEF El 


05930 


POP 


HL ;Recover regs 


2CF0 Dl 


05940 
05950 ; 


POP 


DE 




05960 ; 


Set Z 


flag if more than 1 cylinder available 




05970 ; 






2CF1 FE02 


05980 


CP 


2 ;0 or 1 ? 


2CF3 D8 


05990 


RET 


C ;Yes - RETurn NZ 


2CF4 BF 


06000 


CP 


A ;Set Z flag 


2CF5 C9 


06010 
06020 ; 


RET 


; and RETurn 




06030 ; 


CALCDRV - Calculate drive Number for MemDISK 




06040 ; 








06050 ; 


DE => 


DCT block for Drive 




06060 ; 






2CF6 


06070 CALCDRV 


EQU 


$ 


2CF6 EB 


06080 


EX 


DE,HL ;Xfer to HL 


2CF7 22BA32 


06090 


LD 


(SAVEDCT),HL ;Save DCT pointer 


2CFA CD202D 


06100 


CALL 


SAVDCT ;Save DCT 


2CFD 7C 


06110 


LD 


A,H ; Drive number issued ? 


2CFE B5 


06120 


OR 


L 


2CFF CABE32 


06130 
06140 ; 


JP 


Z,NODRV ;No drive entered 




06150 ; 


Get Start of Drive Code Table 




06160 ; 






2D02 0E00 


06170 


LD 


C,0 ;Get start of DCT 


2D04 


06180 


(a@GTDCT ;Get DCT for Drive 


2D04 3E51 


00022 


LD 


A, 81 


2D06 EF 


00023 


RST 


40 


2D07 FDE5 


06190 


PUSH 


lY ;Get DCT start 


2D09 Dl 


06200 
06210 ; 


POP 


DE 




06220 ; 


Calcul 


ate Offset in Table 




06230 ; 






2D0A AF 


06240 


XOR 


A 


2D0B ED52 


06250 


SBC 


HL,DE ;L = offset from start 


2D0D B5 


06260 


OR 


L ;P/u offset 


2D0E CAC232 


06270 
06280 ; 


JP 


Z,BADDRV ;Cannot use DRIVE 




06290 ; 


Divide 


i offset by 10 to get drive # 




06300 ; 






2D11 06FF 


06310 


LD 


B,-l ;Init dividend = -1 


2D13 04 


06320 DIVLPl 


INC 


B ;Bump dividend 


2D14 D6aA 


06330 


SUB 


10 ;Subtract ten 


2D16 30FB 


06340 
06350 ; 


JR 


NC, DIVLPl 




06360 ; 


Stuff 


away drive # into WRSEC routine 




06370 ; 






2D18 78 


06380 


LD 


A,B ;P/u drive # 


2D19 32C52F 


06390 
06400 ; 


LD 


(DRIVE+1),A ;Stuff away drive # 




06410 ; 


Point 


lY to System Flag table & RETurn 




06420 ; 






2D1C 


06430 


@@FLAGS ;IY => Flags 
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2D1C 3E65 


00024 


LD 


A, 101 


2D1E EF 


00025 


RST 


40 


2D1F C9 


06440 
06450 


RET 


; Later 




06460 


; SAVDCT 


- Save Old DCT setup 




06470 






2D20 CDAE2C 


06480 SAVDCT CALL 


SAVEREG ;Save registers 


2D23 11003A 


06490 


LD 


DE.DUPDCT ; Destination 


2D26 010A00 


06500 1 


30XFER1 LD 


BC,10 ;10 bytes to xfer 


2D29 EDB0 


06510 


LDIR 




2D2B C9 


06520 


RET 






06530 








06540 


; GETDUP 


- Get Duplicate of original DCT setup 




06550 






2D2C ED5BBA32 


06560 GETDUP LD 


DE,( SAVE DCT) ;DE => DCT+0 


2D30 21003A 


06570 


LD 


HL,DUPDCT ;Source 


2D33 18F1 


06580 
06590 


JR 


DOXFERl jTransfer back 




06600 


; GTDRV - 


P/u Next available Driver Address 




06610 








06620 


; IX <= Driver Address Pointer 




06630 


; DE <= C 


urrent Address 




06640 






2D35 E5 


06650 ( 


3TDRV PUSH 


HL ;Save HL 


2D36 114B49 


06660 


LD 


DE,'IK' ;P/u *KI DCB address 


2D39 


06670 


@@GTDCB 




2D39 3E52 


00026 


LD 


A, 82 


2D3B EF 


00027 


RST 


40 


2D3C 2B 


06680 


DEC 


HL ;KIDCB - 2 => free area 


2D3D E5 


06690 


PUSH 


HL ;Xfer to IX 


2D3E DDEl 


06700 


POP 


IX 


2D40 56 


06710 


LD 


D,(HL) ;P/u address in DE 


2D41 2B 


06720 


DEC 


HL 


2D42 22F82E 


06730 


LD 


(KIDCB$+1),HL ;Save address to stuff 


2D45 5E 


06740 


LD 


E.(HL) 


2D46 El 


06750 


POP 


HL ; Recover HL 


2D47 C9 


06760 
06770 , 


RET 






06780 , 


INSTDRV 


- Relocate & Install Disk Driver 




06790 , 






2D48 EB 


06800 ] 


[NSTDRV EX 


DE,HL ;Xfer dest to HL 


2D49 11BE2D 


06810 


LD 


DE, DRIVER ;Start of driver 


2D4C E5 


06820 


PUSH 


HL ;Save Source & Dest ptrs 


2D4D D5 


06830 


PUSH 


DE 


2D4E B7 


06840 


OR 


A ;Clear carry 


2D4F ED52 


06850 
06860 ; 


SBC 


HL,DE ;Get offset 




06870 ; 


Relocate internal references in driver 




06880 ; 






2D51 DD21702D 06890 


LD 


IX.RELTBL ;Point to relocation tbl 


2D55 44 


06900 


LD 


B,H ;Move to BC 


2D56 4D 


06910 


LD 


C.L 


2D57 DD6E0a 


06920 R 


lOOP LD 


L,(IX) ;Get address to change 


2D5A DD6601 


06930 


LD 


H,(IX+1) 


2D5D 7C 


06940 


LD 


A,H 


2D5E B5 


06950 


OR 


L 


2D5F 2829 


06960 


JR 


Z,RELDUN 


2D61 5E 


06970 


LD 


E,(HL) ;P/U address 


2D62 23 


06980 


INC 


HL 
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2D63 56 


06990 




LD 


D,(HL) 




2D64 EB 


07000 




EX 


DE,HL 


;Offset it 


2D65 09 


07010 




ADD 


HL,BC 




2D66 EB 


07020 




EX 


DE,HL 




2D67 72 


07030 




LD 


(HL),D 


;Put it back 


2D68 28 


07040 




DEC 


HL 




2D69 73 


07050 




LD 


(HL),E 




2D6A DD23 


07060 




INC 


IX 




2D6C DD23 


07070 




INC 


IX 




2D6E 18E7 


07080 
07090 




JR 


RLOOP 


;Loop till done 




07100 




Relocat 


ion Table for 


Driver 




07110 










2D70 002 E 


07120 RELTBL 


DW 


REL1+1,REL2+1 


,REL3+1,REL4+1 


1!?2E 412E 472E 










2D78 7A2E 


07130 




DW 


REL5+l,REL6+2 


,REL7+1,REL8+1,REL8A+1 


E22D E62D EC2D 


362E 








2D82 7D2E 


07140 




DW 


REL8B+1,REL9+1,REL2A+1,0 


E92D 072 E 0000 












07150 


9 










07160 


9 


Transfer MemDisk driver to driver area 




07170 


9 








2D8A El 


07180 RE L DUN 


POP 


HL 


;HL => Source DE => Dest 


2D8B Dl 


07190 




POP 


DE 




2D8C D5 


07200 




PUSH 


DE 


;Save start 


2D8D 01DC00 


07210 




LD 


BC, LENGTH 


;# bytes to move 


2D90 EDB0 


07220 




LDIR 




;Block move 


2D92 Dl 


07230 




POP 


DE 


;Restore start 


2D93 C9 


07240 
07250 


» 


RET 




;RETurn 




07260 


» 


SETDCT 


- Set up Drive 


Code Table for MemDISK 




07270 


9 








2D94 DD2ABA32 


07280 


SETDCT 


LD 


IX,(SAVEDCT) 


;IX => DCT address 


2D98 DD3600C3 07290 




LD 


(IX+0),0C3H 


;Enable 


2D9C DD7301 


07300 




LD 


(IX+1).E 


;Lsb of driver 


2D9F DD7202 


07310 




LD 


(IX+2),D 


;Msb of driver 


2DA2 DD360340 07320 


SDEND 


LD 


(IX+3),40H 


;DD, 5", floppy, step=6 


2DA6 DD360450 07330 


SDENE 


LD 


(IX+4),50H 


;DDC=Y, 1 side, ALIEN 


2DAA DD360500 07340 




LD 


(IX+5).0 


; Current Cyl = 


2DAE DD7706 


07350 




LD 


(IX+6),A 


;# of tracks rel from 


2DB1 DD360711 


07360 SDENF 


LD 


(IX+7),17 


;18 spt (DD), 10 spt (SD) 


2DB5 DD360845 


07370 


SDENG 


LD 


(IX+8),45H 


;2/3 G/C, 5/6 S/G 


2DB9 DD360901 


07380 




LD 


(IX+9),1 


; Directory Cyl = 1 


2DBD C9 


07390 




RET 




;RETurn 


2DBE 


00550 


*GET 


MEMDISKC:3 






07400 


;MEMDISKC/ASM - 


MemDISK Driver Code 


2DBE 


07410 




SUBTTL 


'<MEMDISKC - 


MemDISK Driver>' 
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2DBE 


07420 
07430 ; 


PAGE 






2DBE 181D 


07440 DRIVER 


JR 


INIT 


;Jump around header 


2DC0 0000 


07450 OLDHIGH 


DW 





;01d HIDRV$ 


2DC2 03 


07460 


DB 


3,'$MD' 


; Header 


24 4D 44 










2DC6 0000 


07470 OLD HI 


DW 





;01d HIGH$ (for bank 0) 


2DC8 00 


07480 BANK I M 


DB 


00000000 B 


;Bank Image 


2DC9 0000 


07490 DRVLOW 


DW 





;What driver addr was 


2DCB 0000 


07500 MEMHIGH 
07510 ; 


DW 





;HIGH$ after installed 




07520 


IF 


@M0D2 






07530 


DC 


32,0 


;Model 2 stack area 




07540 ; 










07550 


ELSE 






2DCD 00 


07560 


DC 


16,0 


; Driver Stack Area 


00 00 00 00 00 00 00 00 






00 00 00 00 00 00 00 










07570 


ENDIF 






2DDD 


07580 MYSTACK 
07590 ; 


EQU 


$ 


; Start of Mystack 




07600 ; 


Reset 


SP to MYSTACK, and CALL driver 




07610 ; 








2DDD E5 


07620 INIT 


PUSH 


HL 


;Save Registers 


2DDE D5 


07630 


PUSH 


DE 


» 


2DDF C5 


07640 


PUSH 


BC 


s 


2DE0 ED73EF2D 07650 REL6 


LD 


(SAVESP+1),SP 


;Save original SP 


2DE4 F3 


07660 


DI 




; Interrupts off 


2DE5 31DD2D 


07670 REL7 


LD 


SP, MYSTACK 


;Memdisk SP 


2DE8 228C2E 


07680 REL9 


LD 


(BUFF+1),HL 


;Save buffer addr request 


2DEB CDF62D 


07690 REL8 


CALL 


MEMDRIV 


;Call the actual driver 


2DEE 310000 


07700 SAVESP 


LD 


SP,$-$ 


;P/u original SP 


2DF1 FB 


07710 


EI 




;Back on 


2DF2 CI 


07720 


POP 


BC 


;Restore Registers 


2DF3 Dl 


07730 


POP 


DE 




2DF4 El 


07740 


POP 


HL 




2DF5 C9 


07750 
07760 ; 


RET 






2DF6 78 


07770 MEMDRIV 
07780 ; 


LD 


A,B 


;Get operation byte 


2DF7 FE09 


07790 B9 


CP 


9 


;Operation #9 ? 


2DF9 2027 


07800 
07810 ; 


JR 


NZ,B10 


;No - Check for Verify 




07820 ; 


READ sector - Set Z if 


D = directory cyl 




07830 ; 








2DFB 15 


07840 


DEC 


D 


;Set Z flag if Cyl = 1 


2DFC F5 


07850 


PUSH 


AF 




2DFD 14 


07860 
07870 ; 


INC 


D 


; Res tore cyl # 




07880 ; 


Set up 


1 For transfer to 


temporary I/O buffer 




07890 ; 








2DFE E5 


07900 


PUSH 


HL 


;Save User I/O buffer ptr 


2DFF CD5D2E 


07910 RELl 


CALL 


GETADR 


;HL => MemDISK Sector 


2Ej32 3808 


07920 
07930 ; 


JR 


CDOXFER 


;High - use temporary buf 




07940 ; 


I/O buff is low - xfer 


MemDISK sector to it 




07950 ; 








2E04 EDB0 


07960 


LDIR 




;Xfer directly to buffer 


2E06 CD832E 


07970 REL2A 


CALL 


GETOLD 


;Get original bank 


2E09 El 


07980 


POP 


HL 


;HL => User I/O buffer 
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2E0A 180D 


07990 
08000 ; 


JR 


CHKDIR2 ; 


Check if directory cyl 




08010 ; 


Transfer MemDISK sector to Temporary Buffer 




08020 ; 








2E0C D5 


08030 DOXFER 


PUSH 


DE ; 


DE => Temporary Buffer 


2E0D EDB0 


08040 
08050 ; 


LDIR 


s 


Xfer to system area 




08060 ; 


Xfer data from temporary 


to User Buffer 




08070 ; 








2E0F CD832E 


08080 REL2 


CALL 


GETOLD ; 


Get original bank 


2E12 El 


08090 


POP 


HL ; 


HL => Temporary buffer 


2E13 Dl 


08100 


POP 


DE ; 


DE => User I/O buffer 


2E14 010001 


08110 


LD 


BC,256 ; 


BC = 256 bytes to xfer 


2E17 EDB0 


08120 
08130 ; 


LDIR 




Xfer to user buffer 




08140 ; 


Set A = 


Error #6 if Cylinder 1 (Directory) 




08150 ; 








2E19 Fl 


08160 CHKDIR2 


POP 


AF ; 


Get Z 


2E1A 2004 


08170 CHKDIR 


JR 


NZ, NOTDIR ; 


Not a directory read 


2E1C 3E06 


08180 


LD 


A,6 ; 


Error Code = 6 


2E1E B7 


08190 


OR 


A ; 


NZ condition 


2E1F C9 


08200 


RET 




And RETurn 


2E20 AF 


08210 NOTDIR 


XOR 


A ; 


Set Z flag 


2E21 C9 


08220 
08230 ; 


RET 




And return 


2E22 FE0A 


08240 B10 


CP 


10 ; 


Verify sector ? 


2E24 2003 


08250 
08260 ; 


JR 


NZ,B13 ; 


Check more if not 




08270 ; 


Verify 


a sector 






08280 ; 








2E26 15 


08290 


DEC 


D ; 


Directory Cylinder 


2E27 18F1 


08300 
08310 ; 


JR 


CHKDIR 


Check if Directory cyl 


2E29 FE0D 


08320 B13 


CP 


13 


,Write a sector? 


2E2B 201E 


08330 
08340 ; 


JR 


NZ,B14 


Check further if not 




08350 ; 


Write A Sector 






08360 ; 








2E2D 3E0F 


08370 WRITES 


LD 


A,WP 


;WP error X'0F' 


2E2F FDCB037E 08380 


BIT 


7,(IY+3) 


.Software Write Protect? 


2E33 C0 


08390 
08400 ; 


RET 


NZ 


;Return with error 




08410 ; 


Set up 


for Tranfer to Temporary Buffer 




08420 ; 








2E34 D5 


08430 


PUSH 


DE 


;Save Cyl /Sector 


2E35 CD8A2E 


08440 REL8A 


CALL 


6ETBUF 


;Get buffer ptr 


2E38 3005 


08450 


JR 


NC, RECVDE 


;Get back DE 


2E3A 010001 


08460 


LD 


BC,256 


;BC = 256 bytes to xfer 


2E3D EDB0 


08470 


LDIR 




;Xfer to temp buffer 


2E3F Dl 


08480 RECVDE 
08490 ; 


POP 


DE 


;DE = Cyl /sector 




08500 ; 


Get Sector from MemDISK I 


5( xfer to User buff 




08510 ; 








2E40 CD5D2E 


08520 REL3 


CALL 


GETADR 


;HL <= Mem, DE <= Buffer 


2E43 EB 


08530 


EX 


DE,HL 




2E44 EDB0 


08540 


LDIR 




;Xfer to user buffer 


2E46 CD832E 


08550 REL4 


CALL 


GETOLD 


;Get original back 


2E49 AF 


08560 


XOR 


A 


;Set Z flag 


2E4A C9 


08570 


RET 
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08580 ; 








2E4B FE0E 


08590 B14 


CP 


14 


; Write system sector? 


2E4D 28DE 


08600 
08610 ; 


JR 


Z.WRITES 


;Go if so 


2E4F FE0C 


08620 


CP 


12 


; Format command? 


2E51 2804 


08630 


JR 


Z,B14A 


;6o if so 


2E53 FE0F 


08640 


CP 


15 


;Write Track ? 


2E55 2004 


08650 


JR 


NZ.EXl 


;No - exit Z 


2E57 3E08 


08660 B14A 


LD 


A,8 


;Yes - Exit NZ 


2E59 B7 


08670 


OR 


A 


;Error = Device not avail 


2E5A C9 


08680 
08690 ; 


RET 






2E5B AF 


08700 EXl 


XOR 


A 


;Zero A, set Z 


2E5C C9 


08710 
08720 ; 


RET 




; Ret urn with Z set 




08730 ; 


GETADR 


- Point HL to 


MemDISK area 




08740 ; 


- Point DE to Tempo 


rary buffer 




08750 ; 


- Set 


BC = 256 (byt 


es to xfer) 




08760 ; 








2E5D 7A 


08770 GETADR 
08780 ; 


LD 


A,D 


;P/u Cylinder # 




08790 ; 


Multiply cylinder # 


x 10 or 18 ( sector s/cyl) 




08800 ; 








2E5E 87 


08810 SDENA 


ADD 


A, A 


|X 2 or NOP if Single Den 


2E5F 57 


08820 


LD 


D,A 


;ODEN = x 2 SDEN = x 1 


2E60 87 


08830 


ADD 


A,A 


;DDEN = X 4 SDEN = x 2 


2E61 87 


08840 


ADD 


A,A 


;DDEN = X 8 SDEN = x 4 


2E62 87 


08850 SDENB 


ADD 


A, A 


;DDEN = x 16 SDEN = x 5 


2E63 82 


08860 SDENC 
08870 ; 


ADD 


A,D 


;DDEN = X 18 SDEN = x 10 




08880 ; 


Add Sect offset (E) 


& add 80H if bank 2 active 




08890 ; 








2E64 83 


08900 


ADD 


A,E 


;Add sector offset 


2E65 C600 


08910 OFFSET 
08920 ; 


ADD 


As4>-4> 


;80H if 2 active 




08930 ; 


Set HL 


=> sector, C 


= Default bank (0 or 1) 




08940 ; 








2E67 67 


08950 


LD 


H,A 


; Stuff msb in H 


2E68 2E|Z^ 


08960 


LD 


LJ 


;Land on page boundary 


2E6A 0E00 


08970 DEFBANK 
08980 ; 


LD 


C,$-$ 


;C = or C = 1 




08990 ; 


Set C = 


= Bank #2 if Address > X'7FFF' 




09000 ; 








2E6C 07 


09010 


RLCA 




;Address > X'ZFFF' ? 


2E6D 3001 


09020 


JR 


NCGOTBANK 


;No - got it 


2E6F 0C 


09030 
09040 ; 


INC 


C 


;Yes - Set C = 2 




09050 ; 


Force address > X'7FFF^ & Select Bank C 




09060 ; 








2E70 CBFC 


09070 60TBANK 


SET 


7,H 


;Force Address > X'7FFF' 


2E72 45 


09080 STFRET 


LD 


B,L 


1 Bring in Bank C 


2E73 


09090 


mmm 






2E73 3E66 


00028 


LD 


A, 102 




2E75 EF 


00029 
09100 ; 


RST 


40 






09110 ; 


Pick up 


» Bank previously in use & Save 




09120 ; 








2E76 79 


09130 


LD 


A,C 


;P/u last bank 


2E77 E67F 


09140 


AND 


7FH 


; Ignore Hi -bit 
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2E79 32842E 


09150 REL5 
09160 ; 


LD 


(GET0LD+1),A 


; and stuff away 




09170 ; 


Set DE 


=> Overlay Buffer, BC = 256 




09180 ; 








2E7C CD8A2E 


09190 REL8B 


CALL 


GETBUF 


;Get buffer ptr 


2E7F 010001 


09200 


LD 


BC,256 


;Set BC = 256 


2E82 C9 


09210 
09220 ; 


RET 








09230 ; 


OLDBNK 


- Get origina 


1 Bank used 




09240 ; 








2E83 010000 


09250 GETOLD 


LD 


BC,$-$ 


;B = 0, C = Bank # 


2E86 


09260 


@@BANK 




;Get bank 


2E86 3E66 


00030 


LD 


A, 102 




2E88 EF 


00031 


RST 


40 




2E89 C9 


09270 
09280 ; 


RET 








09290 ; 


GETBUF 


- Get Buffer i 


ptr to LDIR from or to 




09300 ; 








2E8A E5 


09310 GETBUF 


PUSH 


HL 


;Save source/dest ptr 


2E8B 110000 


09320 BUFF 


LD 


DE,$-$ 


;P/u requested I/O buffe 


2E8E 21007F 


09330 


LD 


HL,7F00H 


;Use (BUFF+1) if < 7F00H 


2E91 B7 


09340 


OR 


A 




2E92 ED52 


09350 


SBC 


HL,DE 


;Past 7F00H ? 


2E94 El 


09360 


POP 


HL 


;Rcvr ptr 


2E95 D0 


09370 


RET 


NC 


;No - use requested buff 


2E96 110023 


09380 


LD 


DE, BUFFERS 


;Yes - use BUFFERS 


2E99 C9 


09390 
09400 ; 


RET 






00 DC 


09410 LENGTH 


EQU 


$-DRIVER 


; Length of Driver 


2E9A 


00560 *GET 


MEMDISKA:3 






09420 ;MEMDISKA/ASM - 


Memdisk Init 


ialization 


2E9A 


09430 


SUBTTL 


•<MEMDISKA - 


Installation>' 
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2E9A 


09440 


PAGE 








09450 


1 






2E9A F5 


09460 


INSTMEM PUSH 


AF 


;Save # cyls 


2E9B C5 


09470 
09480 


PUSH 


BC 


;Save Bank # 




09490 


; Is there a MemDISK driver trapped ? 




09500 








2E9C 11C034 


09510 


LD 


DE,MD$ 


;"$MD" 


2E9F 


09520 


(a@GTMbC 


1 


; MemDISK in ? 


2E9F 3E53 


00032 


LD 


A, 83 




2EA1 EF 


00033 


RST 


40 




2EA2 2011 


09530 
09540 


JR 


NZ,NOT IN 


;No 




09550 


; There is a driver trapped - use that area 




09560 








2EA4 22EF2E 


09570 


LD 


(0LDRVR+1),HL 


;Save old driver addr 


2EA7 EB 


09580 


EX 


DE,HL 


;Pt DE => Destination 


2EA8 216737 


09590 


LD 


HL,RE USE 


;Set re-use flag 


2EAB 34 


09600 


INC 


(HL) - 




2EAC 21DB00 


09610 


LD 


HL,LENGTH-1 


;Set HL = last used 


2EAF 19 


09620 


ADD 


HL,DE 


; address of driver 


2EB0 22C02D 


09630 


LD 


(OLDHIGH),HL 


;Xfer into driver 


2EB3 1827 


09640 
09650 


JR 


DOJNST 


;Install driver 




09660 


; Driver 


is not in memory 


- is there room ? 




09670 








2EB5 CD352D 


09680 t 


IlOT IN CALL 


GTDRV 


;P/u low driver ptr 


2EB8 ED53EF2E 09690 


LD 


(0LDRVR+1),DE 


;Save it 


2EBC 21DB00 


09700 


LD 


HL,LENGTH-1 


;HL = length of driver 


2EBF 010013 


09710 


LD 


BCHIDRVR 


;BC = 1 + highest avail 


2EC2 19 


09720 


ADD 


HL,DE 


;HL => Last used by Mem 


2EC3 22C02D 


09730 


LD 


(OLDHIGH),HL 




2EC6 23 


09740 


INC 


HL 




2EC7 B7 


09750 


OR 


A 




2EC8 E5 


09760 


PUSH 


HL 


;Will MemDisk fit ? 


2EC9 ED42 


09770 


SBC 


HL,BC 




2ECB El 


09780 


POP 


HL 




2ECC 3808 


09790 
09800 , 


JR 


COKTOGO 


;Yes - let's do it 




09810 , 


Insufficient Driver space 




09820 , 








2ECE 21D232 


09830 


LD 


HL,NOMEM 


;Alter exit message 


2ED1 22112F 


09840 


LD 


($N0T+1),HL 




2ED4 1818 


09850 
09860 , 


JR 


OLDRVR 


;Reclaim hi mem if bank 




09870 , 


Save next avail mem addr & set Memdisk bit 




09880 ; 








2ED6 DD7400 


09890 C 


KTOGO LD 


(IX), H 


; Stuff msb 


2ED9 DD75FF 


09900 
09910 , 


LD 


(IX-1),L 


; Stuff Isb 




09920 ; 


Install 


MemDISK driver & set up DCT 




09930 ; 








2EDC CD482D 


09940 [ 


)0 INST CALL 


INSTDRV 


;Relocate, install driver 


2EDF CI 


09950 


POP 


BC 


;C = Bank # requests 


2EE0 Fl 


09960 


POP 


AF 


;A = # cylinders 


2EE1 CD942D 


09970 
09980 ; 


CALL 


SETDCT 


;Set up DCT 




09990 ; 


Prompt 


for Format 






10000 ; 








2EE4 CD7C32 


10010 


CALL 


FORMTIT 


; Format this ? 
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2EE7 282A 


10020 
10030 ; 


JR 


Z, DOFORMl 


;Yes - do it 




10040 ; 


Format 


= No, Is there 


a MemDISK here ? 




10050 ; 








2EE9 3E00 


10060 MEMINl 


LD 


A,$-$ 


;0 = not active 


2EEB B7 


10070 


OR 


A 




2EEC 2034 


10080 
10090 ; 


JR 


NZ, SHOWINU 


;MemDisk previously in 




10100 ; 


Abort installation - stuff X'C9' in DCT 




10110 ; 








2EEE 210000 


10120 OLDRVR 


LD 


HL.$-$ 


;P/u original driver addr 


2EF1 3A6737 


10130 


LD 


A, (RE USE) 


;Have we re-used driver 


2EF4 B7 


10140 


OR 


A 


; area that was trapped ? 


2EF5 2003 


10150 


JR 


NZ,IX)NTRES 


;Yes - don't reset memptr 


2EF7 220000 


10160 KIDCBS 


LD 


($-$). HL 


; Stuff ptr used 


2EFA 2ABA32 


10170 DONTRES 


LD 


HL,( SAVE DCT) 


;P/u DCT address 


2EFD 36C9 


10180 


LD 


(HL).0C9H 


;Disable it 


2EFF FDCB03A6 10190 


RES 


4,(IY+DFLAG$) 


; Reset MemDISK bit 


2F03 3A292C 


10200 


LD 


A,(SETBANK+1) 


;P/u bank request 


2F06 B7 


10210 


OR 


A 


;If alternate bank(s). 


2F07 2007 


10220 


JR 


HI,$mJ 


; don't reset high$ 


2F09 2AC534 


10230 


LD 


HL,(MDDATA+2) 


;Pu old high$ 


2F0C 47 


10240 


LD 


B,A 




2F0D 


10250 


@@HIGH$ 




;Reset high$ 


2F0D 3E64 


00034 


LD 


A. 100 




2F0F EF 


00035 


RST 


40 




2F10 C3DE32 


10260 $NOT 
10270 ; 


JP 


NOTACT 


;Show not installed 




10280 ; 


Format 


mem, init GAT & HIT, & BOOT-OIR entries 




10290 ; 








2F13 CD2D32 


10300 DOFORMl 


CALL 


FORMAT 


; Format 


2F16 CD302F 


10310 


CALL 


WRBOOT 


; Write BOOT/SYS 


2F19 CD5A2F 


10320 


CALL 


WRGAT 


; Initialize GAT 


2F1C CDD52F 


10330 


CALL 


WRHIT 


; Initialize HIT 


2F1F CDE22F 


10340 


CALL 


WRENT 


;Put DIR & BOOT entries 


2F22 CD282C 


10350 SHOWINU CALL 


SETBANK 


;Show Banks in use 


2F25 FDCB03E6 10360 


SET 


4,(IY+DFLAG$) 


;Set MemDisk flag 


2F29 211335 


10370 


LD 


HL.INSTALD 


;Init"MemDisk Installed 


2F2C 


10380 


@@LOGOT 




; Display the msg 




00036 


IFEQ 


00H,1 






00037 


LD 


HL, 






00038 


ENDIF 






2F2C 3E0C 


00039 


LD 


A, 12 




2F2E EF 


00040 


RST 


40 




2F2F C9 


10390 
10400 ; 


RET 




;Done - GO TO EXIT 




10410 ; 


kRBOOT 


- Write BOOT/SYS information 




10420 ; 








2F30 AF 


10430 WRBOOT 


XOR 


A 


;Fill byte 


2F31 210038 


10440 
10450 ; 


LD 


HL,IOBUFF 


;HL => I/O buffer 




10460 ; 


Fill BOOT/SYS with Zeroes 




10470 ; 








2F34 77 


10480 FILBUF 


LD 


(HL),A 


; Stuff in byte 


2F35 2C 


10490 


INC 


L 


;One sector to 


2F36 20FC 


10500 
10510 ; 


JR 


NZ,FILBUF 


; fill 




10520 ; 


Write 1 


of Sectors in 


BOOT 




10530 ; 
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2F38 57 


10540 


LD 


D,A 


; Cylinder 


2F39 5F 


10550 


LD 


E,A 


; Sector 


2F3A 0606 


10560 BTSECS 


LD 


B,6 


;P/u Sec cnt - 5,6, or 18 


2F3C CDC12F 


10570 BTLP 


CALL 


WRSEC 


; Write sector 


2F3F IC 


10580 


INC 


E 


;Bump 


2F40 10FA 


10590 
10600 ; 


DJNZ 


BTLP 






10610 ; 


Write 


Directory Cyl" 


nder byte in Sector Zero 




10620 ; 








2F42 2E02 


10630 


LD 


L.2 


;Byte 2 


2F44 3601 


10640 
10650 ; 


LD 


(HL),1 


; Directory cyl = 1 




10660 ; 


Write 


Sector of Cylinder 




10670 ; 








2F46 110000 


10680 


LD 


DE,0 


; Cylinder 0, Sector 


2F49 CDC12F 


10690 
10700 ; 


CALL 


WRSEC 


; Write Sector 




10710 ; 
10720 ; 
10730 


Make 


a duplicate of 


sector in sector 1 


2F4C IC 


INC 


E 


; Sec tor 1 


2F4D CDC12F 


10740 
10750 ; 


CALL 


WRSEC 


;Write sector 




10760 ; 


Write C/R in Auto Buffer in Sector 2 




10770 ; 








2F50 1E02 


10780 


LD 


E.2 


; Sec tor 2 


2F52 2E20 


10790 


LD 


L,20H 


;Byte X'20' 


2F54 360D 


10800 


LD 


(HL),CR 


;No auto 


2F56 CDC12F 


10810 


CALL 


WRSEC 


; Write sector 


2F59 C9 


10820 
10830 ; 


RET 




;RETurn for now 




10840 ; 


WRGAT 


- Write Granul 


e Allocation Table 




10850 ; 










10860 ; 








2F5A 210038 


10870 WRGAT 


LD 


HL,IOBUFF 


;HL => I/O buffer 


2F5D 36F9 


10880 GAT0 


LD 


(HL),0F9H 


;DD - X'F9', SD - X'FD' 


2F5F 23 


10890 
10900 ; 


INC 


HL 


;Bump 




10910 ; 


Lock ( 


Dut next X'CA' 


bytes in GAT 




10920 ; 








2F60 06CA 


10930 


LD 


B,0CAH 


;Lock out the bytes 


2F62 36FF 


10940 LOCKOUT LD 


(HL),0FFH 


;GAT + X'0r through 


2F64 23 


10950 


INC 


HL 


;GAT + X'CA' 


2F65 10FB 


10960 
10970 ; 


DJNZ 


LOCKOUT 






10980 ; 


GAT + 


X'CB' 






10990 ; 








2F67 3662 


11000 
11010 ; 


LD 


(HL),62H 


;GAT + X'CB'= Version 6.2 




11020 ; 


GAT + 


X'CC 






11030 ; 








2F69 3E00 


11040 CYLS 


LD 


A,$-$ 


;P/u cylinder count 


2F6B F5 


11050 


PUSH 


AF 


;Save Cylinder count 


2F6C D623 


11060 


SUB 


35 


;Tracks in excess of 35 


2F6E 23 


11070 


INC 


HL 


;HL => next GAT byte 


2F6F 11 


11080 
11090 ; 


LD 


(HL),A 


;GAT + X'CC'= tracks - 35 




11100 ; 


GAT + 


X'CD' 






11110 ; 








2¥n 23 


11120 


INC 


HL 


;GAT + X'CD' = 
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LD (HL),42H 

GAT + X'CE' & X'CF' 



2F71 3642 



11130 GATCD 
11140 



;DDEN, 1 side, 3 gran/cyl 



2F73 23 
2F74 36E0 
2F76 23 
2F77 3642 



2F79 23 
2F7A 11B834 
2F7D 0E08 
2F7F EB 
2F80 EDB0 
2F82 EB 



2F83 

2F83 3E12 
2F85 EF 



2F86 3EF8 
2F88 210238 
2F8B CI 
2F8C 05 
2F8D 05 



2F8E 77 
2F8F 23 
2F90 10FC 



2F92 2E60 
2F94 77 
2F95 2C 
2F96 77 



2F97 2E02 
2F99 54 
2F9A 5D 
2F9B 0E60 
2F9D 09 
2F9E 0D 
2F9F 0D 
2FA0 EB 
2FA1 EDB0 

2FA3 11F438 
2FA6 21BA2F 



INC 
LD 
INC 
LD 



HL 

(HL),0E0H 
HL 
(HL),42H 



GAT + X'D0' - X'D7' 



INC 

LD 

LD 

EX 

LDIR 

EX 



HL 

DE,MEMDISK 
C,8 
DE,HL 



11150 

11160 

11170 

11180 

11190 

11200 

11210 ; 

11220 ; 

11230 ; 

11240 

11250 

11260 

11270 

11280 

11290 

11300 ; 

11310 ; 

11320 ; 

11330 

00041 

00042 

11340 ; 

11350 ; 

11360 ; 

11370 GPC 

11380 

11390 

11400 

11410 

11420 ; 

11430 ; 

11440 ; 

11450 FREETRK LD (HL),A ;Free track 



DE,HL 

GAT + X'D8' - X'DF 

(a@DATE 

LD A, 18 

RST 40 



GAT + X'CE' & X'CF' = 
16-bit Hash code of 
"PASSWORD" 
Hash = X'42E0' 



;HL => next GAT byte 

;"MEMDISK " is Pack name 

;Eight bytes 

;Swap 'em for LDIR 

;Stuff in ID 

;HL => GAT + X'D8' 



; Stuff date in GAT 



Stuff GAT tracks in use with either X'F8' or X'FC 



LD 

LD 

POP 

DEC 

DEC 



A,0F8H 

HL,I0BUFF+2 

BC 

B 



3 gran/cyl 
HL => GAT + X'02' 
B = # cylinders 
Subtract 2 to account 
For BOOT and DIR 



Stuff open cylinder bytes into GAT 



11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 



INC 
DJNZ 



HL 
FREETRK 



;Next GAT byte 
;Do it B times 



Put 2 free Cyl bytes in lockout - BOOT & DIR 

;HL => Lockout 



LD 
LD 
INC 
LD 



L,60H 
(HL),A 
L 
(HL),A 



GAT + X'62' - GAT + X'BF 



LD 

LD 

LD 

LD 

ADD 

DEC 

DEC 

EX 

LDIR 

LD 
LD 



L,2 
D,H 

c',60H 

HL,BC 

C 

C 

DE,HL 



;HL => GAT + X'02' 
;Xfer to DE 

Of X'60' for the 
duplicate of top 

Only duplicate X'5E' 
bytes 

Prepare for LDIR 

HL => GAT, DE => Lockout 



DE,I0BUFF+255-ll ;6.2 Media Data Block 

HL,LSIID ;Point to header 
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2FA9 010400 
2FAC EDB0 
2FAE 2ABA32 
2FB1 23 
2FB2 23 
2FB3 23 
2FB4 0E07 
2FB6 EDB0 
2FB8 1804 
2FBA 03 

4C 53 49 

2FBE 110001 



2FC1 210038 
2FC4 0E00 
2FC6 

2FC6 3E35 
2FC8 EF 
2FC9 C9 



2FCA 210038 
2FC0 3AC52F 
2FD0 4F 
2FD1 

2FD1 3E31 
2FD3 EF 
2FD4 C9 



2FD5 
2FD6 
2FD7 
2FD8 
2FDA 
2FDC 
2FDD 
2FDF 
2FE0 



AF 

11 

2C 

20FC 

36A2 

2C 

36C4 

IC 

18U 



2FE2 11FF2F 
2FE5 EB 
2FE6 012000 
2FE9 EDB0 
2FEB 110201 
2FEE CDC12F 

2FF1 012000 
2FF4 EB 
2FF5 211F30 
2FF8 EDB0 
2FFA 110301 



11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 LSIID 

11800 ; 

11810 WRGATl 

11820 ; 

11830 ; 

11840 ; 

11850 WRSEC 

11860 DRIVE 

11870 

00043 

00044 

11880 

11890 ; 

11900 ; 

11910 ; 

11920 RDSEC 

11930 

11940 

11950 

00045 

00046 

11960 

11970 ; 

11980 ; 

11990 ; 

12000 WRHIT 

12010 ZEROHIT 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 ; 

12100 ; 

12110 ; 

12120 WRENT 

12130 

12140 

12150 

12160 

12170 

12180 ; 

12190 

12200 

12210 

12220 

12230 



LD 

LDIR 

LD 

INC 

INC 

INC 

LD 

LDIR 

JR 

DB 



LD 

WRSEC - 

LD 

LD 

(3I3WRSEC 

LD 

RST 

RET 



BCJ4 

HL,(SAVEDCT) 

HL 

HL 

HL 

C,7 

WRGATl 
03, 'LSI' 



;Set length 

;Move it 

;The data to move 



; Bytes to move 

;Move it in 

;Skip around string 



DE,100H ;D = Cyl 1, E = Sector 

Write A sector to MemDISK drive 



HL,IOBUFF 
Cj 4>~3> 

A, 53 
40 



;I/0 buffer 
;P/u drive # 
; Write Sector 



; and RETurn 
RDSEC - Read A sector of MemDISK drive 



LD 

LD 

LD 

@@RDSEC 

LD 

RST 

RET 



HL,IOBUFF 

A,(DRIVE+1) 

C,A 

A, 49 
40 



;HL => I/O Buffer 
;P/u drive # 
;Xfer to C 
;Read sector 



; and RETurn 
WRHIT - Write HIT sector in directory 

XOR A ;Set A = 

LD (HL),A ;Zero HIT position 

INC L ;Bump HIT pointer 

JR NZ, ZEROHIT ;256 positions 

LD (HL),0A2H ;Hash for BOOT/SYS 

INC L ;HL => HIT + X'0r 

LD (HL),0C4H ;Hash for DIR/SYS 

INC E ;D = Cyl 1, Sector 1 

JR WRSEC ; Write Sector & RETurn 

WRENT - Write DIR/SYS & BOOT/SYS entries 



LD 

EX 

LD 

LDIR 

LD 

CALL 

LD 

EX 

LD 

LDIR 

LD 



DE , BOOT 

DE,HL 

BC,32 

DE,102H 
WRSEC 

BC,32 
DE,HL 
HL,DIR 

DE,103H 



; BOOT/SYS byte field 

;Swap for LDIR 

;32 bytes in entry 

;Block move 

;D = Cyl 1, E = Sector 2 

; Write Sector 



;Xfer buffer ptr to DE 
;HL => DIR/SYS bytes 
;Xfer to MemDISK 
;D = Cyl 1, E = Sector 3 
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2FFD 18C2 


12240 
12250 




JR 


WRSEC 


; Write sector & RETurn 




12260 




BOOT/SYS directory entry data 




12270 










2FFF 5E 


12280 


BOOT 


DB 


01011110B 


;No access, inv,sys,FPDE 


3000 0000 


12290 




DW 





;Date = 00/00/00 


3002 0000 


12300 




DW 





;EOF offset = 0, LRL=256 


3004 42 


12310 




DB 


' BOOT 


;Name field 


4F 4F 54 


20 20 


20 20 








300C 53 


12320 




DB 


'SYS' 


;Extension 


59 53 












300F F637 


12330 




DW 


037F6H 


;Owner password hash 


3011 F59C 


12340 




DW 


09CF5H 


;User password hash 


3013 0600 


12350 


BOOTERN 


DW 


6 


;ERN = 6 or 5 


3015 00 


12360 




DB 





;First extent = Cyl 


3016 00 


12370 


BOOTGRN 


DB 





;St gran = 0, 1 cont gran 


3017 FFFF 


12380 




DW 


0FFFFH 


;No more extents 


3019 FFFF 


12390 




DW 


0FFFFH 




301B FFFF 


12400 




DW 


0FFFFH 




301D FFFF 


12410 
12420 




DW 


0FFFFH 






12430 




DIR/SYS 


directory entry 


data 




12440 










301F 5D 


12450 


DIR 


DB 


01011101B 


;Read only,inVsSySsFPDE 


3020 0000 


12460 




DW 





;Date= 00/00/00 


3022 0000 


12470 




DW 





;EOF offset=0, LRL=256 


3024 44 


12480 




DB 


'DIR 


;Name field 


49 52 20 


20 20 20 20 








302 C 53 


12490 




DB 


'SYS' 


; Extension 


59 53 












302F F637 


12500 




DW 


037F6H 


; Owner password hash 


3031 9642 


12510 




DW 


04296 H 


;User password hash 


3033 1200 


12520 


DIRERN 


DW 


18 


;ERN+1 = 10 or 18 


3035 01 


12530 




DB 


1 


; Starts on cylinder 1 


3036 02 


12540 


SDENI 


DB 


00000010 B 


;St. gran=0, 3 cont grans 


3037 FFFF 


12550 




DW 


0FFFFH 


;No Second Extent 


3039 FFFF 


12560 




DW 


0FFFFH 


;No Third Extent 


303B FFFF 


12570 




DW 


0FFFFH 


;No Fourth Extent 


303 D FF 


12580 




DB 


0FFH 


;No further records 


303 E FF 


12590 
12600 




DB 


0FFH 






12610 




DOMEM - 


Issue Prompts & 


take inputs for type 




12620 










303F 21E732 


12630 


DOMEM 


LD 


HL,HELLO$ 


; Display message 


3042 


12640 




(a@DSPLY 








00047 




IFEQ 


00H,1 






00048 




LD 


HL, 






00049 




ENDIF 






3042 3E0A 


00050 




LD 


A. 10 




3044 EF 


00051 
12650 




RST 


40 






12660 




Check i 


f entry from SYSTEM (DRIVER= command 




12670 










3045 


12680 




(aiaFLAGS 






3045 3E65 


00052 




LD 


A. 101 




3047 EF 


00053 




RST 


40 




3048 FDCBJ925E 


; 12690 




BIT 


3,(IY+'C'-'A') 


; System request? 


304C CAC632 


12700 
12710 


9 


JP 


Z,VIASET 


;Quit if not 
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12720 ; 


Input 


MemDISK type - A.B, 


CsD or E to disable 




12730 ; 








304F 216D33 


12740 GETYPE 


LD 


HL, BANKS ; 


Display prompt 


3052 


12750 


mospu 






00054 


IFEQ 


00H,1 






00055 


LD 


HL, 






00056 


ENDIF 






3052 3E0A 


00057 


LD 


A, 10 




3054 EF 


00058 


RST 


40 




3055 0601 


12760 


LD 


B,l 


# of chars to input 


3057 CDD62C 


12770 


CALL 


INPUT 


Input byte 


305 A 28F3 


12780 
12790 ; 


JR 


Z, GETYPE 


<ENTER> ? - re-input 




12800 ; 


Convert input A-E to 0-4 






12810 ; 








305C 7E 


12820 


LD 


A,(HL) 


P/u first character 


305 D CBAF 


12830 


RES 


5,A 


Convert to U/C 


305F D641 


12840 


SUB 


'A' 


<A> - Bank ? 


3061 32292C 


12850 


LD 


(SETBANK+1),A , 


Save type of MemDISK 


3064 4F 


12860 
12870 ; 


LD 


C,A 


Xfer to C for 0BANK 




12880 ; 


If input is illegal then 


re~input 




12890 ; 








3065 38E8 


12900 


JR 


C, GETYPE 


.Less - re-input 


3067 FE04 


12910 


CP 


4 


,<E> - Disable MemDISK 


3069 CA8A31 


12920 


JP 


Z.DISMEM 


Yes - take it out 


306C 30E1 


12930 
12940 ; 


JR 


NC, GETYPE 


,>4 - Re-input 




12950 ; 


Check 


if MemDISK is already active 




12960 ; 








306E FDCB0366 


12970 


BIT 


4,(IY+DFLAG$) 


MemDISK already active ? 


3072 C2CA32 


12980 
12990 ; 


JP 


NZ.MEMIN 


,Yes - abort 




13000 ; 


If Type A.B.C - Check Bk 


, D - Check bks 1&2 




13010 ; 








3075 C5 


13020 


PUSH 


BC 


;Save Bank # 


3076 FE03 


13030 


CP 


3 


;Type "D" ? 


3078 2006 


13040 
13050 ; 


JR 


NZ,A_B_C 


;No - "A", "B", or "C" 




13060 ; 


Type 


■D" - See if both banks 1 & 2 are avail 




13070 ; 








307A 0E01 


13080 TYPED 


LD 


c,i 


;Bank #1 active ? 


307C CDCB2C 


13090 


CALL 


CKBANK 




307F 0C 


13100 


INC 


C 


;Bank #2 active ? 


3080 CDCB2C 


13110 ABC 


CALL 


CKBANK 




3083 CI 


13120 ~~ 
13130 ; 


POP 


BC 


;C = Bank # (0,1,2,3) 




13140 ; 


Stuff 


Default Bank # and 


offset into driver 




13150 ; 








3084 79 


13160 


LD 


A,C 


;P/u bank # 


3085 3D 


13170 


DEC 


A 


;If bank requested. 


3086 FA9830 


13180 


JP 


M,WAS0 


; then keep as -1 


3089 3C 


13190 


INC 


A 


; for driver bank test 


308 A 32C82D 


13200 


LD 


(BANKIM),A 


;Save bank # in driver 


308 D FE02 


13210 


CP 


2 


; Instruction if 


308F 2005 


13220 


JR 


NZ,N0T2 


;Just bank #2 active 


3091 21662E 


13230 


LD 


HL,0FFSET+1 


;Stuff X'80' in ADD 


3094 3680 


13240 


LD 


(HL),80H 




3096 3E01 


13250 N0T2 


LD 


A,l 


;Always init to bank 1 
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; if type B, C or D 


3098 326B2E 


13270 WAS0 
13280 ; 


LD 


(DEFBANK+1),A 


; Stuff in driver 




13290 ; 


Input Density (Single or Double) 




13300 ; 








309B 215234 


13310 INPDENS 


LD 


HL, DENSITY 


; "Density" 


309E 


13320 


(3(3DSPLY 








00059 


IFEQ 


00H,1 






00060 


LD 


HL, 






00061 


ENDIF 






309E 3E0A 


00062 


LD 


A, 10 




30A0 EF 


00063 


RST 


40 




30A1 0601 


13330 


LD 


B.l 


; Input an "S" or "D" 


30A3 CDD62C 


13340 


CALL 


INPUT 




30A6 2856 


13350 
13360 ; 


JR 


Z, DEFAULT 


;<ENTER> - use default 




13370 ; 


<D>oubl 


e Density input 


? 




13380 ; 








30 A8 7E 


13390 


LD 


A,(HL) 


;P/u first char 


30A9 CBAF 


13400 


RES 


5,A 


;Convert to U/C 


30AB FE44 


13410 


CP 


'D' 


;<D>ouble Density ? 


30AD 284F 


13420 
13430 ; 


JR 


Z, DEFAULT 


;Yes - use 6 sectors/gran 




13440 ; 


<S>ingl 


e Density input 


? 




13450 ; 








30AF FE53 


13460 


CP 


'S' 


;<S>ingle Density ? 


30B1 20E8 


13470 
13480 ; 


JR 


NZ, INPDENS 


;No - input density again 




13490 ; 


Single 


Density - Change 


driver math 




13500 ; 








30 B3 3E82 


13510 


LD 


A,82H 


;ADD A,D instruction 


3065 32622 E 


13520 


LD 


(SDENB),A 




30 B8 3E87 


13530 


LD 


A,87H 


;ADD A, A instruction 


30BA 32632E 


13540 


LD 


(SDENC),A 




30 BD 3E09 


13550 


LD 


A,9 




308^ 32B42D 


13560 


LD 


(SDENF+3),A 


;DCT + 7 


30C2 326A31 


13570 


LD 


(SPC+1),A 


;Save in CALCSIZ routine 


30C5 3C 


13580 


INC 


A 


;SDEN BOOT ERN = 10 


30C6 323330 


13590 


LD 


(DIRERN),A 


;SDEN DIR/SYS ERN = 10 


30C9 3E24 


13600 


LD 


A,24H 




30CB 32B82D 


13610 


LD 


(SDENG+3),A 


;DCT + 8 


30CE 3E32 


13620 


LD 


A,'2' 


;Change size to 2.50K 


30D0 322034 


13630 


LD 


(FRTRK1),A 


; Space per cylinder 


30D3 3EFD 


13640 


LD 


A,0FDH 


;1 Gran Free 


30D5 325E2F 


13650 


LD 


(GAT0+1),A 


; Stuff in WRGAT routine 


30D8 3D 


13660 


DEC 


A 


;2 Grans/Cyl - X'FC 


30D9 32872F 


13670 


LD 


(GPC+1),A 




30DC AF 


13680 


XOR 


A 


;NOP instruction 


30DD 325E2E 


13690 


LD 


(SDENA),A 




30E0 32A52D 


13700 


LD 


(SDEND+3),A 


;DCT + 3 


30E3 3C 


13710 


INC 


A 


;Set A = 1 


30E4 32722F 


13720 


LD 


(GATCD+1),A 


; Stuff in WRGAT routine 


30E7 323630 


13730 


LD 


(SDENI),A 


;2 contiguous granules 


30EA 3E05 


13740 


LD 


A.5 


;Set Boot ERN = 5 


30EC 321330 


13750 


LD 


(BOOTERN),A 




30EF 3E10 


13760 


LD 


A,10H 


;Alien Disk Controller 


30F1 32A92D 


13770 


LD 


(SDENE+3),A 




30F4 213B2F 


13780 


LD 


HL,BTSECS+1 


;HL => # BOOT sectors 


30F7 35 


13790 


DEC 


(HL) 


;Use 5 instead of 6 
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30F8 21000A 


13800 


LD 


HL,SDBPC 


;Change GETCYL routine 


30FB 22E52C 


13810 
13820 ; 


LD 


(BPC+1),HL 






13830 J 


Calcu 


late # of possible ( 


:ylinders 




13840 ; 








30FE 3A292C 


13850 DEFAULT 


LD 


A,(SETBANK+1) 


;P/u type of memdisk 


3101 4F 


13860 


LD 


C,A 


;Save in C 


3102 B7 


13870 


OR 


A 


;Bank ? 


3103 280A 


13880 
13890 ; 


JR 


Z, PIKUPHI 


;Yes - use HIGH$ 




13900 ; 


Bank 


#1, #2, or #1 & #2 






13910 ; 








3105 21FF7F 


13920 


LD 


HL,7FFFH 


;HL = # bytes in 1 bank 


3108 FE03 


13930 


CP 


3 


;Bank 1 & 2 ? 


310A 201 F 


13940 


JR 


NZ, CALCYL 


;No - use X'7FFF' 


310C 65 


13950 


LD 


H,L 


;Set HL = X'FFFF' 


310D 181C 


13960 
13970 ; 


JR 


CALCYL 






13980 ; 


Bank 


Zero request - calculate free mem avail 




13990 ; 








310F AF 


14000 PIKUPHI 


XOR 


A 


;Set A = 


3110 ED62 


14010 


SBC 


HL,HL 


;HL = 


3112 47 


14020 


LD 


B,A 


;B = 


3113 


14030 


@@HIGH$ 


;P/u HIGH$ 


3113 3E64 


00064 


LD 


A, 100 




3115 EF 


00065 


RST 


40 




3116 22C634 


14040 


LD 


(MDDATA+2),HL 


;Save HIGH$ 


3119 22C62D 


14050 


LD 


(OLD HI),HL 


;Save HIGH$ in driver 


311C 23 


14060 


INC 


HL 


;Set HL = last page 


311D 25 


14070 


DEC 


H 




311E 6F 


14080 


LD 


L,A 




311F 226F31 


14090 


LD 


(SAVPAGE+1),HL 


;Save page boundary 


3122 110080 


14100 


LD 


DE, LOWEST 


;DE = lowest 


3125 AF 


14110 


XOR 


A 




3126 ED52 


14120 


SBC 


HL,DE 


;HL = amount free 


3128 DAD232 


14130 
14140 ; 


JP 


CNOMEM 


;Carry - not enough mem 




14150 ; 


CalcL 


late # of cylinders 


avai lable 




14160 ; 








312B CDE22C 


14170 CALCYL 


CALL 


6ETCYL 


;Get # of poss cyls 


312E C2D232 


14180 
14190 ; 


JP 


NZ,NOMEM 


;NZ - Not enough mem 




14200 ; 


Convert A to ASCII & stuff into string 




14210 ; 








3131 3C 


14220 


INC 


A 


;Bump one 


3132 325F31 


14230 


LD 


(MAXCYL+1),A 


;Save max # of cyls 


3135 3D 


14240 


DEC 


A 




3136 326A2F 


14250 


LD 


(CYLS+1),A 


; Stuff in WRGAT routine 


3139 F5 


14260 


PUSH 


AF 


;Save Max # of cyls 


313A CD632C 


14270 


CALL 


DECASC 


;Convert to ASCII in HL 


313D Fl 


14280 


POP 


AF 


;A = # cyls 


313E EB 


14290 


EX 


DE,HL 


;DE = # 


313F 214C34 


14300 


LD 


HL,FRTRK2 


;HL => Destination 


3142 72 


14310 


LD 


(HL).D 


;Msb 


3143 23 ^ 


14320 


INC 


HL 




3144 73 


14330 
14340 ; 


LD 


(HL),E 


;Lsb 




14350 ; 


A = ii 


^ of Cyls poss, put 


in string if bank 




14360 ; 
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3145 0C 


14370 


INC 


C 


;Bank Zero request ? 


3146 0D 


14380 


DEC 


C 




3147 CIS 


14390 
14400 ; 


RET 


NZ 


;No - done prompting 




14410 ; 


Display Cylinders str 


ing & input # of cyls 




14420 ; 








3148 210534 


14430 REDO 


LD 


HL.FRTRACK 


;How many cylinders 


314B 


14440 


@@OSPLY 








00066 


IFEQ 


00H.1 






00067 


LD 


HL, 






00068 


ENDIF 






314B 3E0A 


00069 


LD 


A,ia 




314D EF 


00070 


RST 


40 




314E 0602 


14450 


LD 


B,2 


; Input # of cyls 


3150 CDD62C 


14460 


CALL 


INPUT 




3153 28F3 


14470 
14480 ; 


JR 


Z,REDO 


;Reinput it 




14490 ; 


Check i 


f input legal 






14500 ; 








3155 CD6E2C 


14510 


CALL 


DECHEX 


^Convert # to Hex 


3158 20EE 


14520 


JR 


NZ,REDO 


;Illegal - Re-input 


315A FE03 


14530 


CP 


MINCYL 


;Less than minimum? 


315C 38EA 


14540 


JR 


CREDO 




315E FE00 


14550 MAXCYL 


CP 


$-$ 


;P/u max # of cyls 


3160 30E6 


14560 


JR 


NCREDO 


;Too many - reinput 


3162 326A2F 


14570 
14580 ; 


LD 


(CYLS+1),A 


;New # of cylinders 




14590 ; 


CALCSIZ 


- Calculate S 


ize of Cyl request 




14600 ; 








3165 CDAE2C 


14610 CALCSIZ 


CALL 


SAVEREG 


;Save Registers 


3168 4F 


14620 


LD 


C,A 


;Xfer # cyls to C 


3169 0611 


14630 SPC 
14640 ; 


LD 


B,17 


;P/u Sectors/Cyl 




14650 ; 


Multiply Sectors per 


Cylinder x # Cylinders 




14660 ; 








316B 81 


14670 MLOOP 


ADD 


A,C 


;Multiply B x C 


316C 10FD 


14680 
14690 ; 


DJNZ 


MLOOP 






14700 ; 


Set HL 


= New HIGH$ 






14710 ; 








316E 210000 


14720 SAVPAGE 


LD 


HL,$-$ 


;P/u page boundary 


3171 ED44 


14730 


NE6 




;Set H = H - A 


3173 84 


14740 


ADD 


A,H 




3174 67 


14750 


LD 


H,A 


;HL = New HIGH$, B = 


3175 32662E 


14760 
14770 ; 


LD 


(0FFSET+1),A 


; Stuff into driver 




14780 ; 


Stuff a 


Memory Header 


on front of MemDISK 




14790 ; 








3178 2B 


14800 


DEC 


HL 


;Pt 1 byte before 


3179 EB 


14810 


EX 


DE,HL 


; Memdisk himem area 


317A 21D434 


14820 


LD 


HL,MDDATA-H6 


;Pt to header block 


317D 011100 


14830 


LD 


BC,17 




3180 EDB8 


14840 


LDDR 




; and move it to himem 


3182 EB 


14850 


EX 


DE,HL 




3183 22CB2D 


14860 


LD 


(MEMHIGH),HL 




3186 


14870 


(a(3HIGH$ 




;Install new HIGH$ 


3186 3E64 


00071 


LD 


A. 100 




3188 EF 


00072 


RST 


40 




3189 C9 


14880 


RET 




;Restore Regs & RETurn 
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318A FDCB0366 
318E CAD632 



3191 2ABA32 

3194 E5 

3195 23 

3196 5E 

3197 23 

3198 56 

3199 D5 



319A EB 
319B E5 
31 9C 01 DC 00 
319F 09 
31A0 22F831 
31A3 El 
31A4 23 
31A5 23 
31A6 23 
31A7 23 



31 A8 46 
31A9 23 
31AA 11C034 



31AD lA 
31 AE BE 
31AF 23 
31 B0 13 
31 Bl C2CE32 
31B4 10F7 



31B6 5E 
31B7 23 
31 B8 56 
31 B9 ED53EC31 



31BD FDCB03A6 
31C1 23 
31C2 7E 
31C3 4F 
31C4 FE03 
31 C6 3805 



14890 

14900 

14910 

14920 DISMEM 

14930 

14940 

14950 

14960 

14970 

14980 

14990 

15000 

15010 

15020 

15030 

15040 ; 

15050 ; 

15060 ; 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15170 ; 

15180 ; 

15190 ; 

15200 

15210 

15220 

15230 ; 

15240 ; 

15250 ; 

15260 MEMLP 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 



DISMEM - Disable MemDISK if in memory 



BIT 4,(IY+DFLAG$) 
JP Z.NOTPRS 



; MemDISK active ? 

;No - display error mess 



Pick up Driver address of drive 



LD 

PUSH 

INC 

LD 

INC 

LD 

PUSH 



HL,(SAVEDCT) 

HL 

HL 

E,(HL) 

HL 

D,(HL) 

DE 



;P/u DCT address 
;Save DCT ptr 
;P/u driver address 
;Lsb 

;Msb 

;Save Driver Address 



Calculate end of driver & Posn to ID 



EX 

PUSH 

LD 

ADD 

LD 

POP 

INC 

INC 

INC 

INC 



DE,HL 

HL 

BC, LENGTH 

HL,BC 

(DREND+1),HL 

HL 

HL 

HL 

HL 

HL 



;Pt HL to driver 
;Save driver start 
;Add length of driver 
; to start of driver. 
;Save next available 
;HL => driver add start 
;Pos'n to length byte 



P/u length byte & pt to driver name 



LD 

INC 

LD 



B,(HL) 

HL 

DE,MD$ 



;P/u length byte 
;HL => Driver Name 
;DE => MEMDISK 



Is this REALLY a certified MemDISK ?? 

LD A,(DE) ;P/u MemDISK byte 

CP (HL) ;Match ? 

INC HL ;Bump driver ptr 

INC DE ;Bump string ptr 

JP NZ,NOTMEM ;No - isn't a MemDISK 

DJNZ MEMLP ;Yes - check all posns 

Pick up Old HIGH$ address & stuff for later 

LD E,(HL) ;P/u old HIGH$ 

INC HL 

LD D,(HL) 

LD (SAVE0LD+1),DE ;Stuff into LD HL inst 



; P/u 


BANK information 




RES 


4,(IY+DFLAG$) 


; Reset MemDISK bit 


INC 


HL 


;HL => Bank image 


LD 


A,(HL) 


;P/u bank image 


LD 


C,A 


;Xfer to C 


CP 


3 


;Both banks 1 & 2 ? 


JR 


CFRBANK 


;No - free up bank 
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31C8 0D 
31C9 CD3C2C 
31CC 0D 
31CD CD3C2C 



15530 
15540 
31D0 FD215E37 15550 



15480 DEC 

15490 CALL 

15500 DEC 

15510 FRBANK CALL 
15520 



FREBANK 

C 

FREBANK 



;Set C = 2 
;Free bank #2 
;Set C = 1 
;Free Bank in C 



Is this a Bank Zero MemDISK ? 



31D4 0C 
31D5 0D 
31 D6 201 C 



31D8 FD3500 
31 DB 23 
31 DC 23 
31DD 23 
31DE 5E 
31 DF 23 
31E0 56 



31 El 60 
31 E2 68 
31 E3 

31 E3 3E64 
31 E5 EF 
31 E6 B7 
31E7 ED52 
31 E9 2009 



31 EB 210000 
31 EE 

31 EE 3E64 
31F0 EF 
31F1 FD3400 



31F4 CD352D 
31F7 210000 
31 FA B7 
31FB ED52 
31FD El 
31FE 2016 



3200 DD7400 
3203 DD75FF 
3206 FD3400 
3209 FD3400 



LD 
INC 
DEC 
JR 



IY,TYPEDIS 

C 

C 

NZ,GTDRV2 



;IY => Disable Type 
;Is C = ? 



;No - check out driver 
Bank - p/u last HI6H$ from Driver storage 



DEC 

INC 

INC 

INC 

LD 

INC 

LD 



(lY) 

HL 

HL 

HL 

E,(HL) 

HL 

D,(HL) 



;Change type 

;Pos to HI$ val after 

; MemDISK installation 

;P/u address 



Pick up Current HIGH$ & compare with other 

;Set HL = 



15560 

15570 

15580 

15590 

15600 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

00073 

00074 

15750 

15760 

15770 

15780 

15790 

15800 

15810 SAVEOLD LD HL,$-$ 

15820 @@HIGH$ 

00075 LD A, 100 

00076 RST 40 
15830 INC (lY) 
15840 ; 

15850 ; Can the Driver area be re-allocated ? 

15860 ; 

15870 GTDRV2 CALL GTDRV ;Get driver area 

15880 DREND LD HL,$-$ ;P/u driver address 



LD H,B 

LD L,B 

(3@HIGH$ 

LD A, 100 

RST 40 

OR A 

SBC HL,DE 

JR NZ.GTDRV2 



;(B=0), p/u HIGH$ 



;Same ? 

;NZ - Can't do it 
Reset HIGH$ = original HIGH$ 



;P/u old HIGH$ 
;Re-al locate space 



;Change Type 



15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 



OR 
SBC 
POP 
JR 



A 

HL,DE 

HL 

NZ,NORECLM 



;Same ? 

;HL => Driver Address 

;No - can't Reclaim 



Stuff original Address into low driver ptr 



LD 
LD 
INC 
INC 



(IX), H 
(IX-1),L 
(lY) 
(lY) 



;Msb 
;Lsb 
;Change type 



Clear out Driver 
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320C 01DB00 
320F 3600 

3211 54 

3212 5D 

3213 13 

3214 EDB0 



3216 El 

3217 36C9 



3219 FDE5 
321B El 
321C 4E 
321D CB21 
321F 

3221 23 

3222 09 

^Lm Cm S^ \J iL 

3224 23 

3225 56 

3226 EB 
3227 



3227 3E0C 
3229 EF 
322A C3212C 



322D 21B036 
3230 



3230 3E0A 

3232 EF 

3233 1600 



3235 7A 

3236 CD442C 



3239 3EFF 
323B CD5B32 
323E 3E55 

3240 CD5B32 
3243 3EAA 
3245 CD5B32 
3248 3E00 
324A CD5B32 



16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 NORECLM POP 



LD 

LD 

LD 

LD 

INC 

LDIR 



BC,LENGTH-1 

(HL),0 

D,H 

DE 



Disable DCT slot 



16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
00077 
00078 
00079 



LD 



HL 
(HL),0C9H 



;BC = # of bytes clr 
;Null byte 
;Set DE = HL+1 



;Clear area 



;HL => DCT + 
jDisable it 



Calculate Start of Disable string 

;Xfer to HL 



00081 

16290 

16300 ; 

16310 ; 

16320 ; 

16330 FORMAT LD 



PUSH 

POP 

LD 

SLA 

LD 

INC 

ADD 

LD 

INC 

LD 

EX 

(3@L0G0T 

IFEQ 00H,1 

LD HL, 

ENDIF 

LD A, 12 

RST 40 

JP EXIT 



lY 

HL 

C.(HL) 

C 

B,0 

HL 

HL, BC 

E,(HL) 

HL 

D,(HL) 

DE,HL 



;P/u type 

;Multiply by 2 

;BC = offset in table 

;HL => Address Table 

;HL => Add of mess string 

;P/u Address 



;HL => Disable message 
;Log message 



16340 
00082 
00083 



FORMAT - Format Memory 
HL, VERIFY 



00085 

00086 

16350 

16360 ; 

16370 ; 

16380 ; 

16390 WIPELP LD 



(a@DSPLY 

IFEQ 00H,1 

LD HL, 

ENDIF 

LD A, 10 

RST 40 

LD D,00 



;Go to exit routine 



;" Verifying RAM ..." 
; Display it 



; Track counter 
Display Current Cylinder Formatting 



16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16500 
16510 



CALL 



A,D 
DECASC2 



;6et track counter 
;Display Dec ASCII equiv. 



Run 4 different bit tests on each cylinder 



LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 



A,11111111B 

VERCYL 

A,01010101B 

VERCYL 

A.10101010B 

VERCYL 

A, 00000000 B 

VERCYL 



;A11 bits on 

; Verify track w/ bits on 

;Next pattern 

;Last pattern 

;A11 bits off 

; Verify track w/ bits off 
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16520 ; 
16530 ; 


Finished Formatting yet 


? 




16540 ; 








324D 14 


16550 


INC 


D 


;Bump cylinder # 


324E 7A 


16560 


LD 


A,D 




324F DDBE06 


16570 


CP 


(IX+6) 


;Finished ? 


3252 20E1 


16580 
16590 ; 


JR 


NZ.WIPELP 


;No - stop when max cyl 




16600 ; 


Finished Formatting - D 


i splay message 




16610 ; 








3254 21CA36 


16620 


LD 


HL,FORMCOM 


;"Formatting Complete" 


3257 


16630 


(a^DSPLY 


;Print it 




00087 


IFEQ 


00H,1 






00088 


LD 


HL, 






00089 


ENDIF 






3257 3E0A 


00090 


LD 


A, 10 




3259 EF 


00091 


RST 


40 




325A C9 


16640 
16650 ; 


RET 




;Done formatting 




16660 ; 


VERCYL 


- Verify a cylinder of RAM 




16670 ; 








325B 210038 


16680 VERCYL 


LD 


HLJOBUFF 


;HL => I/O buffer 


325E 1E190 


16690 
16700 ; 


LD 


E.0 


;Init to sector 




16710 ; 


Fill buffer with specif 


ied byte 




16720 ; 








3260 77 


16730 STUFLP 


LD 


(HL),A 


; Stuff into buffer 


3261 2C 


16740 


INC 


L 


;Bump 


3262 20FC 


16750 
16760 ; 


JR 


NZ, STUFLP 


;256 bytes to fill 




16770 ; 


Write 


the sector & read 


it back 




16780 ; 








3264 F5 


16790 CYLP 


PUSH 


AF 


;Save fill byte 


3265 CDC12F 


16800 


CALL 


WRSEC 


;Write Sector 


3268 CDCA2F 


16810 


CALL 


RDSEC 


;Read into other buff 


326B Fl 


16820 
16830 ; 


POP 


AF 


;A = Fill byte 




16840 ; 


Check 


if sector read back has correct byte 




16850 ; 








326C BE 


16860 CKLP 


CP 


(HL) 


; Match ? 


326D C28D2C 


16870 


JP 


NZ, ERROR 


;No - error 


3270 2C 


16880 


INC 


L 


;Done with sector ? 


3271 20F9 


16890 
16900 ; 


JR 


NZ,CKLP 


;256 bytes to check 




16910 ; 


Advance to next sector 






16920 ; 








3273 7B 


16930 


LD 


A,E 


;P/u sector # 


3274 DDBE07 


16940 


CP 


(IX+7) 


;Finished ? 


3277 7E 


16950 


LD 


A,(HL) 


;P/u cylinder byte 


3278 13 


16960 


INC 


DE 


;Bump E 


3279 20E9 


16970 


JR 


NZ,CYLP 


;DCT+8 sectors to check 


327B C9 


16980 
16990 ; 


RET 




;Done - RETurn 




17000 ; 


FORMTIT - Check if MemDISK has data on it 




17010 ; 








327C 110001 


17020 FORMTH 


LD 


DE,100H 


;D = Cyl 1, Sec (GAT) 


327F CDCA2F 


17030 
17040 ; 


CALL 


RDSEC 


;Read BOOT sector 




17050 ; 


Check 


GAT ID 
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3282 2ED0 


1/050 
17070 


» 


LD 


L,0D0H 


; MemDISK pack name 


3284 11B834 


17080 




LD 


DE, MEMDISK 


;What it should be 


3287 0608 


17090 
17100 


J 


LD 


B,8 


;# of characters 


3289 lA 


17110 


CKML.P 


LD 


A,(DE) 


;P/u should be char 


328A BE 


17120 




CP 


(HL) 


; Match ? 


328B 23 


17130 




INC 


HL 


;Bump 


328C 13 


17140 




INC 


DE 




328 D 200C 


17150 




JR 


NZ, NOMTCH 


;No - must format 


328F 10F8 


17160 
17170 




DJNZ 


CKMLP 


;Yes - loop for more 




17180 




Already a MemDISK - 


Sure about formatting ? 




17190 










3291 217434 


17200 




LD 


HL,DOFORM 


; Destination ... 


3294 3E01 


17210 




LD 


A.l 


;Set MemDISK in flag 


3296 32EA2E 


17220 




LD 


(MEMIN1+1),A 


3299 1803 


17230 
17240 




JR 


DISMES 


;Display it 




17250 




Not a 


MemDISK - Do t 


lormal Prompt 




17260 










329B 219634 


17270 


NOMTCH 


LD 


HL,STILLFM 


;Do you wish to format ? 


329E 


17280 


DISMES 


@@DSPLY 


;Display message 




00092 




IFEQ 


00H,1 






00093 




LD 


HL, 






00094 




ENDIF 






32 9E 3E0A 


00095 




LD 


A, 10 




32 A0 EF 


00096 
17290 




RST 


40 






17300 




Input 


Response 






17310 










32A1 0601 


17320 




LD 


BA 


; Input 1 character 


32A3 E5 


17330 




PUSH 


HL 


;Save message start 


32A4 CDD62C 


17340 




CALL 


INPUT 




32A7 7E 


17350 




LD 


AJHL) 


;P/u character 


32A8 El 


17360 




POP 


HL 


;Recover message start 


32A9 05 


17370 




DEC 


B 


; Anything entered ? 


32AA C0 


17380 
17390 




RET 


NZ 


;No - RETurn NZ 




17400 




Set Z 


flag if "Y" & 


Reset Z if "N" entered 




17410 










32AB CBAF 


17420 




RES 


5, A 


;Cvt to U/C 


32 AD FE4E 


17430 




CP 


'N' 


;<N>o ? 


32AF 2805 


17440 




JR 


Z, RESZF 


;RETurn NZ 


32B1 FE59 


17450 




CP 


.y. 


;<Y>es ? 


32B3 C8 


17460 




RET 


Z 


;RETurn Z set 


32B4 18E8 


17470 




JR 


DISMES 


;No - reprompt 


32B6 B7 


17480 RESZF 


OR 


A 


;Reset Z flag 


32B7 C9 


17490 
17500 


» 


RET 




; and RETurn 




17510 


i 


Variat 


3les used 




32 B8 0000 


17520 


SAVEDE 


DW 







32 B A 0000 


17530 


SAVEDCT 


DW 







32 BC 0000 


17540 
17550 


DRADD 


DW 









17560 




Informative Error D 


isplay & Abort Routine 




17570 










32BE 21D534 


17580 


NO DRV 


LD 


HL,NODRV$ 




32C1 DD 


17590 




DB 


0DDH 
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32C2 21F334 


17600 BADDRV 


' LD 


HL,BADDRV$ 




32C5 DD 


17610 


DB 


0DDH 




32C6 211037 


17620 VIASET 


■ LD 


HL,VIASET$ 


;Not via SYSTEM 


32 C9 DD 


17630 


DB 


0DDH 




32 CA 219936 


17640 MEMIN 


LD 


HL,MEMIN$ 


;Already installed 


32 CD DD 


17650 


DB 


0DDH 




32CE 213235 


17660 NOTMEiy 


1 LD 


HL,NOTMEM$ 


;Not a MemDISK 


32D1 DD 


17670 


DB 


0DDH 




32D2 214D35 


17680 NOMEM 


LD 


HL,NOMEM$ 


; Insufficient Memory 


32D5 DD 


17690 


DB 


0DDH 




32D6 216235 


17700 NOTPRS 


, LD 


HL. NOTPRS $ 


;Not Present 


32 D9 DD 


17710 


DB 


0DDH 




32DA 216736 


17720 BNKUSE 


: LD 


HL,BNKUSE$ 


;Bank in use 


32DD DD 


17730 


DB 


0DDH 




32DE 217635 


17740 N0TAC7 
17750 ; 


■ LD 


HL,NOTACT$ 


;Cant Install 




17760 ; 


Log Err 


or Message & 


Abort 




17770 ; 








32E1 


17780 


@@LOGOT 




;Log error message 




00097 


IFEQ 


00H,1 






00098 


LD 


HL, 






00099 


ENDIF 






32E1 3E0C 


00100 


LD 


A. 12 




32E3 EF 


00101 


RST 


40 




32E4 C31B2C 


17790 
17800 ; 


JP 


ABORT 


;Go to exit routine 


32E7 4D 


17810 HELLOI 


; DB 


'MEMDISK' 




45 4D 44 


49 53 4B 








32 EE 


17820 *GET 


CLIENT: 


3 






17830 ;CLIENTS/ASM - 


File to establish sign-on headers 




17840 ; 








32 EE 20 


17850 


DB 


' - 6.2.0 - 


Copyright 1982/83/84 by Logical 


2D 20 36 


2E 32 2E 30 20 






2D 20 43 


6F 70 79 72 


69 






67 68 74 20 31 39 38 


32 






2F 38 33 


2F 38 34 20 62 






79 20 4C 6F 67 69 63 


61 






3318 20 


17860 


DB 


' Systems, 


Inc. ',10 


53 79 73 


74 65 6D 73 


2C 






20 49 6E 


63 2E 20 20 20 






20 20 20 0A 










17870 ; 








332D 41 


17880 


DB 


'All Rights 


Reserved. Licensed 1982/83/84' 


6C 6C 20 52 69 67 68 


74 






73 20 52 


65 73 65 72 


76 






65 64 2E 


20 4C 69 63 


65 






6E 73 65 


64 20 31 39 


38 






32 2F 38 


33 2F 38 34 








3355 20 


17890 


DB 


' to xxxxxxxxxxxxxxxxxx' ,10,13 


74 6F 20 78 78 78 78 


78 






78 78 78 


78 78 78 78 


78 






78 78 78 


78 78 0A 0D 
17900 ; 








336 D 0A 


17910 BANKS 


DB 


LF,'<A> Bank (Primary Memory) ' ,LF 


3C 41 3E 20 20 42 61 


6E 






6B 20 30 20 28 50 72 


69 






6D 61 72 


79 20 4D 65 


6D 






6F 72 79 


29 0A 
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I - 


Ins 


;tallat 


ior 


1 




338B 


3C 






17920 






DB 




42 


3E 20 


20 42 


61 


6E 


6B 




20 


31 


0A 










3397 


3C 






17930 






DB 




43 


3E 20 


20 42 


61 


6E 


6B 




20 


32 


0A 










33 A3 


3C 






17940 






DB 




44 


3E 20 20 42 


61 


6E 


6B 




73 


20 


31 


20 61 


6E 64 20 




32 


0A 












33 B6 


3C 






17950 






DB 




45 


3E 20 20 44 69 73 61 




62 


6C 


65 


20 4D 65 


6D 


44 




49 


53 


4B 


0A 0A 








33 CC 


57 






17960 






DB 




68 


69 


63 


68 20 


74 


79 


70 




65 


20 


6F 


66 20 61 


6C 


6C 




6F 


63 


61 


74 69 


6F 


6E 20 




2D 20 












33E7 


3C 






17970 






DB 




41 


3E 2C 20 3C 


42 


3E 


2C 




20 


3C 


43 


3E 2C 20 


3C 


44 




3E 


2C 


20 


6F 72 


20 


3C 


45 




3E 20 


3F 


20 03 
















17980 


s 






3405 


4E 






17990 FRTRACK DB 




6F 


74 


65 


3A 20 45 


61 


63 




68 20 43 


79 6C 


69 


6E 


64 




65 


72 


20 


65 71 


75 


61 


6C 




73 


20 












3420 


34 






18000 FRTRK] 


L DB 




2E 


35 


30 4B 20 6F 66 


20 




73 


70 


61 


63 65 


2E 0A 




3430 4E 






18010 






DB 




75 


6D 


62 


65 72 


20 6F 66 




20 


66 


72 


65 65 


20 43 


79 




6C 


69 


6E 


64 65 


72 


73 


3A 




20 


33 


2D 










344 C 


30 






18020 FRTRK2 DB 




30 20 


3F 


20 03 
















18030 


1 






3452 


53 






18040 DENSITY DB 




69 


6E 


67 


6C 65 


20 6F 


72 




20 44 6F 75 62 


6C 


65 


20 




44 


65 


6E 


73 69 


74 


79 


20 




3C 


53 


2C 


44 3E 


20 


3F 


20 




03 






18050 


» 






3474 


44 






18060 


DOFORM DB 




65 


73 


74 


69 6E 


61 


74 


69 




6F 


6E 20 4D 65 


6D 


44 


49 




53 


4B 


20 


63 6F 


6E 


74 


61 




69 


6E 


73 


20 44 


61 


74 


61 




0A 






18070 


» 






3496 


44 






18080 


STILLFM DB 




6F 20 79 


6F 75 


20 


77 


69 




73 


68 


20 


74 6F 


20 46 


6F 




72 


6D 


61 


74 20 69 74 


20 
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<B> Bank I'.LF 



'<C> Bank 2' ,LF 



<D> Banks 1 and 2' ,LF 



'<E> Disable MemDISK' ,LF,LF 



'Which type of allocation - ' 



'<A>, <B>, <C>, <D>, or <E> ? ' ,ETX 



'Note: Each Cylinder equals ' 



'4.50K of space. ' ,LF 



Number of free Cylinders: ' ,MINCYL+'0'&0FFH, '-' 



? ',ETX 



Single or Double Density <S,D> ? ' ,ETX 



Destination MemDISK contains Data',LF 



'Do you wish to Format it <Y/N> ? '.ETX 
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34B8 
34C0 
34C4 

34 05 
34F3 
3513 



3532 



354D 



3562 



3576 



3598 
35 A0 



35C2 



3C 59 2F 
03 

4D 

45 40 44 

24 

40 44 03 

18 

11 00 00 

49 53 4B 

4C 

6F 67 69 

72 69 76 

62 65 72 
69 72 65 
43 

61 6E 27 

63 69 66 
54 45 40 
65 20 73 
40 

65 60 44 

75 63 63 

6C 6C 79 

61 6C 6C 

54 

61 72 67 

69 76 65 

61 20 40 

4B 00 

49 

6E 73 75 

65 6E 74 

72 79 20 

40 

65 60 44 
6F 74 20 
6E 74 00 

40 

65 60 44 
6F 74 20 
6E 74 2C 

61 6C 6C 
20 

61 

62 6F 72 

40 

65 60 44 

69 73 61 

20 60 65 

6E 6F 77 

6C 

61 



4E 3E 20 3F 20 

18090 ; 

18100 MEMOISK 08 
49 53 4B 20 
18110 M0$ OB 



18120 
08 40 
44 00 
18130 
18140 

63 61 
65 20 
20 72 

64 00 
18150 
74 20 
79 20 
20 64 
6C 6F 
18160 
49 53 

65 73 
20 49 
65 64 
18170 
18180 
65 74 
20 6E 
65 60 



MODATA OB 
65 60 44 
00 00 00 

NOORV$ OB 
6C 20 64 
6E 75 60 
65 71 75 

BADDRV$ OB 

73 70 65 
53 59 53 

72 69 76 

74 00 
INSTALO OB 
4B 20 53 

73 66 75 
6E 73 74 
00 

NOTMEM$ OB 
20 44 72 
6F 74 20 
44 49 53 



18190 ; 

18200 NOMEM$ OB 

66 66 69 63 69 

20 40 65 60 6F 

00 

18210 ; 

18220 NOTPRS$ OB 

49 53 4B 20 6E 

70 72 65 73 65 

18230 ; 

18240 NOTACTS OB 
49 53 4B 20 6E 
70 72 65 73 65 
20 69 6E 73 74 

61 74 69 6F 6E 

18250 OB 
74 65 64 00 
18260 ; 

18270 OISABEl OB 
49 53 4B 20 64 

62 6C 65 64 2C 
60 6F 72 79 20 
20 61 76 61 69 



'MEMOISK ' 

'$MO',ETX 

18H,17,0J,8,'MemOISKO',0,0,0,0 

•Logical drive number required ',CR 
•Can"t specify SYSTEM drive slot',CR 
'MemOISK Successfully Installed' ,CR 



Target Orive not a MemOISK ',CR 



Insufficient Memory ' ,CR 



'MemOISK not present '.CR 



'MemOISK not present, installation ' 



aborted ',CR 



MemOISK disabled, memory now avail 



18280 



OB 



'able',CR 
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35C7 



35 EB 



35F7 



361B 



3627 



3648 



3667 



3682 



3699 



3680 



36CA 



62 6C 

4D 

65 60 

69 73 

20 55 

74 6F 

69 6D 
68 

69 67 

72 79 

4D 

65 6D 

69 73 

20 55 

74 6F 

69 6D 
64 

72 69 

65 61 

4D 

65 6D 
69 73 
20 55 
74 6F 
69 6D 
68 

69 67 
72 79 
72 69 
65 61 

55 

6E 61 
20 69 
20 4D 
2C 20 
72 

65 71 
20 62 
20 75 

4D 

65 6D 
6C 72 

63 74 

56 

65 72 
20 52 
69 6E 
03 

0A 

56 65 
67 20 
74 65 



65 0D 
18290 
18300 
44 49 53 
61 62 6C 
6E 61 62 
20 72 65 
20 

18310 
68 20 6D 
0D 

18320 
18330 
44 49 53 
61 62 6C 
6E 61 62 
20 72 65 
20 

18340 
76 65 72 
00 

18350 
18360 
44 49 53 
61 62 6C 
6E 61 62 
20 72 65 
20 

18370 
68 20 60 
20 61 6E 
76 65 72 



DISABE2 08 
48 20 64 
65 64 2C 
6C 65 20 
63 6C 61 



08 



65 60 6F 



0ISABE3 08 
48 20 64 
65 64 2C 
6C 65 20 
63 6C 61 



08 



20 61 72 



0ISA8E4 08 
48 20 64 
65 64 2C 
6C 65 20 
63 6C 61 



08 



65 60 6F 
64 20 64 
20 61 72 



18380 ; 

18390 8NKUSE$ 08 
62 6C 65 20 74 6F 
6E 73 74 61 6C 6C 
65 60 44 49 53 48 



18400 

75 65 73 

61 6E 68 

73 65 2E 

18410 

18420 

44 49 53 

65 61 64 

69 76 65 

18430 

18440 

69 66 79 

41 40 20 

64 65 72 



08 
74 65 64 
20 69 6E 
00 

MEMIN$ 08 
48 20 61 
79 20 41 
00 

VERIFY 08 
69 6E 67 
63 79 6C 
20 30 30 



18450 ; 

18460 FORMCOM 08 
72 69 66 79 69 6E 
43 6F 60 70 6C 65 
2C 20 52 41 40 20 



'MemOISK disabled. Unable to reclaim ' 



'high memory' ,CR 



MemOISK disabled, Unable to reclaim ' 



driver area' ,CR 



'MemOISK disabled. Unable to reclaim 



high memory and driver area',CR 



Unable to install MemOISK, ' 



requested bank in use.',CR 



'MemOISK already Active', CR 



'Verifying RAM cylinder 00',ETX 



LF, 'Verifying Complete, RAM good',LF 
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67 6F 6F 64 0A 

36 E8 44 18470 DB 
69 11 65 63 74 6F 72 79 
20 68 61 73 20 62 65 65 
6E 20 70 6C 61 63 65 64 
20 6F 6E 20 43 79 6C 69 
6E 64 65 72 20 31 0D 
18480 ; 

3710 4D 18490 VIASET$ DB 
75 73 74 20 69 6E 73 74 
61 6C 6C 20 76 69 61 20 
53 59 53 54 45 4D 20 28 
44 52 49 56 45 52 3D 0D 
18500 ; 

3731 0A 18510 BADRAM DB 
56 65 72 69 66 79 20 45 
72 72 6F 72 20 69 6E 20 
42 61 6E 6B 20 

3747 6E 18520 VBANK DB 
20 61 74 20 6C 6F 63 61 
74 69 6F 6E 20 58 27 

3757 6E 18530 VLOC DB 
6E 6E 6E 27 0A 0D 
18540 ; 

375E 01 18550 TYPEDIS DB 

375F 2736 18560 DISTAB DW 
F735 C735 A035 
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Directory has been placed on Cylinder 1' ,CR 



'Must install via SYSTEM (DRIVER=',CR 



LF,' Verify Error in Bank ' 

'n at location X' ,AP 
'nnnn',AP,LF,CR 



1 ;Type of disable 

DISABE4,DISABE3,DISABE2,DISABE1 



3767 00 


18570 RE USE 
18580 ; 


DB 







18590 ; 


Buffers 


Used 




18600 ; 






3800 


18610 
18620 ; 


ORG 


$<-8+l<+8 


0100 


18630 lOBUFF 


DS 


256 


0100 


18640 BUFFER 


DS 


256 


000A 


18650 DUPDCT 
18660 ; 
00570 ; 


DS 


10 


3A0A 


00580 


SUBTTL 


<> 


2C00 


00590 


END 


START 



;Re-use trapped driver area. 
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$NOT 


2F10 (3(31 


0000 @@2 


0000 


ms 


0000 @@4 


0000 @M0D2 


0000 


@M0D4 


FFFF 


ABB 


0010 ABORT 


2C1B 


AP 


0027 ABC 


3080 B10 


2E22 


B13 


2E29 


BT4~ 


2E4B B14A 


2E57 


B9 


2DF7 


BADDRV 


32 C2 BADDRV $ 


34F3 


BADRAM 


3731 


BANKIM 


2DC8 BANKS 


336D 


BNKUSE 


32 DA 


BNKUSES 


3667 BOOT 


2FFF 


BOOTERN 


3013 


BOOTGRN 


3016 BPC 


2CE4 


BREAK 


0080 


BS 


0008 BTLP 


2F3C 


BTSECS 


2F3A 


BUFF 


2E8B BUFFER 


3900 


BUFFERS 


2300 CALCDRV 


2CF6 CALCSIZ 


3165 


CALCYL 


312B CFLAG$ 


0002 CHKDIR 


2E1A 


CHKDIR2 


2E19 


CKBANK 


2CCB CKLP 


326C 


CKMLP 


3289 


CR 


000D CYLP 


3264 


CYLS 


2F69 


DDBPC 


1200 DECASC 


2C63 


DECASC2 


2C44 


DECHEX 


2C6E DEFAULT 


30FE 


DEFBANK 


2E6A 


DENSITY 


3452 DFLAG$ 


0003 


DIR 


301 F 


DIRERN 


3033 DISABEl 


35A0 


DISABE2 


35C7 


DISABE3 


35F7 DISABE4 


3627 


DISMEM 


31 8 A 


DISMES 


329E DISTAB 


375F 


DIVLP 


2CE9 


DIVLPl 


2D13 DOFORM 


3474 


DOFORMl 


2F13 


DOMEM 


303F DONEl 


2C80 


DONTRES 


2EFA 


DOXFER 


2E0C DOXFERl 


2D26 


DO INST 


2EDC 


DRADD 


32 BC DREND 


31F7 


DRIVE 


2FC4 


DRIVER 


2DBE DRVLOW 


2DC9 


DSP 


2C59 


DUPDCT 


3A00 ERROR 


2C8D 


ETX 


0003 


EXl 


2E5B EXIT 


2C21 


FILBUF 


2F34 


FLAG 


0040 FORMAT 


322D 


FORMCOM 


36CA 


FORflTIT 


327C FRBANK 


31 CD 


FREBANK 


2C3C 


FREETRK 


2F8E FRTRACK 


3405 


FRTRKl 


3420 FRTRK2 


344C GAT0 


2F5D 


GATCD 


2F71 


GETADR 


2E5D GETBUF 


2E8A 


GETCYL 


2CE2 


GETDIG 


2C82 GETDUP 


2D2C 


GETOLD 


2E83 


GETYPE 


304F GOTBANK 


2E70 


GPC 


2F86 


GTDRV 


2D35 GTDRV2 


31F4 


HELLO$ 


32E7 


HIDRVR 


1300 ILLEGAL 


2C8A 


INIT 


2DDD 


INPDENS 


309B INPUT 


2CD6 


INSTALD 


3513 


INSTDRV 


2D48 INSTMEM 


2E9A 


lOBUFF 


3800 


lOERR 


2C5D KFLAG$ 


000A 


KIDCB$ 


2EF7 


LENGTH 


00 DC LF 


000A 


LOCKOUT 


2F62 


LOWEST 


8000 LPADD 


2C65 


LSIID 


2FBA 


MAXCYL 


315E MD$ 


34C0 


MDDATA 


34C4 MEMDISK 


34B8 MEMDRIV 


2DF6 


MEMHIGH 


2DCB 


MEMIN 


32 CA MEMIN$ 


3699 


MEMINl 


2EE9 


MEMLP 


31AD MINCYL 


0003 


ML OOP 


316B 


MYSTACK 


2DDD NODRV 


32 BE 


NODRV$ 


34 D5 


NOMEM 


32 D2 NOMEM$ 


354D 


NOMTCH 


329B 


NORECLM 


3216 NORMEX 


2C16 


N0T2 


3096 


NOTACT 


32 DE NOTACTS 


3576 


NOTDIR 


2E20 


NOTMEM 


32 CE NOTMEMS 


3532 


NOTPRS 


32 D6 


NOTPRSS 


3562 NOT IN 


2EB5 


NUM 


0080 OFFSET 


2E65 OKTOGO 


2E06 


OLDHIGH 


2DC0 OLDRVR 


2EEE OLD HI 


2DC6 


PAR ERR 


002 C 


PIKUPHI 


310F RDSEC 


2FCA 


RECVDE 


2E3F 


REDO 


3148 RELl 


21FF 


REL2 


2E0F REL2A 


2E06 REL3 


2E40 


REL4 


2E46 


REL5 


2E79 REL6 


2DE0 
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REL7 


2DE5 REL8 


REL8B 


2E7C REL9 


RELTBL 


2D70 RESTRE6 


RETADDR 


2CC3 RE USE 


SAVDCT 


2D20 SAVEDCT 


SAVEOLD 


31 EB SAVERE6 


SAVPAGE 


316E SDBPC 


SDENB 


2E62 SDENC 


SDENE 


2DA6 SDENF 


SDENI 


3036 SETBANK 


SFLA6$ 


0012 SHOWINU 


START 


2C00 STARTA 


STFRET 


2E72 STILLFM 


STUFLP 


3260 TAB 


TYPEDIS 


375E VBANK 


VERIFY 


36B0 VFLAG$ 


VIASET$ 


3710 VLOC 


WIPELP 


3235 WP 


WRENT 


2FE2 WRGAT 


WRHIT 


2FD5 WRITES 


ZEROHIT 


2FD6i.@@ ABORT 


@@BANK 


7604 @I3BKSP 


@@CHNIO 


7044 @@CKBRKC 


@@CKEOF 


72 F 9 @@CKTSK 


@@CLS 


7652 @@CMNDI 


0@CTL 


6EA8 @I3DATE 


@@DEBUG 


70C2 (3@DECHEX 


@0DIRWR 


7506 @@DIV16 


(a@DODIR 


7155 @@DSP 


@@ ERROR 


70AD 0(3 EX IT 


@@FLAGS 


75 EE @0FNAME 


@@GATRD 


74 iX 00GATWR 


@@GTDCB 


749D 00GTDCT 


@@HDFMT 


7227 00HEX16 


(a^HEXDEC 


7599 00HIGH$ 


@@KBD 


6EE4 00KEY 


@@KLTSK 


712B 00LOAD 


@0LOF 


7323 00LOGER 


@0MSG 


6F8F 00MUL16 


@@OPEN 


72BA 00PARAM 


@0PEOF 


7338 00POSN 


@(apRT 


6EBC 00PUT 


@(3RDSEC 


71FD 00RDSSC 


@@REMOV 


7290 00RENAM 


@@RMTSK 


7101 00RPTSK 


@(3RSLCT 


71 E8 00RSTOR 


(3@RWRIT 


73A1 00SEEK 


0(3 SKIP 


73CB 00SLCT 


@@TIME 


702F @0VDCTL 


@@VRSEC 


7212 00WEOF 


0(3 WRITE 


740A 0@WRSEC 


00WRTRK 


7266 


2C00 is the 


transfer address 


00000 Total 


errors 
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2DEB 


REL8A 


2DE8 


RELDUN 


2CC6 


RESZF 


3767 


RLOOP 


32 BA 


SAVEDE 


2CAE 


SAVESP 


0A00 


SDENA 


2E63 


SDEND 


2DB1 


SDENG 


2C28 


SETDCT 


2F22 


SPC 


2C09 


STBANK 


3496 


STR 


0009 TYPED 


3747 


VERCYL 


0015 


VIASET 


3757 


WAS0 


000F 


WRBOOT 


2F5A WRGAT 1 


2E2D 


WRSEC 


7059 00ADTSK 


72E4 0@BREAK 


7668 


00CKDRV 


70D7 00CLOSE 


7083 


00CMNDR 


701A 00DCSTAT 


7584 


00DIRRD 


756F 


00DIV8 


6E6C 


00DSPLY 


706E 00FEXT 


7473 


00FSPEC 


751B 


00GET 


7488 


00GTNOD 


75C3 00HEX8 


75D8 00INIT 


6E58 


00KEYIN 


741F 


00LOC 


6F43 


00LOGOT 


7545 


00MUL8 


7005 


00PAUSE 


734D 00PRINT 


6E94 


00RAMDIR 


74C7 


00READ 


727B 


00REW 


7116 


00RREAD 


71A9 00RUN 


71D3 00SEEKSC 


7194 


00 STEP I 


6FDB 


00VER 


73F5 


00WHERE 


723C 


00WRSSC 



2E35 

2D8A 

32 B6 

2D57 

32 B8 

2DEE 

2E5E 

2DA2 

2DB5 

2D94 

3169 

2C34 

0020 

307A 

325B 

32 C6 

3098 

2F30 

2FBE 

2FC1 

70EC 

761A 

7140 

72 CF 

7098 

717F 

74F1 

755A 

6F0C 

745 E 

7449 

6E80 

74B2 

75AE 

72 A5 

6EF8 

730E 

6F58 

7530 

6FF0 

6FA4 

716A 

7362 

7377 

738C 

7434 

73B6 

71 BE 

73E0 

6ED0 

7251 



Page 266 



NOTES: 



Page 267 



NOTES: 



Page 268 



PATCH/CMD - Disk file patch utility 

Patch allows changing bytes in any type of disk file, be it a load module format file 
or standard data file. Patch code may be typed in on the command line or read from an 
ASCII disk file. 
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The Source 


UTILITY Fi 


les 


PATCH - LS-DOS 


6.2 Page 00001 




00100 ; PATCH/ ASM 






0000 


00110 
00120 ; 


TITLE 


< PATCH - LS-DOS 


6.2> 


0003 


00130 ETX 


EQU 


3 




000A 


00140 LF 


EQU 


10 




000 D 


00150 CR 


EQU 


13 




0040 


00160 FLAG 


EQU 


01000000 B 




0010 


00170 ABB 
00180 ; 


EQU 


0001 0000 B 




0000 


00190 *GET 


SVCMAC: 


3 


;SVC Macro equivalents 




00010 ;SVCMAC/ASM - LS-DOS Version VI 






00020 *LIST 


OFF 








03900 *LIST 


ON 






0000 


00200 *GET 


COPYCOM 


:3 


; Copyright message 




03920 ; COPYCOM - Fil 


e for Copyright 


COMment block 




03930 ; 








0000 


03940 
00210 ; 


COM 


'<*(C) 1982,83, 


84 by LSI*>' 


2600 


00220 
00230 ; 
00240 BEGIN 


ORG 


2600 H 




2600 


00250 


@@CKBRKC 


;Check if Break hit 


2600 3E6A 


00001 


LD 


A. 106 




2602 EF 


00002 


RST 


40 




2603 2804 


00260 


JR 


Z, BEGINA 


;Continue if no break 


2605 21FFFF 


00270 


LD 


HL,-1 


; else abort 


2608 C9 


00280 
00290 ; 
00300 BEGINA 


RET 






2609 ED73BF27 


00310 


LD 


(STACK), SP 


;Save original stack 


260D E5 


00320 


PUSH 


HL 


;Save ptr to CMD buffer 


260E 


00330 


(a@FLAGS 




;Set up lY 


260E 3E65 


00003 


LD 


A, 101 




2610 EF 


00004 


RST 


40 




2611 21C02D 


00340 


LD 


HL,HELLO$ 




2614 CD1F2D 


00350 
00360 ; 


CALL 


$DSPLY 


;Display the signon msg 




00370 ; 


Get /CMD file off comma 


nd line 




00380 ; 








2617 El 


00390 


POP 


HL 


;P/u cmd line ptr 


2618 117F2D 


00400 


LD 


DE,PGMDCB 


;Set up for OPEN 


261 B 


00410 


(3@FSPEC 




;Fetch program filespec 


261B 3E4E 


00005 


LD 


A, 78 




261D EF 


00006 


RST 


40 




261E C2512D 


00420 


JP 


NZ,PGMREQ 


;Quit if illegal name 


2621 lA 


00430 


LD 


A,(DE) 




2622 FE2A 


00440 


CP 


1*1 


;Test for device spec 


2624 CA512D 


00450 


JP 


Z,PGMREQ 


;Abort if not a filespec 


2627 E5 


00460 


PUSH 


HL 


;Save posn on command line 


2628 21792D 


00470 


LD 


HL,CMDEXT 




262B 


00480 


@@FEXT 




; Default ext to /CMD 


262B 3E4F 


00007 


LD 


A, 79 




262D EF 


00008 


RST 


40 




262E 05 


00490 


PUSH 


DE 


;Save ptr to FCB 


262F EB 


00500 


EX 


DE,HL 


;Pt HL at current name 


2630 113330 


00510 


LD 


DE,FNM$ 


; Store the name away 


2633 


00520 


@@FSPEC 




; in case of a later error 


2633 3E4E 


00009 


LD 


A, 78 




2635 EF 


00010 


RST 


40 




2636 Dl 


00530 


POP 


DE 


;Recover FCB 


2637 210033 


00540 


LD 


HL,PGMBUF 


; Buffer for /CMD file I/O 
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UTILITY Fi 


les 


PATCH - LS-DOS 


6.2 Page 00002 


263A 0600 


00550 


LD 


B,0 


;Set lrl=256 


263C CDEF2C 


00560 
00570 ; 


CALL 


$OPEN 


;Open the file to fix 




00580 ; 


Get y 


^FIX file (if any) 






00590 ; 








263F El 


00600 


POP 


HL 


;Get command line posn 


2640 11A02D 


00610 


LD 


DE,FIXDCB 


;FCB used for /FIX file 


2643 


00620 


@(9FSPEC 


;See if a filespec is there 


2643 3E4E 


00011 


LD 


A, 78 




2645 EF 


00012 


RST 


40 




2646 C27426 


00630 


JP 


NZ, CKLIN 


;If error, ck for parms there 


2649 E5 


00640 


PUSH 


HL 


;Save command line posn 


264A 217C2D 


00650 


LD 


HL,FIXEXT 




264D 


00660 


@@FEXT 


;Use default ext of /FIX 


264D 3E4F 


00013 


LD 


A, 79 




264F EF 


00014 


RST 


40 




2650 21A02D 


00670 


LD 


HL,FIXDCB 


;Pt HL to start of fix filespe 


2653 110930 


00680 


LD 


DE,NAMFIX$ 


; Buffer to hold filename only 


2656 0600 


00690 
00700 ; 


LD 


B,0 


;Init char count to 




00710 ; 


Save 


patch file name for X header 




00720 ; 








2658 7E 


00730 FXNAM 


LD 


A,(HL) 


;P/u a char of the filespec 


2659 23 


00740 


INC 


HL 




265A FE2F 


00750 


CP 


7' 


;Found the /FIX ext? 


265C 2811 


00760 


JR 


Z,FXNAM2 


;Quit if so 


265E FE3A 


00770 


CP 


1 . 1 


;Colon yet? 


2660 3808 


00780 


JR 


C, FXNAMl 


;If less, must be number 


2662 FE41 


00790 


CP 


'A' 


;A-Z? 


2664 3809 


00800 


JR 


C,FXNAM2 


;If less, done 


2666 FE5B 


00810 


CP 


■Z'+l 


;If not alpha, done 


2668 3005 


00820 


JR 


NC,FXNAM2 




266A 12 


00830 FXNAMl 


LD 


(DE),A 


; Store the name char 


266B 13 


00840 


INC 


DE 


;Inc storage ptr 


266C 04 


00850 


INC 


B 


;Inc count of name chars 


266D 18E9 


00860 


JR 


FXNAM 


;Loop for more 


266F 78 


00870 FXNAM2 


LD 


A,B 


jStore the length of 


2670 320830 


00880 


LD 


(NAMLEN$),A 


; the /FIX patch file 


2673 El 


00890 


POP 


HL 


; Recover command line posn 


2674 7E 


00900 CKLIN 


LD 


A,(HL) 


;Test command line 


2675 FE0D 


00910 


CP 


CR 


; for end 


2677 2845 


00920 


JR 


Z.RDFIX 


;Go if found 


2679 23 


00930 


INC 


HL 




267A FE20 


00940 


CP 


20H 




267C 28F6 


00950 


JR 


Z, CKLIN 


; Ignore spaces 


267E FE28 


00960 


CP 


'(' 


; Beginning of parm? 


2680 C2492D 


00970 
00980 ; 


JP 


NZ,PRMERR 


;Anything else is a parm error 




00990 ; 


Test 


for REMOVE or special Option parameters 




01000 ; 


Ignore @@PARAM errors. 


as the parameters may actually 




01010 ; 


be a 


I command line patch. 




01020 ; 








2683 115730 


01030 


LD 


DE,PTBL$ 


; Parameter table 


2686 E5 


01040 


PUSH 


HL 


;Save command line ptr 


2687 2B 


01050 


DEC 


HL 


;Back up to '(' 


2688 


01060 


(a@PARAM 




2688 3E11 


00015 


LD 


A,17 




268A EF 


00016 


RST 


40 




268B El 


01070 


POP 


HL 


;Restore cmd line ptr 


268C 010000 


01080 


LD 


BC,$-$ 


; "Remove" parm response 


268 D 


01090 RPARMl 


EQU 


$-2 
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UTILITY Files 



PATCH - LS-DOS 6,2 



Page 00003 



268F 79 
2690 32472C 
2693 01FFFF 
2694 

2696 79 

2697 32412C 
269A CABE26 



269D 010034 
26A0 7E 
26A1 FE0D 
26A3 CAB526 
26A6 FE29 
26A8 280B 
26AA 23 
26 AS FE3A 
26AD 2002 
26AF 3E0D 
26B1 02 
26B2 03 
26B3 18EB 

26B5 3E0D 
26B7 02 
26 B8 03 
26B9 3E03 
26 BB 02 
26 BC 1839 



26 BE 3A0830 
26C1 B7 
26C2 CA512D 
26C5 FDCB12C6 
26C9 11A02D 
26CC 210031 
26 CF 0600 
26D1 CDEF2C 
26D4 210048 
26D7 2B 
26D8 010034 
26DB CD072D 
26DE 200F 
26E0 E67F 
26E2 2810 
26E4 02 
26E5 03 
26 E6 E5 
26E7 ED42 
26E9 El 
26 EA DA4D2D 
26ED 18EC 

26 EF FEIC 
26F1 C2322D 
26F4 3E03 



01100 

01110 

01120 

01130 OPARMl 

01140 

01150 

01160 

01170 

01180 ; 

01190 ; 

01200 ; 

01210 

01220 CKLINl 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 CKLIN2 

01320 

01330 

01340 ; 

01350 CKLIN3 

01360 

01370 

01380 

01390 

01400 

01410 ; 

01420 ; 

01430 ; 

01440 ; 

01450 RDF IX 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 RDFIXl 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 ; 

01680 

01690 

01700 



LD 

LD 

LD 

EQU 

LD 

LD 

JP 



A C 

(RPARM),A 

BC,-1 

$-2 

A C 

(6parm),a 

Z,RDFIX 



;Set Remove parm 

;0 parm - bypass need for 

; Frrsnn line if OFF 

;Set find flag 

;If @PARAM was good, there is 

; no cmd line patch code 



Check for command line patch code (CLP) 



; Space allocated for /FIX data 
;Get char from cmd line 

;Show end of CLP 

;End of CLP if so 

;Bump buffer ptr 

;Separator between patches? 

;If not, store char 

; else show end of this CLP 

;Put byte into fix data buff 

;Bump buff ptr 

;Loop til end of cmd line 

;Put CR into 
; CLP buffer 

;End buffer with ETX 

; Start patching,. . 



P/u the fix info from the FIX file, rather than 
the command line. 



LD 


BCFIXDATA 


LD 


A,(HL) 


CP 


CR 


JP 


Z,CKLIN3 


CP 


')' 


JR 


Z,CKLIN3 


INC 


HL 


CP 


1 . i 


JR 


NZ,CKLIN2 


LD 


A,CR 


LD 


(BC),A 


INC 


BC 


JR 


CKLINl 


LD 


A,CR 


LD 


(BC),A 


INC 


BC 


LD 


A, ETX 


LD 


(BC),A 


JR 


DOFIX 



RDFIX2 
RDF 1X3 



LD 

OR 

JP 

SET 

LD 

LD 

LD 

CALL 

LD 

DEC 

LD 

CALL 

JR 

AND 

JR 

LD 

INC 

PUSH 

SBC 

POP 

JP 

JR 

CP 
JP 
LD 



A,(NAMLEN$) ;P/u len of /FIX filename 

A 

Z,PGNREQ ;If none used, abort 

0,(IY+'S'-'A') ;Set open inhibit bit 



DE,FIXDCB 

HL,FIXBUF 

B,0 

$OPEN 

HL,PGMDATA 

HL 

BCFIXDATA 

$GET1 

NZ,RDFIX2 

7FH 

Z,RDFIX3 

(BC),A 

BC 

HL 

HL,BC 

HL 

CTOOBIG 

RDFIXl 

IfH 

NZ,IOERR 
A, ETX 



;Set up & open /FIX file 



;Pt HL to highest byte avail 

; for fix data 

; Start of /FIX data storage 

;Get a char fm /FIX file 

;Jump on error 

; Strip bit 7 

;Take as EOF also 

;Save fix data char 

;Advance buffer 

;Save HL tempy 

;Room in fixdata buffer? 

;Abort if patch data too large 
; else loop til EOF 

;End of file? 
;Abort if not 
;Mark the end of the fix data 
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The Source 


UTILITY Fi 


i1es 


PATCH - LS-DOS 


6,2 Page 00004 


26F6 02 


01710 
01720 ; 


LD 


(BC),A 






01730 ; 


Start 


patching the tar 


get file 




01740 ; 








26F7 210034 


01750 DOFIX 
01760 ; 


LD 


HL.FIXDATA 


;Pt to start of fix data 


26FA E5 


01770 DOFIXl 


PUSH 


HL 




26FB 21882E 


01780 


LD 


HL,RDGINP$ 


;"reading input.,. 


26FE CD1F2D 


01790 


CALL 


$DSPLY 




2701 El 


01800 


POP 


HL 




2702 226B2D 


01810 


LD 


(SETMSG+1),HL 


;Used if error in line 


2705 3E00 


01820 


LD 


A,$-$ 




2706 


01830 PASS2 


EQU 


$-1 


;Zero if 1st pass thru data 


2707 B7 


01840 


OR 


A 




2708 7E 


01850 


LD 


A,(HL) 


;P/U a character 


2709 CA142C 


01860 


JP 


Z,PASS1 


;Go if 1st pass 


270C 7E 


01870 


LD 


A,(HL) 




270D FE03 


01880 


CP 


ETX 


;End of patch? 


270F 285C 


01890 


JR 


Z,PCHDUN 




2711 FE2E 


01900 


CP 


' , ' 


; Comment? 


2713 CAC527 


01910 


JP 


Z, COMMENT 




2716 CBAF 


01920 


RES 


5,A 


;Make upper case 


2718 FE46 


01930 


CP 


'F' 


;FIND line? 


271A CAC527 


01940 


JP 


Z, COMMENT 


;Skip on 2nd pass or if 0=N 


271D FE44 


01950 


CP 


'D' 


; Start of D line? 


271F CAD727 


01960 


JP 


Z,DVERB 




2722 FE59 


01970 


CP 


'Y' 


;Yank previous patch? 


2724 CA4228 


01980 


JP 


Z,YANK 




2727 FE4C 


01990 


CP 


'L' 


; Library overlay? 


2729 CA0029 


02000 


JP 


Z,LVERB 




272C FE52 


02010 


CP 


'R' 


; Remove parm ? 


272E CA3A28 


02020 


JP 


Z, REMOVE 




2731 FE4F 


02030 


CP 


'0' 


;0 parm ? 


2733 CAD128 


02040 


JP 


Z,OVERB 




2736 FE58 


02050 


CP 


'X' 


; Start of X line? 


2738 C2612D 


02060 
02070 ; 


JP 


NZ,PCHERR 


;Error if none of above 




02080 ; 


Verb = 


= 'X' -> patch by hex load address 




02090 ; 








273B 117F2D 


02100 


LD 


DE,PGMDCB 


;Rewind the program to 


273E 010000 


02110 


LD 


BCJ 


;Use POSN so EOF 


2741 CDF52C 


02120 


CALL 


$POSN 


; is not changed 


2744 CD4D29 


02130 
02140 ; 


CALL 


POSFIL 


;Posn to end of prgfile 


2747 F5 


02150 


PUSH 


AF 


;Save regs fm display routine 


2748 E5 


02160 


PUSH 


HL 




2749 D5 


02170 


PUSH 


DE 




274A 21AD2E 


02180 


LD 


HL,INSPCH$ 


;"installing patch,. . 


274D CD1F2D 


02190 


CALL 


$DSPLY 




2750 Dl 


02200 


POP 


DE 




2751 El 


02210 


POP 


HL 




2752 Fl 


02220 
02230 ; 


POP 


AF 




2753 FE02 


02240 


CP 


2 


;Be sure type byte = 2 


2755 C2452D 


02250 


JP 


NZ,FILERR 


;Load file format error 


2758 3E01 


02260 


LD 


A,l 


;Tempy set LRL to 1 


275A 32882D 


02270 


LD 


(PGMDCB+9),A 


; & backspace the file 


275D CDFB2C 


02280 


CALL 


$BKSP 


; to overwrite old xfer addr 


2760 AF 


02290 


XOR 


A 


; Reset LRL to 256 


2761 32882D 


02300 
02310 ; 


LD 


(PGMDCB+9),A 
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2764 CD8229 

2767 7E 

2768 FE03 
276A C2612D 



276D 
276F 
2772 
2775 
2775 
2777 
2778 
277B 
277E 
2781 
2782 
2784 
2787 



3E0D 

CD2B2D 

117F2D 

3E3C 

EF 

C2322D 

21EE2F 

3A732D 

B7 

2024 

21962F 



2787 
2789 
278A 
278D 
278E 
278F 
2791 
2792 
2795 
2797 
2798 
279A 
279C 
279F 
27 A2 
27 A2 
27 A4 
27A5 
27A8 



3E0C 

EF 

2A742D 

7C 

85 

2814 

E5 

110100 

ED52 

El 

2005 

3E20 

32C12F 

11B12F 

3E61 

EF 

21B12F 



27A8 3E0C 
27 AA EF 

27AB 210000 
27AE E5 
27AF 217F2D 
27B2 CB7E 
27B4 EB 
27B5 C4D62C 
27B8 3E0E 
27BA CD2B2D 
27BD El 
27BE 310000 
27 BF 



02320 ; 

02330 ; 

02340 

02350 

02360 

02370 

02380 ; 

02390 ; 

02400 ; 

02410 PCHDUN 

02420 

02430 

02440 

00017 

00018 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

00019 

00020 

00021 

00022 

00023 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 NTONE 

02640 

00024 

00025 

02650 NOCHG 

02660 EXLOG 

00026 

00027 

00028 

00029 

00030 

02670 ; 

02680 

02690 $QUIt 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 STACK 



Install the X patch at the end of the prgfile 



CALL STUFNM 

LD A,(HL) 

CP ETX 

JP NZ,PCHERR 



;Generate the patch 

;HL => ending posn in fix data 

;Did it go til the end? 

;" Patch format error... 



Patch/operation complete - close the file 

;Move cursor to next line 
;Close the program file 



LD A,CR 

CALL $DSP 
LD DE,P6MDCB 

@@CLOSE 



LD 

RST 

JP 

LD 

LD 

OR 

JR 

LD 

(a@LOGOT 

IFEQ 00H,1 



A, 60 

40 

NZ.IOERR 

HLJANKMSG 

A,(YNKFLG) 

A 

NZ, EXLOG 

HL, SUCCESS 



LD 

ENDIF 

LD 

RST 

LD 

LD 

OR 

JR 

PUSH 

LD 

SBC 

POP 

JR 

LD 

LD 

LD 

@@HEXDEC 

LD A, 97 

RST 40 

LD HL,LINMSG$ 

(a(9L0G0T 

IFEQ 00H,1 

LD HL, 

ENDIF 

LD 

RST 



HL, 

40 

HLJLINCNT) 

A,H 

L 

Z» NOCHG 

HL 

DEJ 

HL.DE 

HL 

NZ, NTONE 

A ' ' 

(PLURAL), A 

DE,LINMSG$ 



LD 

PUSH 

LD 

BIT 

EX 

CALL 

LD 

CALL 

POP 

LD 

EQU 



A, 12 
40 

HL,0 

HL 

HL,PGMDCB 

7,(HL) 

DE,HL 

NZ,FLOPN 

A, 14 

$DSP 

HL 

SP,$-$ 

$-2 



;Set up in case Yank was done 
;Was it a Yank? 

;YeSs log out 
;"function completed.." 



;P/u # of D & X lines 

;Any? 

;No D or X verbs 

;Save line count 

;Exactly 1 line? 



;Go if more than 1 

; else remove "s" from message 

;Put line count into message 
: as decimal ASCII 



;Show how many lines done 



;Init no error 



;lA!as file left open? 
;DE=>DCB possible close 
;Warn user 
;Cursor on 



;P/u original stack 
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UTILITY Fi 


les 


PATCH - LS- 


■DOS 


6.2 Page 00006 


27C1 


02790 




(a@CKBRKC 




;Clear break 


27C1 3E6A 


00031 




LD 


A,106 






27 C3 EF 


00032 




RST 


40 






27C4 C9 


02800 
02810 




RET 






;Done with the patching 




02820 




Verb = 


' . ' => comment 


line 




02830 




HL = St 


art of line 


in 


fix data 




02840 




Bypass 


all chars until 


a terminator is found 




02850 












27C5 7E 


02860 COMMENT 


LD 


AJHL) 




;Look for some terminator 


27C6 FE03 


02870 




CP 


ETX 




;End of the fix data? 


27C8 CAFA26 


02880 




JP 


Z,D0FIX1 




;Back if so 


27 CB 23 


02890 




INC 


HL 




; else bump buffer ptr 


27CC FE3B 


02900 




CP 


1 . 1 

9 




; Logical EOL? 


27 CE 2804 


02910 




JR 


Z.EOLl 




;Back if so 


27D0 FE0D 


02920 




CP 


CR 




;Physical EOL? 


27D2 20F1 


02930 




JR 


NZ, COMMENT 




;Do next char if not 


27D4 C3FA26 


02940 
02950 


EOLl 


JP 


DOFIXl 




;Back to the caller 




02960 




Verb = 


'D' -> disk 


record patch 




02970 












27D7 CDCC2C 


02980 


DVERB 


CALL 


CNTLIN 




;Bump line counter 


27DA CDE327 


02990 




CALL 


DPOSN 




;Posn prgfile to Drr^bb 


27 DD CD0A28 


03000 
03010 




CALL 


DLINE 




;Put or check the patch line 
; depending on which pass 


27 E0 C3FA25 


03020 
03030 


s 


JP 


DOFIXl 




;Do next line 


27E3 23 


03040 


DPOSN 


INC 


HL 




;Bump fix data buffer ptr 


27E4 CD922A 


03050 




CALL 


PRSFIX 




;Get char or hex pair 


27E7 0600 


03060 




LD 


BJ 




;Put disk record # 


27E9 4F 


03070 




LD 


C,A 




; into BC 


27EA 7E 


03080 




LD 


A,(HL) 




;If no commas then 


27EB FE2C 


03090 




CP 


1 1 

9 




; get 3rd & 4th digits 


27 ED 2804 


03100 




JR 


Z, DVERBl 




; in case user put in 


27 EF CD922A 


03110 




CALL 


PRSFIX 




; a 4 byte record # 


27F2 4F 


03120 




LD 


C,A 






27F3 117F2D 


03130 


DVERBl 


LD 


DE.PGMDCB 




;Position file to record 


27F6 CDF52C 


03140 




CALL 


$POSN 






27F9 7E 


03150 




LD 


A,(HL) 




;Check for '^ separator 


27FA FE2C 


03160 




CP 


1 1 

9 




; between record and offset 


27FC C2612D 


03170 




JP 


NZ^PCHERR 




;Abort if not found 


27FF 23 


03180 




INC 


HL 




;Pt to offset bytes 


2800 CD252D 


03190 




CALL 


$READ 




;Read the sector 


2803 CD922A 


03200 




CALL 


PRSFIX 




;Make offset binary in A 


2806 32842D 


03210 




LD 


(PGMDCB+5): 


.A 


;Set byte offset in FCB 


2809 C9 


03220 
03230 




RET 










03240 




Dual pu 


rpose routir 


ie that checks a Drr^bb line 




03250 




or inst 


alls it into the program file 




03260 












280A 7E 


03270 


DLINE 


LD 


A,(HL) 




;Next byte in line must 


280B FE3D 


03280 




CP 


' = ' 




; be '=' 


280D C2612D 


03290 




JP 


NZ,PCHERR 




;Abort if missing 


2810 23 


03300 


DVERB2 


INC 


HL 




;Pt to start of patch data 


2811 CD962A 


03310 


DVERB3 


CALL 


PRSFXl 




;Get patch byte as binary in A 


2814 CDB82C 


03320 




CALL 


PUTORCHK 




;Either write it or check it 


2817 7E 


03330 




LD 


A,(HL) 




;P/u next char 


2818 FE0D 


03340 




CP 


CR 




;Go on CR 


281A 2811 


03350 




JR 


Z,DVERB4A 






281C FE3B 


03360 




CP 


1 . 1 

9 




;End of logical line? 


281E 280C 


03370 




JR 


Z,DVERB4 
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2820 FE22 


03380 




CP 


1 II 1 


;Closing dbl-quote? 


2822 2808 


03390 




JR 


Z,DVERB4 




2824 3AAB2A 


03400 




LD 


A,(STRFLG+1) 


;If in quote string. 


2827 B7 


03410 




OR 


A 


; do not bump HL past 


2828 28E6 


03420 




JR 


Z,DVERB2 


; the non-existant space 


282A 18E5 


03430 
03440 


» 


JR 


DVERB3 


;No special, do next byte 


282C 7E 


03450 


DVERB4 


LD 


A,(HL) 


; Ignore rest of line 


282D 23 


03460 


DVERB4A 


INC 


HL 




282E FE0D 


03470 




CP 


CR 




2830 20FA 


03480 




JR 


NZ,DVERB4 


;Loop til physical EOL 


2832 3A0627 


03490 




LD 


A,(PASS2) 


; Patching or checking? 


2835 B7 


03500 




OR 


A 


;If patching, need to 


2836 C4012D 


03510 




CALL 


NZ,$RWRIT 


; re-write the sector 


2839 C9 


03520 
03530 




RET 




;Done w/line 




03540 




Verb = 


'R' -> set flag 


to yank D patch 




03550 




This routine is needed 


to check the R parm 




03560 




when 


doing a CLP, in 


:ase the parm was entered 




03570 




after 


the fix data 






03580 










283A 3EFF 


03590 REMOVE 


LD 


A,-l 


;Set Reomve parm true and 


283C 32472C 


03600 




LD 


(RPARM),A 


; then ignore all until th 


283F C3C527 


03610 
03620 




JP 


COMMENT 


; next logical line 




03630 




Verb = 


'Y' -> yanks patch with same name 




03640 










2842 7E 


03650 


YANK 


LD 


A,(HL) 


; Ignore all chars until 


2843 23 


03660 




INC 


HL 


; the physical EOL 


2844 FE0D 


03670 




CP 


CR 




2846 20FA 


03680 
03690 


s 


JR 


NZ,YANK 




2848 E5 


03700 




PUSH 


HL 


;Save fix data posn 


2849 21DC2E 


03710 




LD 


HL,YNKPCH$ 


; "yanking patch.. . 


284C CD1F2D 


03720 




CALL 


$DSPLY 




284F 010000 


03730 




LD 


BC,0 


; Rewind the file 


2852 117F2D 


03740 




LD 


DE,PGMDCB 




2855 CDF52C 


03750 




CALL 


$POSN 




2858 CD072D 


03760 


YANKl 


CALL 


$GET1 


;Get a "type" byte 


285B C2C628 


03770 




JP 


NZ,YANK9 


;If error, ck for EOF 


285E FE07 


03780 




CP 


7 


;Found a patch? 


2860 281B 


03790 




JR 


Z,YANK4 


;If so, check name 


2862 326A28 


03800 




LD 


(TYPC0D+1),A 


; Stuff type for testing 


2865 CD0B2D 


03810 




CALL 


$GET 


;Get a block length 


2868 47 


03820 




LD 


B,A 


;Set loop counter 


2869 3E00 


03830 TYPCOD 


LD 


A,0 


;Test type 


286B 3D 


03840 




DEC 


A 


;Ck for type 1 (code block) 


286C 2008 


03850 
03860 




JR 


NZ,YANK2 


; Length ok if not 




03870 




Adjust 


length for 255 


6 256 byte code blocks 




03880 










286E CD0B2D 


03890 




CALL 


$GET 


;Read 1st two bytes 


2871 05 


03900 




DEC 


B 


; in case the block was 


2872 CD0B2D 


03910 




CALL 


$GET 


; 255+2 or 256+2 


2875 05 


03920 




DEC 


B 




2876 CD0B2D 


03930 


YANK2 


CALL 


$GET 


;Read rest of block 


2879 10FB 


03940 


YANK3 


DJNZ 


YANK2 




287B 18DB 


03950 
03960 




JR 


YANKl 






03970 




Found 


patch code area, 


is this the one? 




03980 
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287D CD0B2D 

2880 47 

2881 3A0830 

2884 B8 

2885 20EF 
2887 210930 
288A CD072D 
288D C27628 

2890 BE 

2891 23 

2892 20E5 
2894 10F4 



2896 CD0B2D 
2899 FE01 
289B C2BD28 
289E 3E01 
28A0 32882D 
28A3 CDFB2C 
28A6 AF 
28A7 32882D 
28AA 3E10 
28AC CD112D 
28 AF CD012D 
28B2 CD0B2D 
28B5 47 
28B6 CD0B2D 
28B9 10FB 
28 BB 18 D9 

28BD El 
28BE 3EFF 
28C0 32732D 
28C3 C36D27 

28C6 FEIC 
28C8 C2322D 
28CB 21F72E 
28CE C3542D 



28 Dl 
28 D2 
28 D3 
28 D5 
28 D7 
28 D8 
28 D9 
28 DB 
28 DD 
28 [F 
28E1 
28E3 
28E5 
28E7 
28E9 
28 EB 



23 

7E 

FE3D 

201 D 

23 

7E 

FE0D 

281B 

CBAF 

FE4E 

2815 

FE59 

2810 

FE4F 

2009 

CDB32C 



03990 YANK4 

04000 

04010 

04020 

04030 

04040 

04050 YANK5 



04070 



04090 

04100 

04110 ; 

04120 ; 

04130 ; 

04140 YANK6 

04150 

04160 

04170 

04180 

04190 

04200 

04210 

04220 

04230 

04240 

04250 

04260 

04270 YANK7 

04280 

04290 

04300 ; 

04310 YANKS 

04320 

04330 

04340 

04350 ; 

04360 YANK9 

04370 

04380 

04390 

04400 ; 

04410 ; 

04420 ; 

04430 ; 

04440 OVERB 

04450 

04460 

04470 

04480 

04490 

04500 

04510 

04520 

04530 

04540 

04550 

04560 

04570 

04580 

04590 



CALL 

LD 

LD 

CP 

JR 

LD 

CALL 

JP 

CP 

INC 

JR 

DJNZ 



$GET 
B A 

a'(namlen$) 

B 

NZ,YANK2 

HL,NAMFIX$ 

$GET1 

NZ,YANK2 

(HL) 

HL 

NZ,YANK3 

YANKS 



Get name len fm file 
Save len in B 
P/u fix file name length 
If no match, not fix 

to Yank 
Pt to yank file name 
Ck for match of yank 

file name with prog 

patch name 

;Back if no match 



Found this fix patch - let's yank it 



CALL 

CP 

JP 

LD 

LD 

CALL 

XOR 

LD 

LD 

CALL 

CALL 

CALL 

LD 

CALL 

DJNZ 

JR 

POP 
LD 
LD 
JP 

CP 
JP 
LD 
JP 

Verb ■ 
Check 

INC 

LD 

CP 

JR 

INC 

LD 

CP 

JR 

RES 

CP 

JR 

CP 

JR 

CP 

JR 

CALL 



$GET 

1 

NZ,YANK8 

A 1 

(PGMDCB+9),A 

$BKSP 

A 

(PGMDCB+9),A 

A,10H 

$PUT 

$RWRIT 

$GET 

B,A 

$GET 

YANK 7 

YANK6 

HL 

A,0FFH 
(YNKFLG),A 
PCHDUN 

ICH 

NZ,IOERR 
HL,NOYANK$ 
ERREXIT 



Get type code 
Ignore block if 

type <> 1 (code block) 
Set LRL=1 & backspace 

to overwrite the type byte 

Set LRL back to 256 

Change type=l to =16 
and write to prgfi le 

Force re-write 

Get length byte 
of patch code block 

Posn past the code block 
Loop through patch blocks 

Not type 1, done with yank 
Set Yank flag for 
exit message dsply 



;Got $GET error, was EOF? 

;Abort if not, else 

; "can't yank, not in file 



= '0' -> turn FIND on/off 
special parameter, determine ON or OFF 



HL 
A,(HL) 

NZ, WHAT IS 

HL 

A,(HL) 

CR 

Z,OISOFF 

5,A 

'N' 

Z,OISOFF 

'Y' 

Z,OISON 

'0' 

NZ,WHATIS 

GETNXT 



;Move past 

Next char must be 

or is an error 
Bypass the '=' 

Was it CR or ')'? 
0=<enter> is OFF 
Make Upper case 

_0=N,NO etc. 
; Y=yes 



;Not Y/N/ON/OFF! 
;Get nxt, already UC 
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lies 


PATCH - LS-DOS 
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28EE FE46 


04600 


CP 


.p, 




28F0 2806 


04610 


JR 


Z. OISOFF 


;OFF 


28F2 FE4E 


04620 


CP 


•N' 




28F4 C2612D 


04630 WHAT IS 
04640 ; 


JP 


NZ,PCHERR 


;Quit if no acceptable fl 


28F7 3E 


04650 OISON 


DB 


3EH 


;LD A,0AFH 


28F8 AF 


04660 OISOFF 


XOR 


A 




28F9 32412C 


04670 


LD 


(OPARM),A 


;Set parm on or off 


28FC 2B 


04680 


DEC 


HL 




28FD C3C527 


04690 
04700 ; 


JP 


COMMENT 


; Ignore rest til logical 




04710 ; 


Verb = 


'L' -> indicate 


patch to library file 




04720 ; 








2900 23 


04730 LVERB 


INC 


HL 


; Bypass the 'L' 


2901 CD922A 


04740 


CALL 


PRSFIX 


;Get a hex digit pair 


2904 4F 


04750 


LD 


C.A 


; Stuff for later 


2905 328F2B 


04760 


LD 


(0VRLY+1),A 




2908 7E 


04770 


LD 


A,(HL) 


;Ck for end of line 


2909 23 


04780 


INC 


HL 




290A FE0D 


04790 


CP 


CR 




290C C2612D 


04800 


JP 


NZ.PCHERR 


; Error if not 


290F CDE92A 


04810 


CALL 


FISAM 


;Get isam overlay ptrs 


2912 F5 


04820 


PUSH 


AF 


;Save byte offset 


2913 3A802D 


04830 


LD 


A,(P6MDCB+1) 




2916 CBBF 


04840 


RES 


7,A 


;Sector operations only 


2918 32802D 


04850 


LD 


(PGMDCB+1),A 




291B 117F2D 


04860 


LD 


DE,PGMDCB 


; Position the file to 


291E CDF52C 


04870 


CALL 


$POSN 


;Overlay requested 


2921 CD252D 


04880 


CALL 


$READ 


;Read in the sector 


2924 Fl 


04890 


POP 


AF 




2925 32842D 


04900 


LD 


(PGMDCB+5),A 


; Stuff byte offset in FCB 


2928 CD4D29 


04910 


CALL 


POSFIL 


;Adv "positioning... 


292B FE04 


04920 


CP 


4 


;End of ISAM overlay? 


292D C2452D 


04930 


JP 


NZ^FILERR 


;If not, "load format er. 


2930 3E01 


04940 


LD 


A.l 


;Set LRL=1 


2932 32882D 


04950 


LD 


(PGMDCB+9),A 




2935 CDFB2C 


04960 


CALL 


$BKSP 


;Backspace over the 4 


2938 AF 


04970 


XOR 


A 


;Now set LRL back to 256 


2939 32882D 


04980 


LD 


(PGMDCB+9),A 




293C CD8229 


04990 


CALL 


STUFNM 


;Do the patch 


293F E5 


05000 


PUSH 


HL 




2940 21C12E 


05010 


LD 


HL,BLDMAP$ 


;" rebuilding library map. 


2943 CD1F2D 


05020 


CALL 


$DSPLY 




2946 CD3A2B 


05030 


CALL 


RPRMAP 


; Rebuild the map 


2949 El 


05040 


POP 


HL 




294A C3FA26 


05050 
05060 ; 


JP 


DOFIXl 


;Loop 




05070 ; 


Include 


1 the rest of Patch/Cmd 




05080 ; 








294D 


05090 *GET 


PATCHA: 


3 





03950 ; PATCHA/ ASM - Continuation of Patch Program 

03960 ; 

03970 ; Routine to position to file's end 

03980 ; 

294D E5 03990 POSFIL PUSH HL ;Save fm display call 

294E D5 04000 PUSH DE 

294F 216F2E 04010 LD HL,POSLD$ ;"positioning ... 

2952 CD1F2D 04020 CALL $DSPLY 

2955 Dl 04030 POP DE 

2956 El 04040 POP HL 

04050 ; 
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2957 CD0B2D 
295A FE20 
295C D2452D 
295 F FE02 

2961 C8 

2962 FE03 

2964 C8 

2965 FE04 

2967 C8 

2968 FE0A 
296A C8 
296B 4F 
296C CD0B2D 
296F 47 

2970 0D 

2971 2008 
2973 CD0B2D 

2976 05 

2977 CD0B2D 
29 7 A 05 
297B CD0B2D 
297E 10FB 
2980 18D5 



2982 E5 

2983 21992E 
2986 CD1F2D 

2989 110048 
298C 210830 
298F 7E 

2990 B7 

2991 280C 
2993 3E07 

2995 12 

2996 13 

2997 46 

2998 04 

2999 7E 
299A 23 
299B 12 
299C 13 
299D 10FA 



299F 
29A0 
29A3 
29A4 
29A6 
29A9 
29 AA 
29AC 
29AE 
29 B0 
29 B2 
29 B4 



El 

226B2D 

7E 

FE03 

CA2F2A 

23 

FE2E 

2809 

CBAF 

FE58 

2810 

C3612D 



29 B7 7E 
29 B8 23 



04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 
04660 



POSFILl 



P0SFIL2 



CALL 

CP 

JP 

CP 

RET 

CP 

RET 

CP 

RET 

CP 

RET 

LD 

CALL 

LD 

DEC 

JR 

CALL 

DEC 

CALL 

DEC 

CALL 

DJNZ 

JR 



$GET 

20 H 

NCFILERR 

2 

Z 

3 

Z 

4 

Z 

0AH 

Z 

C,A 

$6ET 

B,A 

C 

NZ,P0SFIL2 

$GET 

B 

$GET 

B 

$GET 

P0SFIL2 

POSFILl 



;Get a type byte 
;X'20' & up are illegal 

;Transfer address? 

;Not really used in 
; a file, yet.. . 
;End of ISAM member? 

;End of ISAM directory? 

;Save type byte 

;Get block length 

;Save it for countdown 

;Was type = 1 ? 

;Jump if not 

;Read off the load addr 

;Adjust length for each 



;Read the block 

;Loop to next type code 



Routine to put the patch name header block into the 
prg data buffer and then position to the next X" line 



STUFNM 



STUFNMl 



STUFNM2 
STUFNM3 



STUFNM4 



PUSH HL 

LD HL,GENPCH$ 

CALL $DSPLY 

LD DE,PGMDATA 

LD HL,NAMLEN$ 

LD A,(HL) 

OR A 

JR Z,STUFNM2 

LD A,7 

LD (DE),A 

INC DE 

LD B,(HL) 

INC B 

LD A,(HL) 

INC HL 

LD (DE),A 

INC DE 

DJNZ STUFNMl 

POP HL 

LD (SETMSG+1),HL 

LD A,(HL) 

CP ETX 

JP Z, RIPPLE 

INC HL 

CP 

JR Z,STUFNM4 

RES 5,A 

CP 'X' 

JR Z.DOXVB 

JP PCHERR 

LD A,(HL) 

INC HL 



;Save posn in fix data 
;" generating patch... 



;Pt to fix name field 



;Go if no name len 
;Set fix patch type 



;Set header length 
;Bump to write length 
;P/u name byte 

;Put in output buffer 

;Loop for namelen 

;Recover posn in fix data 
; Start of this line 

;End of fix data? 

; Comment? 

;In case lower case 
; Start of code line? 
;Go if so 
;" patch input format err 

;In a comment, loop until 
: end of line 
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29 B9 FE03 


04670 


CP 


ETX 


;End of patch code? 


29 BB CA612D 


04680 


JP 


Z.PCHERR 


;Abort if so 


29BE FE0D 


04690 


CP 


CR 


;EOL? 


29C0 20F5 


04700 


JR 


NZ,STUFNM4 


;Loop if not 


29C2 isix: 


04710 
04720 


JR 


STUFNM3 






04730 


Do the 


'X' verb patch 






04740 


HL => 


Fix data buffer 






04750 


DE => 


Program data buffer 




04760 








29C4 CDCC2C 


04770 [ 


X3XVB CALL 


CNTLIN 


;Count installed lines 


29C7 3E01 


04780 


LD 


A.l 


;Show type 1 (code block) 


29C9 12 


04790 


LD 


(DE),A 


;Put in output buffer 


29 CA 13 


04800 


INC 


DE 




29CB D5 


04810 


PUSH 


DE 


;Save ptr to length 


29CC 13 


04820 


INC 


DE 




29CD 7E 


04830 


LD 


A,(HL) 


; Should be " '" 


29CE 23 


04840 


INC 


HL 


; around address (X'nnnn') 


29 CF FE27 


04850 


CP 


27H 




29D1 C2612D 


04860 


JP 


NZ,PCHERR 


; Error if not 


29 D4 CD922A 


04870 


CALL 


PRSFIX 


;P/u hex digit pair 


29 D7 47 


04880 


LD 


B,A 


;Save hi -order address 


29 D8 CD922A 


04890 


CALL 


PRSFIX 


;P/u hex digit pair 


29 DB 12 


04900 


LD 


(DE),A 


; Stuff lo-order address 


29 DC 13 


04910 


INC 


DE 




29 DD 78 


04920 


LD 


A,B 




29 DE 12 


04930 


LD 


(DE),A 


; Stuff hi -order address 


291F 13 


04940 


INC 


DE 




29E0 7E 


04950 


LD 


A,(HL) 


; Syntax requires "=" or 


29E1 FE3D 


04960 


CP 


1 — 1 


; "'" next 


29 E 3 2806 


04970 


JR 


Z.DOXVBl 




29E5 FE27 


04980 


CP 


27H 


; Bypass optional clsng ' 


29E7 C2612D 


04990 


JP 


NZ,PCHERR 


; Error if not ' ,= 


29 EA 23 


05000 


INC 


HL 




29EB 23 


05010 I 


)0XVB1 INC 


HL 


; Bypass the '=' 


29 EC 0602 


05020 


LD 


B,2 


;Len of bytes already stuffed 


29EE 7E 


05030 I 


)0XVB2 LD 


A.(HL) 


;Get char of fix data 


29EF FE22 


05040 


CP 


1 II 1 


;ASCII string? 


29F1 281F 


05050 


JR 


Z,D0XVB5 


;Go process if so 


29F3 7E 


05060 [ 


D0XVB3 LD 


A,(HL) 


;P/u line byte 


29F4 23 


05070 


INC 


HL 




29F5 FE3B 


05080 


CP 


1 . 1 


; Logical end? 


29F7 2811 


05090 


JR 


Z,D0XVB4 


; Ignore trailing 


29F9 FE0D 


05100 


CP 


CR 


;End of line? 


29FB 282C 


05110 


JR 


Z,D0XVB6 




29FD FE20 


05120 


CP 


20H 




29 FF 28 ED 


05130 


JR 


Z,D0XVB2 


; Ignore spaces 


2A01 2B 


05140 


DEC 


HL 


;Back up, its a byte 


2A02 CD962A 


05150 


CALL 


PRSFXl 


;Get the hex digit pair 


2A05 12 


05160 


LD 


(DE),A 


; Stuff into code buffer 


2A06 13 


05170 


INC 


DE 




2A07 04 


05180 


INC 


B 


;Bump block length 


2A08 18E9 


05190 
05200 


JR 


D0XVB3 






05210 


; Bypass 


until end of line 




05220 








2A0A 7E 


05230 [ 


D0XVB4 LD 


A,(HL) 


;P/u the character 


2A^B 23 


05240 


INC 


HL 




2A0C FE0D 


05250 


CP 


CR 


;End of line? 


2A0E 20FA 


05260 


JR 


NZ,D0XVB4 




2A10 1817 


05270 


JR 


D0XVB6 
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05290 ; 


Fix ha 


s double quote str" 


ng 




05300 ; 








2Ai2 23 


05310 D0XVB5 


INC 


HL 




2A13 7E 


05320 


LD 


A,(HL) 


;Get next char 


2A14 FE03 


05330 


CP 


ETX 


;End of fix data? 


2A16 CA612D 


05340 


JP 


Z,PCHERR 


; Can't end w/o some EOL 


2A19 23 


05350 


INC 


HL 




2A1A FE0D 


05360 


CP 


CR 


;End of line? 


2A1C CA292A 


05370 


JP 


Z,D0XVB6 


;Valid end 


2A1F FE22 


05380 


CP 


1 II 1 


;Closing quote? 


2A21 28 D0 


05390 


JR 


Z,D0XVB3 


;Go for more 


2A23 2B 


05400 


DEC 


HL 




2A24 12 


05410 


LD 


(DE),A 


.Stuff the char 


2A25 13 


05420 


INC 


DE 




2A26 04 


05430 


INC 


B 


,Bump counter 


2A27 18E9 


05440 
05450 ; 


JR 


D0XVB5 


;Loop until end or " 




05460 ; 


Found 


valid end - update 


length 




05470 ; 








2A29 E3 


05480 D0XVB6 


EX 


(SP),HL 


Grab length pointer 


2A2A 70 


05490 


LD 


(HL),B 


.Stuff the length 


2A2B El 


05500 


POP 


HL 




2A2C C3A029 


05510 
05520 ; 


JP 


STUFNM3 


;Go for more lines 




05530 ; 


Got to 


the end of the fi> 


c input 




05540 ; 








2A2F E5 


05550 RIPPLE 


PUSH 


HL 




2A30 EB 


05560 


EX 


DE,HL 


.Last patch byte to HL 


2A31 110048 


05570 


LD 


DE,PGMDATA 


Pt to patch code buffer 


2A34 AF 


05580 


XOR 


A 




2A35 ED52 


05590 


SBC 


HL,DE 


.Calc length of fixup 


2A37 22C62B 


05600 


LD 


(RPRMAP9+1),HL 


.Stuff for later 


2A3A 21AD2E 


05610 


LD 


HL,INSPCH$ 


"installing patch 


2A3D CD1F2D 


05620 


CALL 


$DSPLY 




2A40 217F2D 


05630 


LD 


HL.PGMDCB 


.Move prog into fix 


2A43 11A02D 


05640 


LD 


DE,FIXDCB 


file control block 


2A46 012000 


05650 


LD 


BC,32 


, for output use 


2A49 EDB0 


05660 


LDIR 






2A4B 210032 


05670 


LD 


HL.LIBBUF 


.Set the i/o buffer 


2A4E 22A32D 


05680 


LD 


(FIXDCB+3),HL 




2A51 11A02D 


05690 


LD 


DE,FIXDCB 


Reread the last program 


2A54 


05700 


@(3RREAD 


sector 


2A54 3E45 


00033 


LD 


A, 69 




2A56 EF 


00034 


RST 


40 




2A57 C2322D 


05710 
05720 ; 


JP 


NZ,I0ERR 


;Quit on read error 




05730 ; 


Now ri 


pple the file down 


while stuffing bytes 




05740 ; 








2A5A 210048 


05750 


LD 


HL.PGMDATA 


.Beginning of "fixed" code 


2A5D 11A02D 


05760 RIPPLl 


LD 


DE,FIXDCB 


Get prog byte 


2A60 CD072D 


05770 


CALL 


$GET1 




2A63 C27A2A 


05780 


JP 


NZ,RIPPL2 




2A66 E5 


05790 


PUSH 


HL 


Save buffer ptr & byte 


2A67 F5 


05800 


PUSH 


AF 




2A68 117F2D 


05810 


LD 


DE.PGMDCB 


Use the output fcb 


2A6B 7E 


05820 


LD 


A,(HL) 


P/u byte from fixbuf 


2A6C CD112D 


05830 


CALL 


$PUT 


.Put to disk 


2A6F ED4BC62B 05840 


LD 


BC,(RPRMAP9+1) , 


Pt to patch length 


2A73 09 


05850 


ADD 


HL.BC 


Pt past patch code 


2A74 Fl 


05860 


POP 


AF 


.Recover prog byte 
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2A75 77 


05870 


LD 


(HL),A 


; & stuff after fix code 


2A76 El 


05880 


POP 


HL 


;Rcvr buf ptr 


2A77 23 


05890 


INC 


HL 


;8ump & loop 


2A78 18E3 


05900 
05910 ; 


JR 


RIPPLl 




2A7A FEIC 


05920 RIPPL2 


CP 


ICH 


;Got to end of file? 


2A7C C2452D 


05930 


JP 


NZ,FILERR 


;Quit on any other error 


2A7F 117F2D 


05940 


LD 


DE,PGMDC8 




2A82 ED4BC62B 05950 


LD 


BC,(RPRMAP9+1) 


;Get length of patch 


2A86 7E 


05960 RIPPL3 


LD 


A,(HL) 


;Put rest of program 


2A87 23 


05970 


INC 


HL 


; (ie the bytes = to 


2A88 CD112D 


05980 


CALL 


$PUT 


; length of patch code) 


2A8B 08 


05990 


DEC 


BC 


;Do until len left = 


2A8C 78 


06000 


LD 


A, 8 




2A8D 81 


06010 


OR 


C 




2A8E 20F6 


06020 


JR 


NZ,RIPPL3 




2A90 El 


06030 


POP 


HL 




2A91 C9 


06040 
06050 ; 


RET 








06060 ; 


Routine 


to read & convert fix code values 




06070 ; 








2A92 AF 


06080 PRSFIX 


XOR 


A 


; Entry to clear 


2A93 32A82A 


06090 


LD 


(STRFLG+D^A 


; STRING check 


2A96 7E 


06100 PRSFXl 


LD 


A,(HL) 


;P/u patch char 


2A97 FE03 


06110 


CP 


ETX 


;End of text? 


2A99 CA612D 


06120 


JP 


Z.PCHERR 


;Error if so 


2A9C FE22 


06130 


CP 


1 II 1 


; String? 


2A9E 200A 


06140 


JR 


NZ, STRFLG 




2AA0 32A82A 


06150 


LD 


(STRFLG+1),A 


; Stuff string indicator 


2AA3 23 


06160 


INC 


HL 




2AA4 7E 


06170 


LD 


A,(HL) 


;P/u char 


2AA5 FE03 


06180 


CP 


ETX 


;End again? 


2AA7 CA612D 


06190 


JP 


Z,PCHERR 




2AAA 3E00 


06200 STRFLG 


LD 


A,0 


;Test string flag 


2AAC 87 


06210 


OR 


A 




2AAD 7E 


06220 


LD 


A,(HL) 


;P/u char again 


2AAE 23 


06230 


INC 


HL 


;Bump pointer 


2AAF C0 


06240 


RET 


NZ 


;Ret if "" was prev char 


2AB0 CDD72A 


06250 


CALL 


CVTBIN 


;Convert hex digit to bin 


2A83 4F 


06260 


LD 


C,A 


;Save value 


2A84 7E 


06270 


LD 


A,(HL) 


;P/u next digit 


2A85 23 


06280 


INC 


HL 




2AB6 FE03 


06290 


CP 


ETX 


;Backup pointer and ret 


2AB8 CA612D 


06300 


JP 


Z,PCHERR 


; if next char is not hex 


2 ABB FE30 


06310 


CP 


'0' 


; else pack it into regC 


2ABD 3815 


06320 


JR 


C,PRSFX3 


; & place in reg A 


2ABF FE3A 


06330 


CP 


'9'+l 




2AC1 3804 


06340 


JR 


C,PRSFX2 




2AC3 FE41 


06350 


CP 


'A' 




2AC5 380D 


06360 


JR 


C,PRSFX3 




2 AC 7 C801 


06370 PRSFX2 


RLC 


C 


;Assume digit, move 


2 AC 9 CB01 


06380 


RLC 


C 


; over a nybble 


2ACB C801 


06390 


RLC 


C 




2ACD C801 


06400 


RLC 


C 




2ACF CDD72A 


06410 


CALL 


CVTBIN 


;Get hex digit 


2AD2 81 


06420 


OR 


C 


;Merge hi -order nybble 


2AD3 C9 


06430 


RET 






2AD4 79 


06440 PRSFX3 


LD 


A,C 


;Non-hex char, 


2AD5 2B 


06450 


DEC 


HL 


; rcvr & exit 


2AD6 C9 


06460 
06470 ; 


RET 
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06480 ; 


Routine 


to convert hex 


digit to binary 




06490 ; 








2AD7 D630 


06500 CVTBIN 


SUB 


30 H 


;lst adjustment to binary 


2AD9 DA5D2D 


06510 


JP 


CNONHEX 


;Quit if too low 


2 ADC FE0A 


06520 


CP 


10 


;0-9 range? 


2ADE D8 


06530 


RET 


C 


;Back if so 


2ADF CBAF 


06540 


RES 


5,A 


;In case lower case 


2AE1 D607 


06550 


SUB 


7 




2AE3 FE10 


06560 


CP 


16 


;Less than F+1? 


2AE5 D8 


06570 


RET 


C 


;0k if so 


2AE6 C35D2D 


06580 
06590 1 


JP 


NONHEX 


; else abort 




06600 ; 


Routine 


to find ISAM member pointer in map table 




06610 ; 








2AE9 117F2D 


06620 FISAM 


LD 


DE,PGMDCB 




2AEC CD072D 


06630 FISAMl 


CALL 


$GET1 


;Get a type byte 


2AEF 2808 


06640 


JR 


Z^FISAMIA 


;Go on no error 


2AF1 FEIC 


06650 


CP 


ICH 


;EOF? 


2AF3 CA412D 


06660 


JP 


Z,LIBERR 


; Invalid library format 


2AF6 C3322D 


06670 


JP 


lOERR 


; else I/O error 


2AF9 FE08 


06680 FISAMIA CP 


8 


jStart of map table? 


2AFB 2820 


06690 


JR 


Z,FISAM3 




2AFD FE0A 


06700 


CP 


0AH 


;End of map table? 


2AFF CA3D2D 


06710 


JP 


Z,NOVRLY 


;Should not be end 


2B02 C5 


06720 


PUSH 


BC 




2B03 4F 


06730 


LD 


C,A 


;Save TYPE 


2B04 CD0B2D 


06740 


CALL 


$GET 


;Get block length 


2B07 47 


06750 


LD 


B,A 


;Set counter & read 


2B08 0D 


06760 


DEC 


C 




2B09 2008 


06770 


JR 


NZ, FISAMIB 


;Go if not load record 


2B0B CD0B2D 


06780 


CALL 


$GET 


; else read 1st two 


2B0E 05 


06790 


DEC 


B 


; bytes & then fall thru 


2B0F CD0B2D 


06800 


CALL 


$GET 


; in case len=01 or 02 


2B12 05 


06810 


DEC 


B 




2B13 78 


06820 FISAMIB 


1 LD 


A,B 




2B14 CI 


06830 


POP 


BC 




2B15 47 


06840 


LD 


B,A 




2B16 CD0B2D 


06850 FISAM2 


CALL 


$GET 


;Through the block 


2B19 10FB 


06860 


DJNZ 


FISAM2 




2B1B 18CF 


06870 
06880 ; 


JR 


FISAMl 


;Go back for more 




06890 ; 


Found a 


I map field 






06900 ; 








2B1D CD0B2D 


06910 FISAM3 


CALL 


$GET 


;Get field length 


2B20 47 


06920 


LD 


B,A 


;Set counter 


2B21 CD0B2D 


06930 


CALL 


$GET 


;Get overlay # 


2B24 05 


06940 


DEC 


B 


;Reduce count 


2B25 B9 


06950 


CP 


C 


;Is this the one? 


2B26 20EE 


06960 


JR 


NZ,FISAM2 


;Loop to next field 


2B28 CD0B2D 


06970 


CALL 


$GET 


;Get lo-order traadr 


2B2B CD0B2D 


06980 


CALL 


$GET 


;Get hi -order transfer 


2B2E CD0B2D 


06990 


CALL 


$GET 


;Get lo-order NRN 


2B31 4F 


07000 


LD 


C,A 


;Save in C 


2B32 CD0B2D 


07010 


CALL 


$GET 


;Get hi -order NRN 


2B35 47 


07020 


LD 


B,A 


;Save in B 


2B36 CD0B2D 


07030 


CALL 


$GET 


;Get byte offset 


2B39 C9 


07040 
07050 ; 


RET 








07060 ; 


Routine 


; to repair the 


library map 




07070 ; 








2B3A 117F2D 


07080 RPRMAP 


LD 


DE,PGMDCB 


;Rewind the file 



Page 283 



The Source 


UTILITY Fi 


les 


PATCH - LS-DOS 


6.2 Page 00015 


2B3D 010000 


07090 


LD 


BC.0 




2B40 CDF 52 C 


07100 


CALL 


$POSN 




2B43 210048 


07110 


LD 


HL,PGMDATA 


;Pt to buffer area 


2B46 CD0B2D 


07120 RPRMAPl 


CALL 


$GET 


;Read the map into buf 


2B49 FE0A 


07130 


CP 


0AH 


;End of table? 


2B4B 2821 


07140 


JR 


Z,RPRMAP3 




2B4D 77 


07150 


LD 


(HL),A 


;Save type code 


2B4E CD0B2D 


07160 


CALL 


$GET 


;Get length 


2B51 47 


07170 


LD 


B,A 


;Set counter 


2B52 7E 


07180 


LD 


A,(HL) 


;Reget the TYPE 


2B53 23 


07190 


INC 


HL 


;Bump where to stuf Ten 


2B54 3D 


07200 


DEC 


A 


;Is this a load record? 


2B55 70 


07210 


LD 


(HL),B 


;Put length in too 


2B56 23 


07220 


INC 


HL 




2B57 200C 


07230 


JR 


NZ,RPRMAP2 


;Go if other type 


2B59 CD0B2D 


07240 


CALL 


$6ET 


; else get two extra 


2B5C 05 


07250 


DEC 


B 


; & adjust length in 


2B5D 77 


07260 


LD 


(HL),A 


; case len = 01 or 02 


2B5E 23 


07270 


INC 


HL 




2B5F CD0B2D 


07280 


CALL 


$GET 




2B62 05 


07290 


DEC 


B 




2B63 23 


07300 


INC 


HL 




2B64 77 


07310 


LD 


(HL),A 




2B65 CD0B2D 


07320 RPRMAP2 CALL 


$GET 


;Save member # & rest of 


2B68 77 


07330 


LD 


(HL),A 


; data entries 


2B69 23 


07340 


INC 


HL 




2B6A 10F9 


07350 


DJNZ 


RPRMAP2 




2B6C 18D8 


07360 
07370 ; 


JR 


RPRMAPl 






07380 ; 


Found 


end of table 






07390 ; 








2B6E 77 


07400 RPRMAP3 LD 


(HL),A 


;Show map end 


2B6F 210048 


07410 


LD 


HL.PGMDATA 


;Pt to beginning 


2B72 7E 


07420 RPRMAP4 LD 


A,(HL) 


;P/u type code 


2B73 23 


07430 


INC 


HL 




2B74 46 


07440 


LD 


B,(HL) 


;P/u length 


2B75 23 


07450 


INC 


HL 




2B76 FE08 


07460 


CP 


8 


;Map is type 8 


2B78 2811 


07470 


JR 


Z,RPRMAP6 




2B7A FE0A 


07480 


CP 


0AH 


;End of map? 


2B7C CA3D2D 


07490 


JP 


Z,NOVRLY 


; Should not have gotten 


2B7F 3D 


07500 


DEC 


A 




2B80 2004 


07510 


JR 


NZ.RPRMAP5 




2B82 23 


07520 


INC 


HL 


;You should know what 


2B83 05 


07530 


DEC 


B 


; this is for by now 


2B84 23 


07540 


INC 


HL 




2B85 05 


07550 


DEC 


B 




2B86 23 


07560 RPRMAP5 


INC 


HL 


; Bypass this field 


2B87 10FD 


07570 


DJNZ 


RPRMAP5 




2B89 18E7 


07580 
07590 ; 


JR 


RPRMAP4 






07600 ; 


Found 


a type 8, check 


if ISAM # matches 




07610 ; 








2B8B 7E 


07620 RPRMAP6 LD 


A,(HL) 


;P/u member # 


2B8C 23 


07630 


INC 


HL 




2B8D 05 


07640 


DEC 


B 


;Count down 


2B8E FE00 


07650 OVRLY 


CP 





; Compare to patched one 


2B90 20F4 


07660 


JR 


NZ,RPRMAP5 


;Keep reading until found 


2B92 23 


07670 


INC 


HL 


; Bypass transfer address 


2B93 23 


07680 


INC 


HL 




2B94 5E 


07690 


LD 


E,(HL) 


;P/u the position lo 
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2B95 23 


07700 


INC 


HL 




2B96 56 


07710 


LD 


D.(HL) 


; & the pos hi 


2B97 23 


07720 


INC 


HL 




2B98 4E 


07730 


LD 


C,(HL) 


; & the byte offset 


2B99 78 


07740 


LD 


A,B 


;Calc ptr to next field 


2B9A D604 


07750 


SUB 


4 




2B9C 47 


07760 


LD 


B,A 




2B9D 23 


07770 


INC 


HL 




2B9E 10FD 


07780 


DJNZ 


$-1 


;Loop to next field 


2BA0 7E 


07790 RPRMAP7 LD 


A,(HL) 


;End of table? 


2BA1 FE0A 


07800 


CP 


0AH 


;If end, write the 


2BA3 2836 


07810 


JR 


Z, RWRMAP 


; map back to disk 


2BA5 23 


07820 


INC 


HL 


;Pt to field length 


2BA6 46 


07830 


LD 


B,(HL) 




2BA7 23 


07840 


INC 


HL 


;Pt to member # 


2BA8 23 


07850 


INC 


HL 


; Transfer Low 


2BA9 23 


07860 


INC 


HL 


;Transfer High 


2 BAA 23 


07870 


INC 


HL 


;NRN Low 


2 BAB 78 


07880 


LD 


A,B 


;Adjust count for 


2BAC D604 


07890 


SUB 


4 


; 4 INC HLs 


2BAE 47 


07900 


LD 


B,A 




2BAF 7E 


07910 


LD 


A,(HL) 


;If position is the same 


2BB0 23 


07920 


INC 


HL 


; as that of patched 


2BB1 BB 


07930 


CP 


E 


; one, its posn has not 


2BB2 200F 


07940 


JR 


NZ,RPRMAP8 


; changed, so don't 


2BB4 7E 


07950 


LD 


A,(HL) 


; change it 


2BB5 23 


07960 


INC 


HL 




2BB6 05 


07970 


DEC 


B 




2BB7 BA 


07980 


CP 


D 


;Cp the hi order 


2BB8 200B 


07990 


JR 


NZ.RPRMAP9 




2BBA 7E 


0800.0 


LD 


A,(HL) 




2BBB B9 


08010 


CP 


C 


; and the offset 


2BBC 2007 


08020 


JR 


NZ,RPRMAP9 




2BBE 23 


08030 LPFLD 


INC 


HL 




2BBF 10FD 


08040 


DJNZ 


$-1 


;Loop to end of field 


2BC1 18DD 


08050 
08060 ; 


JR 


RPRMAP7 






08070 ; 


Add the 


patch length to 


each position vector 




08080 ; 








2BC3 23 


08090 RPRMAPfi 


INC 


HL 


;Bump to offset byte 


2BC4 05 


08100 


DEC 


B 




2BC5 110000 


08110 RPRMAP9 LD 


DE,0 


;P/u patch length 


2BC8 7E 


08120 


LD 


A,(HL) 


;P/u offset & add 


2BC9 83 


08130 


ADD 


A.E 


;Lo-order patch length 


2BCA 11 


08140 


LD 


(HL),A 




2BCB 2B 


08150 


DEC 


HL 


;Pt to NRN 


2BCC 2B 


08160 


DEC 


HL 




2BCD 7E 


08170 


LD 


A.(HL) 


;P/u NRN lo-order 


2BCE 8A 


08180 


ADC 


A,D 


;Add to it 


2BCF 77 


08190 


LD 


(HL),A 




2BD0 23 


08200 


INC 


HL 


;Pt to pos hi order 


2BD1 7E 


08210 


LD 


A,(HL) 


;P/u the hi 


2BD2 CE00 


08220 


ADC 


A,0 


;Add in any carry 


2BD4 77 


08230 


LO 


(HL),A 




2BD5 23 


08240 


INC 


HL 


;Pt to next map field 


2BD6 110000 


08250 


LD 


DE,0 




2BD9 18E3 


08260 
08270 ; 


JR 


LPFLD 


;Loop 




08280 ; 


Routine 


to re-write the 


library map table 




08290 .; 








2BDB 117F2D 


08300 RWRMAP 


LD 


DE,PGMDCB 


: Rewind the program file 
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2BDE 010000 
2BE1 CDF 52 C 
2BE4 210048 
2BE7 7E 
2BE8 FE0A 
2BEA C8 
2BEB 4F 
2BEC 23 
2BED CD1120 
2BF0 7E 
2BF1 23 
2BF2 47 
2BF3 CD112D 
2BF6 m 
2BF7 200C 
2BF9 7E 
2BFA 23 
2BFB CD112D 
2BFE 05 
2BFF 7E 
2C00 23 
2C01 CD112D 
2C04 05 
2C05 7E 
2C06 23 
2C07 CD 112 D 
2C0A 10F9 
2C0C 18D9 



2C0E 320627 
2C11 C3F726 

2C14 FE2E 
2C16 2825 
2C18 FE03 
2C1A 28F2 
2C1C CBAF 
2C1E FE44 
2C20 281E 
2C22 FE52 
2C24 CA3A28 
2C27 FE4F 
2C29 CAD128 
2C2C FE46 
2C2E 280D 
2C30 FE59 
2C32 2809 
2C34 FE4C 
2C36 2805 
2C38 FE58 
2C3A C2612D 
2C3D C3C527 



2C40 3EFF 
2C41 



08310 

08320 

08330 

08340 RWRMAPl 

08350 

08360 

08370 

08380 

08390 

08400 

08410 

08420 

08430 

08440 

08450 

08460 

08470 

08480 



08500 

08510 

08520 

08530 

08540 RWRMAP2 

08550 

08560 

08570 

08580 

08590 ; 

08600 ; 

08610 ; 

08620 ; 

08630 ; 

08640 SPASS2 

08650 

08660 ; 

08670 PASSl 

08680 

08690 

08700 

08710 

08720 

08730 

08740 

08750 

08760 

08770 

08780 

08790 



08810 
08820 
08830 
08840 
08850 
08860 OK 
08870 ; 
08880 ; 
08890 ; 
08900 FCHK 
08910 OPARM 



LD 

CALL 

LD 

LD 

CP 

RET 

LD 

INC 

CALL 

LD 

INC 

LD 

CALL 

X.C 

JR 

LD 

INC 

CALL 

DEC 

LD 

INC 

CALL 

DEC 

LD 

INC 

CALL 

DJNZ 

JR 



BC.0 

$POSN 

HL,PGMDATA 

A,(HL) 

0AH 

Z 

C,A 

HL 

$PUT 

A,(HL) 

HL 

B,A 

$PUT 

C 

NZ,RWRMAP2 

A,(HL) 

HL 

$PUT 

B 

A.(HL) 

HL 

$PUT 

B 

A,(HL) 

HL 

$PUT 

RWRMAP2 

RWRMAPl 



;Pt to mapbuf start 
;Ret when we get to 
; the map end type 

jSave the type 

;Put the type 
;P/u length 

;Save as counter 
;Put out the length 
;Again, by now.. , 



;Put block of code 



;Loop for more 



This routine enters at PASSl. It does the first pass 
thru the fix data, and checks for parms as well 
as checking the Drr,bb and Frr,bb matches. 



LD 
JP 

CP 

JR 

CP 

JR 

RES 

CP 

JR 

CP 

JP 

CP 

JP 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JP 

JP 



(PASS2),A 
DOFIX 



Z.OK 

ETX 

Z,SPASS2 

5,A 

'D' 

Z.FCHK 

'R' 

Z, REMOVE 

'0' 

Z,OVERB 

'F' 

Z,OK 

'Y' 

Z,OK 

'L' 

Z,OK 

'X' 

NZ.PCHERR 

COMMENT 



;Flag pass 2 
; Start over 

; Comment line? 

;End of fix data? 
;End of passl 
;Make Upper case 
;D line patch? 

;Remove parm? 

;Special parm? 

;Find line data? 

;Yank parm? 

; Library ISAM number? 

;X line patch? 

;If not one of these, abort 



Check the Drr,bb (if Remove) or Frr,bb line 



LD 
EQU 



A,0FFH 
$-1 



;If parm = OFF, then 
: don't do the check 
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2C42 B7 
2C43 CAC527 
2C46 3E00 
2C47 
2C48 B7 
2C49 C2862C 
2C4C 22772D 
2C4F CDA02C 
2C52 CD582C 
2C55 C3FA26 



2C58 226B2D 
2C5B E5 
2C5C ED5B772D 
2C60 0603 
2C62 23 
2C63 13 
2C64 lA 
2C65 BE 
2C66 C2C52C 
2C69 10F7 

2C6B 0603 
2C6D 3E2C 
2C6F BE 
2C70 2802 
2C72 0605 
2C74 23 
2C75 13 
2C76 lA 
2C77 BE 
2C78 C2C62C 
2C7B 10F7 

2C7D E3 
2C7E CDE327 
2C81 El 
2C82 CD0A28 
2C85 C9 



2C86 
2C87 
2C8A 
2C8D 
2C8E 
2C8F 
2C92 
2C93 
2C95 
2C98 
2C9A 
2C9D 



E5 

CDA02C 

22772D 

El 

E5 

CD582C 

El 

362E 

2A772D 

3644 

CDA02C 

C3FA26 



08920 

08930 

08940 

08950 RPARM 

08960 

08970 

08980 

08990 

09000 

09010 

09020 

09030 

09040 

09050 

09060 

09070 

09080 DOCHK 

09090 

09100 

09110 

09120 CP3 

09130 

09140 

09150 

09160 

09170 

09180 ; 

09190 

09200 

09210 

09220 

09230 

09240 CP5 

09250 

09260 

09270 

09280 

09290 

09300 ; 

09310 

09320 

09330 

09340 

09350 

09360 

09370 

09380 

09390 YANKD 

09400 

09410 

09420 

09430 

09440 

09450 

09460 

09470 

09480 

09490 

09500 

09510 ; 

09520 ; 



OR 

JP 

LD 

EQU 

OR 

JP 

LD 

CALL 

CALL 

JP 



A 

Z, COMMENT 

A,$-$ 

$-1 

A 

NZ, YANKD 

(DL),HL 

SKPLN 

DOCHK 

DOFIXl 



;Skip check if 0=OFF 
;Remove parm used? 



; Reverse D & F lines if so 

;Save D pointer 

;Move to F line 

;Cp F line bytes w/file 



Checks Drr,bb and Frr,bb addresses for a match 
Checks Frr,bb against program file if patching, or 
Drr,bb if removing 



LD (SETMSG+1),HL 

PUSH HL 

LD DE,(DL) 

LD B,3 

INC HL 

INC DE 

LD A,(DE) 

CP (HL) 

JP NZ,FERROR 

DJNZ CP3 

LD B,3 

LD A.',' 

CP (HL) 

JR Z,CP5 

LD B,5 

INC HL 

INC DE 

LD A,(DE) 

CP (HL) 

JP NZ.FERROR 

DJNZ CP5 

EX (SP),HL 

CALL DPOSN 

POP HL 

CALL DLINE 
RET 



;Set line error msg 
;Save posn 
;Get D or F line 
;Init check count 



j'FIND' error 
;Check first 3 bytes 

;Assume was 2 digit rec # 
; Comma? 

;Yes, continue 

;Adjust, assume 4 dig rec # 

; Check rest of ' rr, bb' string 



;'FIND' error 



; Pointer to '=' in fix line 
;Posn file 

;Check line for match 



Remove used. Check Drr,bb lines instead of Frr,bb lines 



PUSH 

CALL 

LD 

POP 

PUSH 

CALL 

POP 

LD 

LD 

LD 

CALL 

JP 



HL 

SKPLN 

(DL),HL 

HL 

HL 

DOCHK 

HL 

(HL),'.' 

HL,(DL) 

(HL),'D' 

SKPLN 

DOFIXl 



Save D line pointer 

Move to F line 

Save pointer 

=>D line 

Save D line again 

Test D line 

=>'D' 

Make comment for pass2 

;Make 'F' line into D line 
;=>next line 



Skip past the current line, posn to start of next 
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2CA0 CDA92C 


09540 SKPLN 


CALL 


SKPLNl ; 


Move past current line 


2CA3 7E 


09550 


LD 


A,(HL) ; 


Check 1st char next line 


2CA4 FE2E 


09560 


CP 


' • ' ; 


Is it comment? 


2CA6 28F8 


09570 


JR' 


Z, SKPLN ; 


Then skip it too 


2CA8 C9 


09580 
09590 ; 


RET 






2CA9 7E 


09600 SKPLNl 


LD 


A,(HL) ; 


P/u line char 


2CAA 23 


09610 


INC 


HL 




2CAB FE0D 


09620 


CP 


CR ; 


Physical EOL? 


2CAD C8 


09630 


RET 


Z 




2CAE FE3B 


09640 


CP 


I.I 


Logical EOL? 


2CB0 C8 


09650 


RET 


Z 




2CB1 18F6 


09660 
09670 ; 


JR 


SKPLNl ; 


Loop until EOL 




09680 ; 


Get the 


next char, convert to UC 




09690 ; 








2CB3 7E 


09700 GETNXT 


LD 


A,(HL) ; 


P/u the char 


2CB4 23 


09710 


INC 


HL ; 


Bump the buffer ptr 


2CB5 CBAF 


09720 


RES 


5, A ; 


Convert to upper 


2CB7 C9 


09730 
09740 ; 


RET 








09750 ; 


Either 


write a char or check for a match 




09760 ; 








2CB8 4F 


09770 PUTORCHK 


LD C,A ; 


Char in question 


2CB9 3A0627 


09780 


LD 


A,(PASS2) 


Write pass? 


2CBC B7 


09790 


OR 


A 




2CBD 79 


09800 


LD 


A,C 


Char back in A 


2CBE C2112D 


09810 


JP 


NZ,$PUT 


Writing patch.. 


2CC1 CD0B2D 


09820 


CALL 


$GET 


Get next char fm file 


2CC4 B9 


09830 


CP 


C 


,Match w/patch? 


2CC5 C8 


09840 


RET 


Z 


OK if match 


2CC6 211130 


09850 FERROR 


LD 


HL.LOCERR$ 


I nit "Find mismatch 


2CC9 C3642D 


09860 
09870 ; 


JP 


ERRDSP 


,Dsply and quit 




09880 ; 


Count patch lines 






09890 ; 








2CCC E5 


09900 CNTLIN 


PUSH 


HL 




2CCD 2A742D 


09910 


LD 


HL,(LINCNT) 


Get current count, 


2CD0 23 


09920 


INC 


HL 


+= 1 


2CD1 22742D 


09930 


LD 


(LINCNT),HL 


and put it back 


2CD4 El 


09940 


POP 


HL 




2CD5 C9 


09950 
09960 ; 


RET 








09970 ; 


After an error, show file not closed if needed 




09980 ; 








2CD6 3A762D 


09990 FLOPN 


LD 


A,(WRFLAG) 


;Did we modify file? 


2CD9 B7 


10000 


OR 


A 




2CDA 2007 


10010 


JR 


NZ,MESS 


;Yes, don't close it 


2 CDC 


10020 


(a^CLOSE 




;No changes 


2CDC 3E3C 


00035 


LD 


A, 60 




2CDE EF 


00036 


RST 


40 




2CDF C2322D 


10030 


JP 


NZ,IOERR 




2CE2 C9 


10040 


RET 






2CE3 212430 


10050 MESS 


LD 


HL,WARN1$ 


.File is modified but 


2CE6 CD1F2D 


10060 


CALL 


$DSPLY 


; PATCH did not complete 


2CE9 214B30 


10070 


LD 


HL,WARN2$ 


; "oops... 


2CEC C31F2D 


10080 
10090 ; 


JP 


$DSPLY 


;Then return to caller 


2CEF 


10100 $OPEN 


mOPEH 






2CEF 3E3B 


00037 


LD 


A, 59 
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2CF1 EF 
2CF2 203 E 
2CF4 C9 
2CF5 

2CF5 3E42 
2CF7 EF 
2CF8 2038 
2CFA C9 
2CFB 

2CFB 3E3D 
2CFD EF 
2CFE 2032 
2D00 C9 
2D01 

2D01 3E46 
2D03 EF 
2D04 202 C 
2D06 C9 
2D07 

2D07 3E03 
2D09 EF 
2D0A C9 
2D0B 

2D0B 3E03 
2D0D EF 
2D0E 2022 
2D10 C9 
2D11 C5 
2D12 4F 
2D13 3EFF 
2D15 32762D 
2D18 

2D18 3E04 
2D1A EF 
2D1B CI 
2D1C 2014 
2D1E C9 
2D1F 



2D1F 3E0A 
2D21 EF 
2D22 200E 
2D24 C9 
2D25 

2D25 3E43 
2D27 EF 
2D28 2008 
2D2A C9 
2D2B C5 
2D2C 4F 
2D2D 

2D2D 3E02 
2D2F EF 
2D30 CI 
2D31 C8 



2D32 6F 



00038 
10110 
10120 

10130 $POSN 
00039 



10140 

10150 

10160 $BKSP 

00041 

00042 

10170 

10180 

10190 $RWRIT 

00043 

00044 

10200 

10210 

10220 $GET1 

00045 

00046 

10230 

10240 $GET 

00047 



10250 

10260 

10270 $PUT 

10280 

10290 

10300 

10310 

00049 

00050 

10320 

10330 

10340 

10350 $DSPLY 

00051 

00052 

00053 

00054 

00055 

10360 

10370 

10380 $READ 

00056 

00057 

10390 

10400 

10410 $DSP 

10420 

10430 

00058 

00059 

10440 

10450 

10460 ; 

10470 ; 

10480 ; 

10490 lOERR 



RST 

JR 

RET 

(3(3P0SN 

LD 

RST 

JR 

RET 

@@BKSP 

LD 

RST 

JR 

RET 

@@RWRIT 

LD 

RST 

JR 

RET 

@@GET 

LD 

RST 

RET 

@0GET 

LD 

RST 

JR 

RET 

PUSH 

LD 

LD 

LD 

@@PUT 

LD 

RST 

POP 

JR 

RET 

0@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

JR 

RET 

@@READ 

LD 

RST 

JR 

RET 

PUSH 

LD 

(3(9DSP 

LD 

RST 

POP 

RET 



40 
NZ,IOERR 



A, 66 

40 

NZJOERR 



A, 61 

40 

NZ,IOERR 



A, 70 

40 

NZ,IOERR 



A,3 
40 



A, 3 

40 

NZ,IOERR 

BC 
C A 

AJFFH 
(WRFLAG),A 

A, 4 

40 

BC 

NZ,IOERR 



00H,1 
HL, 

A, 10 

40 

NZ.IOERR 



A,67 

40 

NZ,IOERR 

BC 
C,A 

A,2 
40 
BC 
Z 



;Use this one if prog might get EOF 



;This one if EOF is also error 



;Flag.. 

;That file is modified 



Error handling 
LD L,A 



;If OK else fall error 



;HL also gets error # 
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2D33 2600 


10500 




LD 


HJ 




2D35 F6C0 


10510 




OR 


0C0H 


jAbbrev, return 


2D37 4F 


10520 




LD 


C,A 




2D38 


10530 




(a@ERROR 




; Display the error 


2D38 3E1A 


00060 




LD 


A, 26 




2D3A EF 


00061 




RST 


40 




2D3B 181D 


10540 
10550 




JR 


QUITl 






10560 




Interna 


1 error routine 






10570 










2D3D 211B2F 


10580 


NOVRLY 


LD 


HL,NOVRLY$ 


;"Library not found 


2D40 DD 


10590 




DB 


0DDH 




2D41 21352F 


10600 


LIBERR 


LD 


HL,LIBERR$ 


;" Invalid library 


2D44 DD 


10610 




DB 


0DDH 




2D45 21652F 


10620 FILERR 


LD 


HL,FILERR$ 


;"Not load file format 


2D48 DD 


10630 




DB 


0DDH 




2D49 215F2E 


10640 PRMERR 


LD 


HL,PRMERR$ 


;"Parm error 


2D4C DD 


10650 




DB 


0DDH 




2D4D 21CE2F 


10660 TOOBIG 


LD 


HLJOOBIG$ 


;"Fix file too big 


2D50 DD 


10670 




DB 


0DDH 




2D51 21442E 


10680 PGMREQ 


LD 


HL,PGMREQ$ 


;" Patch what file? 


2D54 


10690 ERREXIT 


@@LOGOT 




;Display the error 




00062 




IFEQ 


00Ha 






00063 




LD 


HL, 






00064 




ENDIF 






2D54 3E0C 


00065 




LD 


A, 12 




2D56 EF 


00066 




RST 


40 




2D57 21FFFF 


10700 




LD 


HL,-1 


;Set abort code 


2D5A C3AE27 


10710 QUITl 


JP 


$QUIT 






10720 


s 








2D5D 217C2F 


10730 


NONHEX 


LD 


HL,NONHEX$ 


;"Non hex digit 


2D60 DD 


10740 




DB 


0DDH 




2D61 214C2F 


10750 


PCHERR 


LD 


HL,PCHERR$ 


;"Patch format error 


2D64 E5 


10760 


ERRDSP 


PUSH 


HL 




2D65 3E13D 


10770 




LD 


A,CR 


;Move the cursor down 


2D67 CD2B2D 


10780 




CALL 


$DSP 




2D6A 210000 


10790 


SETMSG 


LD 


HLJ 




2D6D 


10800 




(aiSLOGOT 








00067 




IFEQ 


mna 






00068 




LD 


HL, 






00069 




ENDIF 






2D6D 3E0C 


00070 




LD 


l\,12 




2D6F EF 


00071 




RST 


40 




2D70 El 


10810 




POP 


HL 




2D71 18E1 


10820 
10830 


s 


JR 


ERREXIT 




2D73 00 


10840 YNKFLG 


DB 





;Was function YANK? 


2D74 0000 


10850 LINCNT 


DW 





;Count lines installed 


2D76 00 


10860 WRFLAG 


DB 





;Did pgm write to file? 


2D77 0000 


10870 


DL 


DW 





;Save pointer to line 


2D79 43 


10880 CMDEXT 


DB 


'CMD' 




4D 44 












2D7C 46 


10890 FIXEXT 


DB 


'FIX' 




49 58 












2D7F 00 


10900 


PGMDCB 


DB 







0020 


10910 




DS 


32 




0020 


10920 FIXDCB 


DS 


32 




2DC0 50 


10930 


HELLO$ 


DB 


'PATCH' 




41 54 43 48 










2DC5 


10940 


*GET 


CLIENT; 


:3 





10950 ;CLIENTS/ASM - File to establish sign-on headers 
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2DC5 20 




10970 DB 


2D 20 


36 


2E 32 2E 30 20 


2D 20 43 


6F 70 79 72 69 


67 68 


74 


20 31 39 38 32 


2F 38 


33 


2F 38 34 20 62 


79 20 4C 6F 67 69 63 61 


6C 






2DEF 20 




10980 DB 


53 79 


73 


74 65 6D 73 2C 


20 49 


6E 


63 2E 20 20 20 


20 20 


20 0A 






10990 ; 


2E04 41 




11000 DB 


6C 6C 


20 


52 69 67 68 74 


73 20 


52 


65 73 65 72 76 


65 64 


2E 


20 4C 69 63 65 


6E 73 


65 


64 20 31 39 38 


32 2F 


38 


33 2F 38 34 


2E2C 20 




11010 DB 


74 6F 20 78 78 78 78 78 


78 78 


78 


78 78 78 78 78 


78 78 


78 


78 78 0A 0D 


2E44 50 




11020 PGmEQ$ DB 


52 4F 


47 


52 41 4D 20 66 


69 6C 


65 


20 6E 61 6D 65 


20 72 


65 


71 75 69 72 65 


64 0D 






2E5F 50 




11030 PRNERR$ DB 


61 72 


61 


6D 65 74 65 72 


20 65 


72 


72 6F 72 0D 


2E6F ID 




11040 POSLD$ DB 


50 6F 


73 


69 74 69 6F 6E 


69 6E 


67 


20 6C 6F 61 64 


20 66 


69 


6C 65 IE 20 03 


2E88 ID 




11050 RDGINP$ DB 


52 65 


61 


64 69 6E 67 20 


69 6E 


70 75 74 IE 20 03 


2E99 ID 




11060 GENPCH$ DB 


47 65 


6E 


65 72 61 74 69 


6E 67 


20 


70 61 74 63 68 


IE 20 03 




2EAD ID 




11070 INSPCH$ DB 


49 6E 


73 


74 61 6C 6C 69 


6E 67 


20 


70 61 74 63 68 


IE 20 


03 




2EC1 ID 




11080 BLDMAP$ DB 


52 65 


2D 


62 75 69 6C 64 


69 6E 


67 


20 6C 69 62 72 


61 72 


79 


20 6D 61 70 IE 


20 03 






2EDC ID 




11090 YNKPCH$ DB 


59 61 


6E 


6B 69 6E 67 20 


70 61 


74 


63 68 20 66 72 


6F 6D 20 


66 69 6C 65 IE 


20 03 






2EF7 0A 




11100 NOYANK$ DB 


43 61 


6E 


27 74 20 79 61 


6E 6B 


2C 20 


2F04 70 




11110 DB 


61 74 


63 


68 20 6E 6F 74 



PATCH - LS-DOS 6,2 
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' - 6.2.19 - Copyright 1982/83/84 by Logical 



Systems, Inc. ',10 



'All Rights Reserved, Licensed 1982/83/84 



' to xxxxxxxxxxxxxxxxxx' 810,13 



'PROGRAM file name required',CR 



'Parameter error '„CR 



29, 'Positioning load file' ,30,32,3 



29, 'Reading input' ,30,32,3 



29, 'Generating patch' ,30,32,3 



29, 'Installing patch' ,30,32,3 



29, 'Re-building library map ',30, 32, 3 



29, 'Yanking patch from fi le' ,30,32,3 



LF, 'Can' ' t yank. 



'patch not in load fi1e',CR 
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20 69 6E 20 6C 6F 61 64 




20 66 69 6C 65 0D 




2F1B 4C 11120 NOVRLY$ DB 


'Library overlay not found ',CR 


69 62 72 61 72 79 20 6F 




76 65 72 6C 61 79 20 6E 




6F 74 20 66 6F 75 6E 64 




0D 




2F35 49 11130 LIBERR$ DB 


'Invalid library format ',CR 


6E 76 61 6C 69 64 20 6C 




69 62 72 61 72 79 20 66 




6F 72 6D 61 74 0D 




2F4C 50 11140 PCHERR$ DB 


'Patch input format error ',CR 


61 74 63 68 20 69 6E 70 




75 74 20 66 6F 72 6D 61 




74 20 65 72 72 6F 72 0D 




2F65 4C 11150 FILERR$ DB 


'Load file format error ',CR 


6F 61 64 20 66 69 6C 65 




20 66 6F 72 6D 61 74 20 




65 72 72 6F 72 0D 




2F7C 4E 11160 NONHEX$ DB 


'Non-hex digit encountered' ,CR 


6F 6E 2D 68 65 78 20 64 




69 67 69 74 20 65 6E 63 




6F 75 6E 74 65 72 65 64 




0D 




2F96 0A 11170 SUCCESS DB 


LF, 'Patch function completed. ' ,CR 


50 61 74 63 68 20 66 75 




6E 63 74 69 6F 6E 20 63 




6F 6D 70 6C 65 74 65 64 




2E 0D 




2FB1 20 11180 LINMSGS DB 


' No patch line' 


20 20 4E 6F 20 70 61 74 




63 68 20 6C 69 6E 65 




2FC1 73 11190 PLURAL DB 


's installed. ',CR 


20 69 6E 73 74 61 6C 6C 




65 64 2E 0D 




2FCE 46 11200 TOOBIGS DB 


'Fix file too big - partition it',CR 


69 78 20 66 69 6C 65 20 




74 6F 6F 20 62 69 67 20 




2D 20 70 61 72 74 69 74 




69 6F 6E 20 69 74 0D 




2FEE 50 11210 YANKMSG DB 


'Patch successfully yanked', CR 


61 74 63 68 20 73 75 63 




63 65 73 73 66 75 6C 6C 




79 20 79 61 6E 6B 65 64 




0D 




3008 03 11220 NAMLEN$ DB 


3 ;Length of fix file name 


3009 43 11230 NAMFIXS DB 


'CLP ' ; Fix file name 


4C 50 20 20 20 20 20 




3011 46 11240 LOCERR$ DB 


'FIND line mismatch' ,CR 


49 4E 44 20 6C 69 6E 65 




20 6D 69 73 6D 61 74 63 




68 0D 




3024 57 11250 WARN1$ DB 


'WARNING - File ' 


41 52 4E 49 4E 47 20 2D 




20 46 69 6C 65 20 




3033 20 11260 FNM$ DB 


1 1 


20 20 20 20 20 20 20 20 




20 20 20 20 20 20 20 20 




20 20 20 20 20 20 20 




304B 20 11270 WARN2$ DB 


' Not Closed', CR 


4E 6F 74 20 43 6C 6F 73 
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65 64 0D 














11280 ; 








3057 80 




11290 PTBL$ 


DB 


80 H 




3058 56 




11300 


DB 


FLAG! ABB! 6 




3059 52 




11310 


DB 


' REMOVE ',0 




45 4D 


4F 


56 45 00 








3060 8D26 




11320 


DW 


RPARMl 




3062 41 




11330 


DB 


FLAG!1 




3063 4F 




11340 


DB 


'O',0 




00 












3065 9426 




11350 


DW 


OPARMl 




3067 00 




11360 
11370 ; 


NOP 






3100 




11380 


ORG 


$<-8+l<+8 




0100 




11390 FIXBUF 


DS 


256 


;I/0 buffer for /FIX 


0100 




11400 LIBBUF 


DS 


256 


;I/0 buffer for ISAM 


0100 




11410 PGMBUF 


DS 


256 


;I/0 buffer for PGM 


1400 




11420 FIXDATA 


DS 


1400H 


;5k alloted for fix data 


4800 




11430 PGMDATA EQU 


$ 


jTakes the rest of core 






05100 ; 








2600 




05110 


END 


BEGIN 
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Page 00025 


$BKSP 


2CFB $DSP 


2D2B $DSPLY 


2D1F 


$GET 


2D0B $6ET1 


2D07 $OPEN 


2CEF 


$POSN 


2CF5 $PUT 


2D11 $QUIT 


27AE 


$READ 


2D25 $RWRIT 


2D01 mi 


0000 


mz 


0000 003 


0000 004 


0000 


@M0D2 


0000 0MOD4 


FFFF ABB 


0010 


BEGIN 


2600 BEGINA 


2609 BLDMAP$ 


2EC1 


CKLIN 


2674 CKLINl 


26A0 CKLIN2 


26B1 


CKLIN3 


26B5 CMDEXT 


2D79 CNTLIN 


2CCC 


COMMENT 


27C5 CP3 


2C62 CP5 


2C74 


CR 


000D CVTBIN 


2AD7 DL 


2D77 


DLINE 


280A DOCHK 


2C58 DOFIX 


26F7 


DOFIXl 


26FA DOXVB 


29C4 DOXVBl 


29EB 


D0XVB2 


29EE D0XVB3 


29F3 D0XVB4 


2A0A 


D0XVB5 


2A12 D0XVB6 


2A29 DPOSN 


27E3 


DVERB 


27D7 DVERBl 


27F3 DVERB2 


2810 


DVERB3 


2811 DVERB4 


282C DVERB4A 


282D 


EOLl 


27D4 ERRDSP 


2D64 ERREXIT 


2D54 


ETX 


1^03 EXLOG 


27A8 FCHK 


2C40 


FERROR 


2CC6 FILERR 


2D45 FILERR$ 


2F65 


FISAM 


2AE9 FISAMl 


2AEC FISAMIA 


2AF9 


FISAMIB 


2B13 FISAM2 


2B16 FISAM3 


2B1D 


FIXBUF 


3100 FIXDATA 


3400 FIXDCB 


2DA0 


FIXEXT 


2D7C FLAG 


0040 FLOPN 


2CD6 


FNM$ 


3033 FXNAM 


2658 FXNAMl 


266A 


FXNAM2 


266F GENPCH$ 


2E99 GETNXT 


2CB3 


HELLO$ 


2DC0 INSPCH$ 


2EAD lOERR 


2D32 


LF 


000 A LIBBUF 


3200 LIBERR 


2D41 


LIBERR$ 


2F35 LINCNT 


2D74 LINMSG$ 


2FB1 


LOCERR$ 


3011 LPFLD 


2BBE LVERB 


2900 


MESS 


2CE3 NAMFIX$ 


3009 NAMLEN$ 


3008 


NOCHG 


27A5 NONHEX 


2D5D NONHEX$ 


2F7C 


NOVRLY 


2D3D NOVRLY$ 


2F1B NOYANK$ 


2EF7 


NTONE 


279F OISOFF 


28F8 OISON 


28F7 


OK 


2C3D OPARM 


2C41 OPARMl 


2694 


OVERB 


28D1 OVRLY 


2B8E PASSl 


2C14 


PASS2 


2706 PCHDUN 


276D PCHERR 


2D61 


PCHERR$ 


2F4C PGMBUF 


3300 PGMDATA 


4800 


PGMDCB 


2D7F PGI^EQ 


2D51 PGmEQ$ 


2E44 


PLURAL 


2FC1 POSFIL 


294 D POSFILl 


2957 


P0SFIL2 


297B POSLD$ 


2E6F PRMERR 


2D49 


PRMERR$ 


2E5F PRSFIX 


2A92 PRSFXl 


2A96 


PRSFX2 


2 AC 7 PRSFX3 


2AD4 PTBL$ 


3057 


PUTORCHK 


2CB8 QUITl 


2D5A RDF IX 


26 BE 


RDFIXl 


26DB RDF 1X2 


26EF RDF 1X3 


26F4 


RDGINP$ 


2E88 REMOVE 


283A RIPPLl 


2A5D 


RIPPL2 


2A7A RIPPL3 


2A86 RIPPLE 


2A2F 


RPARM 


2C47 RPARMl 


268 D RPRMAP 


2B3A 


RPRMAPl 


2B46 RPRMAP2 


2B65 RPRMAP3 


2B6E 


RPRMAP4 


2B72 RPRMAP5 


2B86 RPRMAP6 


2B8B 


RPRMAP7 


2BA0 RPRMAP8 


2BC3 RPRMAP9 


2BC5 


RWRMAP 


2BDB RWRMAPl 


2BE7 RWRMAP2 


2C05 


SETMSG 


2D6A SKPLN 


2CA0 SKPLNl 


2CA9 


SPASS2 


2C0E STACK 


27BF STRFLG 


2AAA 


STUFNM 


2982 STUFNMl 


2999 STUFNM2 


299F 


STUFNM3 


29A0 STUFNM4 


29B7 SUCCESS 


2F96 


TOOBIG 


2D4D TOOBIG$ 


2FCE TYPCOD 


2869 


WARN1$ 


3024 WARN 2$ 


304B WHAT IS 


28F4 


WFLAG 


2D76 YANK 


2842 YANKl 


2858 


YANK 2 


2876 YANK3 


2879 YANK4 


287D 
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Page 00026 


YANK 5 


288A YANK 6 


2896 YANK 7 


28B6 


YANKS 


28BD YANK9 


28C6 YANKD 


2C86 


YANKMSG 


2FEE YNKFLG 


2D73 YNKPCH$ 


2EDC 


@@ABORT 


A088 Ca@ADTSK 


AllB @@BANK 


A633 


@@BKSP 


A313 @@BREAK 


A649 @0CHNIO 


A073 


@(3CKBRKC 


A697 @@CKDRV 


A16F @@CKEOF 


A328 


@@CKTSK 


A1CI6 @@CLOSE 


A2FE @@CLS 


A681 


@0CMNDI 


A0B2 @(3CMNDR 


A0C7 @@CTL 


9ED7 


@@DATE 


A049 @@ DC STAT 


AlAE @@DEBUG 


A0F1 


@@DECHEX 


A5B3 mOlRRD 


A520 @0DIRWR 


A535 


(3@DIV16 


A59E @@DIV8 


A589 @@DODIR 


A184 


0(3 DSP 


9E9B @@DSPLY 


9F3B @@ERROR 


A0DC 


@0EXIT 


A09D @@FEXT 


A48D @0FLAGS 


A61D 


©(apNAME 


A4A2 (a@FSPEC 


A478 @(3GATRD 


A50B 


@@GATWR 


A54A @@GET 


9EAF @0GTDCB 


A4CC 


@@GTDCT 


A4B7 @@GTMOD 


A4E1 @@HDFMT 


A256 


@@HEX16 


A5F2 0@HEX8 


A5DD (a@HEXDEC 


A5C8 


@@HIGH$ 


A607 miHU 


A2D4 @@KBD 


9F13 


0(aKEY 


9E87 eiBKEYIN 


9F27 0@KLTSK 


A15A 


@@LOAD 


A44E @@LOC 


A33D @@LOF 


A352 


la^LOGER 


9F72 @@L060T 


9F87 @@MSG 


9FBE 


@@MUL16 


A574 mmi8 


A55F @@OPEN 


A2E9 


@@PARAM 


A034 (a@PAUSE 


A01F 0@PEOF 


A367 


@0POSN 


A37C @@PRINT 


9FD3 @@PRT 


9EEB 


00 PUT 


9EC3 @(aRAMDIR 


A199 @(aRDSEC 


A22C 


e^RDSSC 


A4F6 ©(BREAD 


A391 (a@REMOV 


A2BF 


@@RENAM 


A2AA 0@REW 


A3A6 @@RMTSK 


A130 


@0RPTSK 


A145 0@RREAD 


A3BB @@RSLCT 


A217 


@@RSTOR 


A1D8 @@RUN 


A463 0@RWRIT 


A3D0 


@@SEEK 


A202 @@SEEKSC 


A3E5 0(3SKIP 


A3FA 


@@SLCT 


A1C3 (a@STEPI 


AlED @@TIME 


A05E 


@(aVDCTL 


A00A @@VER 


A40F @@VRSEC 


A241 


@@WEOF 


A424 @@WHERE 


9EFF @@WRITE 


A439 


@(3WRSEC 


A26B 0@WRSSC 


A280 @0WRTRK 


A295 



2600 is the transfer address 
Total errors 
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REPAIR/CMD - Repair a disk directory cylinder 

The Repair utility will write the directory cylinder wfth the proper data address 
mark, and update certain information in the GAT that is needed by LS-DOS. Its main 
use is to make Model I TRSDOS disks readable by LS-DOS/TRSDOS 6. 
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Page 00001 



000A 
000 D 
4296 



0010 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00010 



; REPAIR/ASM - Directory Track Repair Program 
TITLE <REPAIR - LS-DOS 6.2> 



10 

13 

4296H 

01 000000 B 



2600 

2600 
2600 3E6A 

2602 EF 

2603 2804 
2605 21FFFF 
2608 C9 



2609 ED731C26 
260D E5 
260E 214A28 
2611 CD9F27 

2614 El 

2615 CD2226 



2618 210000 
26 IB 310000 
261C 
261E 
261E 3E6A 

2620 EF 

2621 C9 

2622 7E 

2623 FE3A 
2625 C2E127 

2628 23 

2629 7E 
262A D630 
262C FE08 
262E D24528 

2631 B7 

2632 CADD27 
2635 321C27 

2638 23 

2639 4F 
263A 
263A 3E51 



03900 
00200 
03920 
03930 
03940 
00210 
00220 
00230 
00240 
00001 



LF EQU 

CR EQU 

BLNKMPW EQU 
FLAG EQU 
ABB EQU 



*GET SVCMAC:3 ;SVC Macro equivalents 

;SVCMAC/ASM -, LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*GET C0PYC0M:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



BEGIN 



00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 



BEGINA 



$EXIT 
QUITS 
STACK 



00004 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00005 



PGRM 



COM 

ORG 

@@CKBRKC 

LD 

RST 

JR 

LD 

RET 



'<*(C) 1982,83,84 by LSI*>' 
2600H 



A. 106 

40 

Z, BEGINA 

HL,-1 



LD 

PUSH 

LD 

CALL 

POP 

CALL 



(STACK ),SP 

HL 

HL,HELLO$ 

$DSPLY 

HL 

PGRM 



Set exit condition.. 

LD HLJ 

LD SP,$-$ 

EQU $-2 

(3@CKBRKC 

LD A. 106 

RST 40 

RET 



LD 

CP 

JP 

INC 

LD 

SUB 

CP 

JP 

OR 

JP 

LD 

INC 

LD 

@@GTDCT 

LD 



A,(HL) 

NZ,PRMERR 
HL 

A,(HL) 
'0- 

8 
NCILLEG 

A 

Z,NOT0 

(DRIVE), A 

HL 

C,A 

A,81 



;Check for break 



;Continue if not 
: else abort 



;Save entry stack 
;Save ptr to CMD buffer 
^Display the signon 



Normal exit is via RET 



;Init for no error 
;P/u original stack 

;Clear break before exit 



;Ck for drive entered 
;Colon indicator? 
;Quit if not 
; Point to drive # 
;P/u drive 
;Cvrt to binary 
;Bigger than 7? 
;Quit if so 

; Can't be drive 

; Stuff for later 
;Bump past the drive 

;What's its DCT$ 
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UTILITY Fi 


les 


REPAIR - LS- 


-DOS 6.2 Page 00002 


263C EF 


00006 
00600 ; 


RST 


40 






00610 ; 


Get difiy 


parameters 






00620 ; 








263D 114E29 


00630 


LD 


DE,PRMTBL$ 


;Pt to parm table 


2640 


00640 


@0PARAM 






2640 3E11 


00007 


LD 


A. 17 




2642 EF 


00008 


RST 


40 




2643 C2E127 


00650 


JP 


NZ,PRMERR 


;Exit on parm error 


2646 3A5329 


00660 


LD 


A,(WRSP) 


;MPW parameter entered? 


2649 B7 


00670 


OR 


A 




264A C20627 


00680 


JP 


NZ,MPARM 


;Go if so 


264D FDCBja35E 00690 


BIT 


3,(IY+3) 


; Can't "repair" a hard drive 


2651 C2D927 


00700 


JP 


NZ^NIXHARD 


; except for MPW parm 


2654 FDCB0466 00710 


BIT 


4,(IY+4) 


;If not alien controller 


2658 CC1128 


00720 


CALL 


Z,CKDRV 


; make sure disk present 


265 B 110000 


00730 


LD 


DEJ 


;Read BOOT to get dir cyl 


265 E CDB827 


00740 


CALL 


RDSEC 




2661 AF 


00750 


XOR 


A 




2662 32002A 


00760 


LD 


(BUFD.A 


;Set 1st byte to zero 


2665 3A022A 


00770 


LD 


A,(BUFl+2) 


;P/u the dir cyl 


2668 E67F 


00780 


AND 


7FH 


; Strip bit 7 


266A 32022A 


00790 


LD 


(BUF1+2),A 


;Put it back 


266D F5 


00800 


PUSH 


AF 


;Save dir cyl 


266E CDB227 


00810 


CALL 


WRSEC 


; Rewrite the BOOT 


2671 IC 


00820 


INC 


E 




2672 CDB827 


00830 


CALL 


RDSEC 


;Get sect 1 also 


2675 Fl 


00840 


POP 


AF 




2676 32022A 


00850 


LD 


(BUF1+2),A 


; Update dir cyl 


2679 F5 


00860 


PUSH 


AF 




267A CDB227 


00870 


CALL 


WRSEC 


;Write back 


267D Fl 


00880 
00890 ; 


POP 


AF 


;Dir cyl again 


267E 57 


00900 


LD 


D,A 




267F 1E00 


00910 


LD 


EJ 




2681 FD7709 


00920 


LD 


(IY+9),A 


;Set as dir cyl 


2684 CDB827 


00930 
00940 ; 


CALL 


RDSEC 


;Read the GAT 


2687 FDCB04AE 


00950 


RES 


5,(IY+4) 


;Show single sided 


268B 2ECB 


00960 


LD 


L,0CBH 


;Pt to version # byte 


258D 7E 


00970 


LD 


A,(HL) 


;Pick it up 


268E FE40 


00980 


CP 


40 H 


;Earlier than a 4.0? 


2690 380E 


00990 


JR 


C,LC 


; Bypass 2 sided ck if so 


2692 FE70 


01000 


CP 


70 H 


;"Later" than 6.x? 


2694 300 A 


01010 


JR 


NC,LC 


;Again, no sides ck 


2696 2ECD 


01020 


LD 


L,0CDH 


; Point to CONFIG byte 


2698 CB6E 


01030 


BIT 


5,(HL) 


; Check 2-sided 


269A 2804 


01040 


JR 


Z,LC 


;Go if not 


269C FDCB04EE 


01050 
01060 ; 


SET 


5,(IY+4) 


; else update DCT 


26A0 2EBF 


01070 LC 


LD 


L,0BFH 


;Pt to end of lockout 


26A2 0660 


01080 


LD 


B,96 


;Max cylinder count 


26A4 7E 


01090 ALIENl 


LD 


A,(HL) 


;P/u a lockout byte 


26A5 3C 


01100 


INC 


A 


;Locked out? 


26A6 2003 


01110 


JR 


NZ,ALIEN2 


;Exit when in use 


26 A8 2D 


01120 


DEC 


L 


; Backup by 1 


26A9 10F9 


01130 


DJNZ 


ALIENl 




26AB 3EDD 


01140 ALIEN2 


LD 


A,-35 


;What's in use? 


26AD 80 


01150 


ADD 


A,B 


;Convert to excess 


26AE 2ECC 


01160 


LD 


L,0CCH 




26B0 77 


01170 


LD 


(HL),A 


; Stuff into GAT 
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Page 00003 



26B1 FD7E04 
26B4 E6A0 
26 B6 47 
2687 FD7E03 
26 B A E640 
26 BC B0 
26 BD 47 
26BE FD7E08 
26C1 07 
26C2 07 
26C3 07 
26C4 E607 
26C6 B0 
26C7 2C 
26C8 47 
26C9 7E 
26CA E680 
26CC B0 
26CD 77 
26CE 2E00 
26 D0 CDA527 



26D3 IC 
26D4 CDB827 
26D7 2C 
26D8 36C4 
26DA 2D 
26DB CDA527 
26 DE 0608 
26E0 IC 
26E1 CDB827 
26E4 CD8F27 
26E7 7B 
26 E8 FE03 
26 EA 200E 
26EC E5 
26ED 219642 
26F0 22122A 
26F3 3A142A 
26F6 D603 
26F8 47 
26F9 El 
26FA CDA527 
26FD 10E1 

26 FF 

26FF 21CF28 

2702 3E0C 

2704 EF 

2705 C9 



2706 110000 



01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 ALIEN3 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 ALIEN4 

01660 

01670 ; 

01680 

00009 

00010 

00011 

00012 

00013 

01690 

01700 

01710 

01720 

01730 MPARM 



Construct config byte 



LD 

AND 

LD 

LD 

AND 

OR 

LD 

LD 

RLCA 

RLCA 

RLCA 

AND 

OR 

INC 

LD 

LD 

AND 

OR 

LD 

LD 

CALL 



A,(IY+4) 

80H120H 

B,A 

A,(IY+3) 

40H 

B 

B.A 

A,(IY+8) 



7 

B 

L 

B,A 

A,(HL) 

80H 

B 

(HL),A 

L,0 

WRSYS 



P/u # sides 

Save tempy 
P/u density 

Merge with previous 

P/u # grans/track 

to bits 0-2 

Mask off the rest 
Merge with previous 
Pt to config byte in GAT 
Save for a moment 
P/u present config byte 
Keep only bit 7 
Pick up the rest 
& stuff 

Write the GAT 



Operate on the HIT 

INC E 

CALL RDSEC 

INC L 

LD (HL),0C4H 

DEC L 

CALL WRSYS 

LD B,8 

INC E 

CALL RDSEC 

CALL UNOPEN 

LD A.E 

CP 3 

JR NZ,ALIEN4 

PUSH HL 

LD HL.BLNKMPW 

LD (BUF1+12H),HL 

LD A,(BUFl+20) 

SUB 3 

LD B,A 

POP HL 

CALL WRSYS 

DJNZ ALIEN3 

0@LOGOT ALCAO$ 

IFEQ 01H,1 

LD HL,ALCAO$ 

END IF 

LD A, 12 

RST 40 

RET ; Don« 

MPW parameter to ciiafige disk password on hard drive 

LD DE,0 ;P/u MPW string address 



;Bump sector ptr to 1 
;Read the HIT 
;Pt to DIR/SYS dec 
; "correct" DEC code 

;Write out the HIT 
;Init for 8 sectors 
;Bump to next sector 
;Get the sector 
;Reset file open bit 
;If DIR/SYS sector, 
; then update count & it 



;Set DIR/SYS password 
;To blanks 
;P/u ERN of DIR/SYS 
;Account for 1st 3 done 
;Update loop counter 

;Write back the sector 



;Advise complete - now readable 
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les 


REPAIR - LS-DOS 6.2 Page 00004 


2709 CB6F 


01740 


BIT 


5. A 


;If not string, then erro 


270B CAE127 


01750 


JP 


Z,PRMERR 




270E FDCB035E 01760 


BIT 


3,(IY+3) 


;Can't do if not hard 


2712 CAE127 


01770 


JP 


Z,PRMERR 




2715 CD2D27 


01780 


CALL 


GETMPW 


;Get and hash the entry 


2718 C2C227 


01790 


JP 


NZ,IOERR 




2718 0E00 


01800 


LD 


C,0 


;Init to drive requested 


271C 


01810 DRIVE 


EQU 


$-1 




271D CDEE27 


01820 


CALL 


GATRD 


;Read GAT into BUFl 


2720 C2C227 


01830 


JP 


NZ,IOERR 


;Back on error 


2723 22CE2A 


01840 


LD 


(BUF1+0CEH),HL 


; Stuff PW 


2726 CDEF27 


01850 


CALL 


GATWR 


; Write sector from buf 


2729 C2C227 


01860 


JP 


NZ,IOERR 


;Jump on write error 


272C C9 


01870 
01880 ; 


RET 




;Finished with Repair 




01890 ; 


Enter 


SYS2 & hash the 


password 




01900 ; 








272D CD3427 


01910 GETMPW 


CALL 


GMPWl 


;Get MPW into buffer 


2730 C0 


01920 


RET 


NZ 




2731 3EE4 


01930 


LD 


A,0E4H 


;Hash password (DE) to HL 


2733 EF 


01940 
01950 ; 


RST 


28H 


;Ret to what called 




01960 ; 


Place 


entered password 


into buffer 




01970 ; 








2734 215729 


01980 6MPW1 


LD 


HL,PSWDBUF 


; Point to buffer 


2737 E5 


01990 


PUSH 


HL 




2738 0608 


02000 


LD 


B,8 


;Init for 8 chars 


273A lA 


02010 GMPW2 


LD 


A.(DE) 


;P/u a char 


273B FE0D 


02020 


CP 


CR 


;End of line? 


273D 280F 


02030 


JR 


Z,GMPW4 




273F FE2C 


02040 


CP 


1 1 
> 


; Comma separator? 


2741 280B 


02050 


JR 


Z,GMPW4 




2743 FE22 


02060 


CP 


1 II 1 


;Closing quote? 


2745 2807 


02070 


JR 


Z,GMPW4 




2747 13 


02080 


INC 


DE 


;Bump input pointer 


2748 77 


02090 


LD 


(HL),A 


;Transfer character 


2749 23 


02100 


INC 


HL 


;Bump output pointer 


274A 10EE 


02110 


DJNZ 


GMPW2 


;Loop until done 


274C 1805 


02120 


JR 


CKMPW 




274E 3620 


02130 GMPW4 


LD 


(HL),' ' 


; Buffer with 


2750 23 


02140 


INC 


HL 


; trailing spaces 


2751 10FB 


02150 
02160 ; 


DJNZ 


GMPW4 






02170 ; 


Convert to upper case 


and check validity 




02180 ; 








2753 El 


02190 CKMPW 


POP 


HL 


;Recover buffer start 


2754 E5 


02200 


PUSH 


HL 




2755 0608 


02210 


LD 


B,8 




2757 7E 


02220 


LD 


A,(HL) 


;P/u 1st char 


2758 180E 


02230 


JR 


CKMPW2 


; & check <A-Z> 


275A 23 


02240 CKMPW 1 


INC 


HL 




275B 7E 


02250 


LD 


A.(HL) 




275C FE2a 


02260 


CP 


1 1 


;Got to a space? 


275E 2823 


02270 


JR 


Z,CKMPW7 




2760 FE30 


02280 


CP 


■0' 


;Less than '0' is error 


2762 3823 


02290 


JR 


CINVMPW 




2764 FE3A 


02300 


CP 


'9'+l 


;<0-9> is okay for 2-n 


2766 3812 


02310 


JR 


C,CKMPW3 




2768 FE41 


02320 CKMPW2 


CP 


'A' 


;Less than "A" is error 


276A 381B 


02330 


JR 


CINVMPW 




276C FE5B 


02340 


CP 


'Z'+l 


;<A-Z> is okay 
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276E 380A 
2770 FE61 
2772 3813 

2774 FE7B 

2775 300F 
2778 CBAE 
27 7 A 10 DE 
277C Dl 
277D AF 
277E C9 
277F 23 

2780 BE 

2781 2004 
2783 10FA 
2785 18F5 
2787 211C29 
278A 3E3F 
278C B7 
278D Dl 
278E C9 



278F 
2790 
2791 
2793 
2794 
2796 
2798 
2799 
27 9 A 
279C 
279D 
279E 

27 9F 



E5 

C5 

0608 

2C 

CBAE 

3E20 

85 

6F 

10F8 

CI 

El 

C9 



279F 3E0A 
27A1 EF 
27A2 C8 
27A3 181D 

27 A5 

27A5 3E36 
27A7 EF 
27A8 2018 
27AA 

27AA 3E32 
27 AC EF 
27AD FE06 
27AF C8 
27B0 1810 

27B2 

27B2 3E35 
27B4 EF 
27B5 C8 
27B6 180A 



02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
00014 
00015 
00016 
00017 



CKMPW3 
CKMPW4 



CKMPW5 

CKMPW7 
INVMPW 



UNOPEN 



ZAP 



$DSPLY 



02720 

02730 

02740 ; 

02750 WRSYS 

00019 

00020 

02760 

02770 

00021 

00022 

02780 

02790 

02800 

02810 ; 

02820 WRSEC 

00023 

00024 

02830 

02840 



JR 

CP 

JR 

CP 

JR 

RES 

DJNZ 

POP 

XOR 

RET 

INC 

CP 

JR 

DJNZ 

JR 

LD 

LD 

OR 

POP 

RET 



C,CKMPW3 

'a' 

C. INVMPW 

'z'+l 

NC, INVMPW 

5,(HL) 

CKMPWl 

DE 

A 

HL 

(HL) 

NZ, INVMPW 

CKMPW5 

CKMPW4 

HL,BADMPW$ 

A, 63 

A 

DE 



;<a-z> convert to 

; upper case 

;Point to buffer start 

;No imbedded spaces 



;Init "Invalid PW 
;Set extended error 
;Set NZ condition 
;Clean up stack 



Reset any file open bits 



HL 
BC 



PUSH 

PUSH 

LD 

INC 

RES 

LD 

ADD 

LD 

DJNZ 

POP 

POP 

RET 



mDSPU 

IFEQ 00H,1 



LD 

ENDIF 

LD 

RST 

RET 

JR 



HL, 

A, 10 
40 
Z 
lOERR 



@@WRSSC 

LD A, 54 

RST 40 

JR NZ,IOERR 

(a@VRSEC 

LD A, 50 

RST 40 

CP 6 

RET Z 

JR lOERR 

@(aWRSEC 

LD A, 53 

RST 40 

RET Z 

JR lOERR 



;Save buffer posn 



B,8 


;8 entries 


L 


;Dir + 1 


5,(HL) 


;Clear fi le open bit 


A, 32 




A,L 


;Pt to next Dir+1 


L.A 




ZAP 


;Do 8 entries per direc 


BC 




HL 





;Display a line 



;Write the sector 



;Verify it 



;Must be SYSTEM sector 



;Write normal sector 



Page 302 



The Source 



UTILITY Files 



REPAIR - LS-DOS 6.2 



Page 00006 



27B8 21002A 
27BB 

27BB 3E31 
27BD EF 
27BE C8 
27BF FE06 
27C1 C8 



27C2 FE3F 
27C4 281F 
27C6 2600 
27C8 6F 
27C9 E5 
27 CA F6C0 
27 CC 4F 
27 CD 

27CD 3E1A 
27 CF EF 

27 D0 21E828 

27D3 



27 D3 3E0C 
27 D5 EF 
27D6 El 
27D7 1812 



27D9 213429 
27DC DD 
27DD 21F728 
27 E0 DD 
27E1 210C29 
27E4 DD 
27E5 



27E5 3E0C 
27 E7 EF 
27E8 21FFFF 
27EB C31B26 



27EE F6 
27 EF AF 
27F0 E5 
27F1 F5 
27F2 FD5609 
27F5 21002A 
27F8 5D 



02850 
02860 
02870 
02880 
02890 
00025 
00026 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
00027 
00028 
03040 
03050 
03060 
03070 

:9 



RDSEC 



Sector read routine 

LD HL,BUF1 

0@RDSEC 

LD A, 49 

RST 40 

RET Z 

CP 6 

RET Z 

Error exits 



lOERR 



CP 
JR 
LD 
LD 



63 

Z,EXTERR 

H,0 

L,A 



PUSH HL 
OR 0C0H 
LD C,A 
@@ERROR 
LD A, 26 
RST 40 



LD 



HL,ABTJOB$ 
.1 



00031 
00032 
00033 



03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 



NIXHARD 
NOT0 
PRMERR 
EXTERR 



00035 
00036 
00037 
00038 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 



QUIT$$ 



GATRD 
GATWR 



@@LOGOT 

IFEQ 

LD HL, 

ENDIF 

LD A, 12 

RST 40 

POP HL 

JR QUIT$$ 

Internal error handler 

LD HL,NIXHARD$ 

DB 0DDH 

LD HL,NOT0$ 

DB 0DDH 

LD HL,PRMERR$ 

DB 0DDH 

@@LOGOT 

IFEQ 00H.1 

LD HL, 

ENDIF 

LD A, 12 

RST 40 

LD HL,-1 

JP QUITS 



;Read sector 



;Fall thru to error? 



;Extended error? 
;Log it and quit 
; Error to HL 

;Save error code 

;Set short, return 

; Error to C for 
; display 



;Init"Job aborted 
;Log the msg 



;Recover error code 

; "Can't to hard drive 
;"Can't do drive 
;"Parm error 
; Display the error 



;Set abort code 



Read the granule allocation table 



DB 0F6H 

XOR A 

PUSH HL 

PUSH AF 

LD D,(IY+9) 

LD HL,BUF1 

LD E,L 



;Set NZ for test 
;Set Z for test 



;Dir cylinder 
;Set to sector 
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27F9 Fl 


03320 


POP 


AF 




27FA 2807 


03330 


JR 


Z, GATRWl 


;Go if write 


27FC 


03340 


@(3RDSSC 






27FC 3E55 


00039 


LD 


A, 85 




27 FE EF 


00040 


RST 


40 




27FF 3E14 


03350 


LD 


A,14H 




2801 180C 


03360 


JR 


GATRW3 




2803 


03370 GATRWl 


(aiaWRSSC 






2803 3E36 


00041 


LD 


A, 54 




2805 EF 


00042 


RST 


40 




2806 2003 


03380 


JR 


NZ,GATRW2 


;Skip verify if error 


2808 


03390 


@@VRSEC 




; Verify the write 


2808 3E32 


00043 


LD 


A, 50 




280A EF 


00044 


RST 


40 




280 B FE06 


03400 GATRW2 


CP 


6 


; Expect error 6 


280D 3E15 


03410 


LD 


A,15H 


;Init "Gat error 


280F El 


03420 6ATRW3 


POP 


HL 




2810 C9 


03430 
03440 ; 


RET 








03450 ; 


Routine 


to check on 


floppy present 




03460 ; 








2811 3E28 


03470 CKDRV 


LD 


A, 40 


;@DCSTAT 


2813 EF 


03480 


RST 


28H 




2814 202F 


03490 


JR 


NZ. ILLEG 




2816 3E2C 


03500 


LD 


A, 44 


;(aRSTORE 


2818 EF 


03510 


RST 


28H 




2819 21002A 


03520 


LD 


HL,BUF1 


;Set up for 


281C C5 


03530 


PUSH 


BC 


; mini ckdrv 


281D 


03540 


(3@TIME 




;P/u timer ptr 


281D 3E13 


00045 


LD 


A, 19 




281F EF 


00046 


RST 


40 




2820 CI 


03550 


POP 


BC 




2821 EB 


03560 


EX 


DE,HL 


;Pt HL to 


2822 2B 


03570 


DEC 


HL 


; heartbeat counter 


2823 3E2F 


03580 


LD 


A, 47 


;@RSLCT 


2825 EF 


03590 


RST 


28H 


;Wait till ready 


2826 7E 


03600 


LD 


A,(HL) 


;Get heartbeat count 


2827 C614 


03610 


ADD 


A, 20 


;Init to + 500ms 


2829 57 


03620 


LD 


D,A 


; Store for timeout check 


282A CD3A28 


03630 CKl 


CALL 


INDEX 




282D 20FB 


03640 


JR 


NZ,CK1 


;Get no pulse 


282F CD3A28 


03650 CK2 


CALL 


INDEX 




2832 28FB 


03660 


JR 


Z,CK2 


;Get pulse 


2834 CD3A28 


03670 CK3 


CALL 


INDEX 




2837 20FB 


03680 


JR 


NZ,CK3 


;Get no pulse 


2839 C9 


03690 
03700 ; 


RET 






283A 7E 


03710 INDEX 


LD 


A.(HL) 


;Get time 


283B BA 


03720 


CP 


D 


; Interval expired? 


283C 2806 


03730 


JR 


Z, ILLGl 




283E 3E2F 


03740 


LD 


A, 47 


;@RSLCT 


2840 EF 


03750 


RST 


28 H 




2841 CB4F 


03760 


BIT 


1,A 


;Test for index pulse 


2843 C9 


03770 
03780 ; 


RET 






2844 El 


03790 ILLGl 


POP 


HL 


;Fix stack 


2845 3E20 


03800 ILLEG 


LD 


A, 32 


;'illegal drv #' 


2847 C3C227 


03810 
03820 ; 
03830 ; 
03840 ; 


JP 
Message 


lOERR 
s 
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284A 52 

45 50 
2850 



2850 20 

2D 20 
2D 20 
67 68 
2F 38 
79 20 
6C 

287A 20 

53 79 
20 49 
20 20 

288F 41 

6C 6C 

73 20 
65 64 
6E 73 
32 2F 

28B7 20 

74 6F 
78 78 
78 78 



03850 ; 

03860 HELLO$ DB 
41 49 52 

03870 *GET CLIENT; 

03950 ; CLIENTS/ASM - 

03960 ; 

03970 DB 
36 2E 32 2E 30 20 
43 6F 70 79 72 69 
74 20 31 39 38 32 
33 2F 38 34 20 62 
4C 6F 67 69 63 61 



03980 
73 74 65 
6E 63 2E 
20 0A 

03990 



DB 



6D 73 2C 
20 20 20 



DB 



28 CF 

28 E8 
28F7 

290C 
291C 

2934 



52 

65 70 
6E 63 
6F 6D 
52 

45 50 
6F 72 
43 

61 6E 
41 49 
65 20 
50 

61 72 
20 65 
49 

6E 76 
61 73 
73 73 
43 

61 6E 
61 69 
72 64 
0D 



20 52 69 
52 65 73 
2E 20 4C 
65 64 20 
38 33 2F 

04010 
20 78 78 
78 78 78 
78 78 78 

03880 

03890 
61 69 72 
74 69 6F 
70 6C 65 

03900 
41 49 52 
74 65 64 

03910 
27 74 20 
52 20 64 
30 0D 

03920 
61 6D 65 
72 72 6F 

03930 
61 6C 69 
74 65 72 
77 6F 72 

03940 
27 74 20 
72 20 61 
20 64 72 



DB 



67 68 74 

65 72 76 

69 63 65 

31 39 38 
38 34 

78 78 78 

78 78 78 
0A 0D 



ALCAO$ DB 
20 66 75 
6E 20 63 
74 65 0D 
ABTJOB$ DB 
20 61 62 
0D 

NOT0$ DB 
52 45 50 
72 69 76 

PRMERR$ DB 
74 65 72 
72 0D 
BADMPW$ DB 
64 20 6D 
20 70 61 
64 0D 
NIXHARD$ 
72 65 70 
20 68 61 
69 76 65 



294E 80 



294F 23 

4D 50 

2953 00 

2954 0727 
2956 00 



57 



03950 ; 

03960 PRMTBL$ DB 
03970 STR EQU 
03980 DB 



03990 MRSP 
04000 
04010 
04020 ; 



DB 
DW 
NOP 



'REPAIR' 

3 

File to establish sign-on headers 

* - 6.2.0 - Copyright 1982/83/84 by Logical 



' Systems, Inc. 



,10 



All Rights Reserved. Licensed 1982/83/84' 



' to xxxxxxxxxxxxxxxxxx' ,10,13 



'Repair function complete', CR 



'REPAIR aborted ',CR 



Can"t REPAIR drive 0',CR 



Parameter error' ,CR 



Invalid master password ',CR 



DB 



Can"t repair a hard drive',CR 



80H 
20H 
STR!3,'MPW' 


MPARM+1 
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04030 PSWDBUF DS 8 ;Password buffer 

04040 HASHBUF DS 4 ;Owner & user hashes 

0020 04050 FCB DS 32 

2A00 04060 ORG $<-8+l<+8 

0100 04070 BUFl DS 256 



2600 04090 END BEGIN 
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$DSPLY 


279F $EXIT 


2618 001 


0000 


@@2 


0000 003 


0000 004 


0000 


(3M0D2 


0000 0MOD4 


FFFF ABB 


0010 


ABTJOB$ 


28E8 ALCAO$ 


28CF ALIENl 


26A4 


ALIEN2 


26AB ALIEN3 


26E0 ALIEN4 


26FA 


BADMPW$ 


291C BEGIN 


2600 BEGINA 


2609 


BLNKMPW 


4296 BUFl 


2A00 CKl 


282A 


CK2 


282F CK3 


2834 CKDRV 


2811 


CKMPW 


2753 CKMPWl 


275A CKMPW2 


2768 


CKMPW3 


277A CKMPW4 


277C CKMPW5 


277F 


CKMPW7 


2783 CR 


000 D DRIVE 


271C 


EXTERR 


27E5 FCB 


2963 FLAG 


0040 


GATRD 


27 EE GATRWl 


2803 GATRW2 


280 B 


GATRW3 


280F GATWR 


27EF GETMPW 


272D 


GMPWl 


2734 GMPW2 


273A GMPW4 


274E 


HASHBUF 


295F HELLO$ 


284A ILLEG 


2845 


ILLGl 


2844 INDEX 


283A INVMPW 


2787 


lOERR 


27C2 LC 


26A0 LF 


000A 


MPARM 


2706 MRSP 


2953 NIXHARD 


27 D9 


NIXHARD$ 


2934 NOT0 


27 DD NOT0$ 


28F7 


PGRM 


2622 PRMERR 


27E1 PRMERR$ 


290C 


PRMTBL$ 


294E PSWDBUF 


2957 QUITS 


261B 


QUIT$$ 


27EB RDSEC 


27 B8 STACK 


261C 


STR 


0020 UNOPEN 


278F WRSEC 


27B2 


W^SYS 


27A5 ZAP 


2794 00ABORT 


8EE9 


@0ADTSK 


8F7C 00BANK 


9494 00BKSP 


9174 


@@ BREAK 


94AA 00CHNIO 


8ED4 00CKBRKC 


94F8 


@@CKDRV 


8FD0 00CKEOF 


9189 00CKTSK 


8F67 


@0CLOSE 


915F 00CLS 


94 E2 00CMNDI 


8F13 


@@CMNDR 


8F28 00CTL 


8D38 00DATE 


8EAA 


@(3DCSTAT 


900F 00 DEBUG 


8F52 00DECHEX 


9414 


@@DIRRD 


9381 00DIRWR 


9396 00DIV16 


93 FF 


@@DIV8 


93EA 00DODIR 


8FE5 00DSP 


8CFC 


@@DSPLY 


8D9C 00ERROR 


8F3D 00EXIT 


8EFE 


@0FEXT 


92EE 00FLAGS 


947E 00FNAME 


9303 


@@FSPEC 


92D9 00GATRD 


936C 00GATWR 


93AB 


@@GET 


8D10 00GTDCB 


932D 00GTDCT 


9318 


(3@GTM0D 


9342 00HDFMT 


90 B7 00 HEX 16 


9453 


0@HEX8 


943 E 00 HEX DEC 


9429 00HIGH$ 


9468 


@@INIT 


9135 00KBD 


8D74 00 KEY 


8CE8 


@(3KEYIN 


8D88 00KLTSK 


8FBB 00LOAD 


92AF 


@@LOC 


919E 00LOF 


91 B3 00LOGER 


8DD3 


0@LOGOT 


8DE8 00MSG 


8E1F 00MUL16 


93 D5 


0@MUL8 


93C0 00OPEN 


914A 00PARAM 


8E95 


@@ PAUSE 


8E80 00PEOF 


91C8 00POSN 


91DD 


00 PR I NT 


8E34 00PRT 


8D4C 00PUT 


8D24 


00RAMDIR 


8FFA 00RDSEC 


908D 00RDSSC 


9357 


0@READ 


91F2 00REMOV 


9120 00RENAM 


910B 


00REW 


9207 00RMTSK 


8F91 00RPTSK 


8FA6 


00RREAD 


921C 00RSLCT 


9078 00RSTOR 


9039 


00 RUN 


92C4 00RWRIT 


9231 00SEEK 


9063 


00SEEKSC 


9246 00 SKIP 


925B 00SLCT 


9024 


00 STEP I 


904E 00TIME 


8EBF 00VDCTL 


8E6B 


00VER 


9270 00VRSEC 


90A2 00WEOF 


9285 


00WHERE 


8D60 00 WRITE 


929A 00WRSEC 


90CC 


00WRSSC 


90E1 00WRTRK 


90F6 




2600 is the 


transfer address 






00000 Total 


errors 







Page 
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TAPE100/CMD - Read or write a Model 100 tape 

Tapel00 allows cassette tapes written on a Model 100 to be read in and save as a disk 
fi le, and vice versa. 
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00100 ;TAPE100 - Tape/Disk & Dis 


;k/Tap 


le Xfer Utility 


0000 




00110 


TITLE 


<TAPE100 - 


- LS-DOS 6.2> 






00120 ; 










F4*0 




00130 BREAKLC 


EQU 


0F440H 




;<BREAK> key location 


003A 




00140 LOADA 


EQU 


3AH 




; LD A, (nnnn) opcode 


0016 




00150 WRMASK 


EQU 


'W'-'A' 




;WRINTMASK port mask byte 


000C 




00160 MODMASK 
00170 ; 


EQU 


'M'-'A' 




; MODOUT port mask byte 


003A 




00180 @INIT 


EQU 


58 




;@INIT SVC # 


003 B 




00190 0OPEN 
00200 ; 


EQU 


59 




;§OPEN SVC # 


00E0 




00210 PORTE0 


EQU 


0E0H 






00EC 




00220 MODOUT 


EQU 


0ECH 






00FF 




00230 PORTFF 


EQU 


0FFH 






0078 




00240 OPREG$ 


EQU 


78 H 




;Operating Register 


0084 




00250 (POPREG 


EQU 


84 H 




; Video/Keyboard Control Port 


F800 




00260 VIDEO 
00270 ; 


EQU 


0F800H 




; Start of Video RAM 


0022 




00280 WHICHl 


EQU 


22H 




; Which one - or 1 ? 


000F 




00290 TOOSHRT EQU 


0FH 




;Pulse too Short ? 


003 E 




00300 TOOLONG 


EQU 


3EH 




;Pulse too Long ? 


0006 




00310 ROUTOFF 


EQU 


6 




; Interrupt rout offset 


000D 




00320 DIFFER 


EQU 


0DH 




; Difference between 2 pulses 


2B2F 




00330 DELAY0 


EQU 


2B2FH 




;Bit = Delay count 


1217 




00340 DELAYl 
00350 ; 


EQU 


1217H 




;Bit = 1 Delay count 


000E 




00360 CURON 


EQU 


14 




;Cursor on 


000F 




00370 CUROFF 
00380 ; 


EQU 


15 




;Cursor off 


0000 




00390 *GET 


SVCMAC 


:3 




;SVC Macro equivalents 






00010 ;SVCMAC/ASM - 


LS-DOS Version VI 








00020 *LIST 


OFF 












03900 *LIST 


ON 








0000 




00400 *GET 


VALUES 


:3 




;Misc. equates 






03920 ; VALUES/ASM - 


Version 6 










03930 *LIST OFF 












04200 *LIST ON 








0000 




00410 *GET 


COPYCOM: 3 




;Copyright message 






04210 ; COPYCOM - Fi 


le for Copyright 


COMment block 






04220 ; 










0000 




04230 


COM 


'<*(C) 1982,83, 


84 by LSI*>' 






00420 ; 










2600 




00430 
00440 ; 
00450 START 


ORG 


2600 H 






2600 




00460 


@@CKBRKC 




;Check for break 


2600 


3E6A 


00001 


LD 


A, 106 






2602 


EF 


00002 


RST 


40 






2603 


2804 


00470 


JR 


Z, STARTA 




;Continue if not 


2605 


21FFFF 


00480 


LD 


HL,-1 




; else abort 


2608 


C9 


00490 
00500 ; 


RET 








2609 


ED735C27 


00510 STARTA 


LD 


(OLDSP+1), 


.SP 


;Save entry stack 


260D CDC727 


00520 


CALL 


DOINIT 




;Do initialization 






00530 ; 














00540 ; 


Was READ or WRITE 


entered ? 






00550 ; 










2610 


3AD729 


00560 


LD . 


A,(RRESP) 




;P/u read response 


2613 


47 


00570 


LD 


B,A 




;Xfer to B 


2614 


3ACF29 


00580 


LD 


A,(WRESP) 




;P/u write response 


2617 


A8 


00590 


XOR 


B 




;Are both the same ? 
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2618 2807 


00600 
00610 


JR 


Z,INP_R_W 


;Yes - prompt 




00620 


; Both weren't entered - 


which one was 




00630 








261A 04 


00640 CHKPRM INC 


B 


;READ entered ? 


261 B 05 


00650 


DEC 


B 




261C 281C 


00660 


JR 


Z, WRTAPE 


;<W>rite a tapefile 


261E C3B126 


00670 
00680 


JP 


RDTAPE 


;<R>ead a tapefile 




00690 


; Prompt 


for READ or WRITE 




00700 








2621 E5 


00710 
00720 


[NP_R_W PUSH 
» 


HL 


;Save command ptr 


2622 21DB28 


00730 


LD 


HL,RDORWR 


;"Read or Write" 


2625 CD4928 


00740 
00750 


CALL 


DSPLY 






00760 


; Input F 


[ (Read) or W (Write) 




00770 








2628 0601 


00780 


LD 


B,l 


;Take input, 1 char 


262A CD3528 


00790 


CALL 


INPUT 




262D 7E 


00800 


LD 


A,(HL) 


;P/u first char 


262E El 


00810 


POP 


HL 


; Recover command ptr 


262F CBAF 


00820 


RES 


5,A 


; Convert to U/C 


2631 FE52 


00830 


CP 


'R' 


;<R>ead ? 


2633 CAB126 


00840 


JP 


Z, RDTAPE 




2636 FE57 


00850 


CP 


'W' 


;<W>rite ? 


2638 20E7 


00860 


JR 


NZ, INP_R_W 


;No - re-prompt 




00870 










00880 


; WRITE d 


iskfile to tapefile 




00890 








263A 11F12D 


00900 WRTAPE LD 


DE,FCB1 


;DE => Source FCB 


263D 


00910 


@@FSPEC 




;If a bad spec. 


263D 3E4E 


00003 


LD 


A, 78 




263F EF 


00004 


RST 


40 




2640 C40828 


00920 
00930 , 


CALL 


NZ,PRSOUR 


; prompt for source 




00940 , 


WRITE - 


check if destination filespec input 




00950 , 








2643 11112E 


00960 V 


iRTAPE2 LD 


DE,FCB2 


;DE => Destination FCB 


2646 


00970 


@@FSPEC 






2646 3E4E 


00005 


LD 


A, 78 




2648 EF 


00006 


RST 


40 




2649 C41028 


00980 


CALL 


NZ,PRDEST 


; Prompt for destination 


264C CDAC27 


00990 
01000 ; 


CALL 


GTFILE 


;Xfer into Filename 




01010 ; 


Open Di 


sk Source file 






01020 ; 








264F 11F12D 


01030 C 


IPDSRC LD 


DE,FCB1 


;DE => Source 


2652 CDCF2C 


01040 


CALL 


OPEN 




2655 C24627 


01050 
01060 ; 


JP 


NZ.IOERR 


;NZ - abort 




01070 ; 


Can this disk file fit 


into memory ? 




01080 ; 








2658 2AFD2D 


01090 


LD 


HL,(FCB1+12) 


;P/u ERN 


265 B 24 


01100 


INC 


H 


;Too big ? 


265C 25 


01110 


DEC 


H 




265D C2BF29 


01120 


JP 


NZ,TOOBIG 


;Yes - forget it 


2660 3E00 


01130 E 


NUF LD 


A,$-$ 


; Enough memory ? 


2662 C630 


01140 


ADD 


A,MEM<-8 


;Add mem start 


2664 BD 


01150 


CP 


L 




2665 DABF29 


01160 


JP 


CTOOBIG 


;No - forget it 
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01170 ; 










01180 ; 


Read in 


Disk file & Write to tape 




01190 ; 








2668 CD3B2A 


01200 


CALL 


PRTAPE 


; Display "Ready Tape" 


266B CDBC2C 


01210 


CALL 


CURSOFF 


;Turn of cursor 


266E 217B27 


01220 


LD 


HL, READING 


;Init "Reading : " 


2671 CD4928 


01230 


CALL 


DSPLY 


; Display line 


2674 219D27 


01240 


LD 


HL,DFBUF 


;HL => Disk Filename 


2577 CD4928 


01250 


CALL 


DSPLY 




267A CD692D 


01260 


CALL 


READSRC 


;Read the source file 


267D CDCA2D 


01270 


CALL 


GETPOS 


;Get new cursor pos 


2680 CD9B2D 


01280 


CALL 


ENDOKI 


; Bring in Video 


2683 218527 


01290 


LD 


HL, WRITING 


;Display "Writing : " 


2686 CD802C 


01300 


CALL 


DISPSTR 




2689 219027 


01310 


LD 


HL,FILENM 


;"filenm" 


268C CD802C 


01320 


CALL 


DISPSTR 




268F CD1A2A 


01330 


CALL 


CASSON 


;Turn on cassette 


2692 0680 


01340 


LD 


B,80H 


;Pause a bit 


2694 


01350 


(a@PAUSE 






2694 3E10 


00007 


LD 


A, 16 




2696 EF 


00008 


RST 


40 




2697 CDEC2B 


01360 


CALL 


WRHEAD 


; Write Header 


269A CD192C 


01370 


CALL 


WRDAT 


; Write Data 


269D 2A6627 


01380 


LD 


HL,(CURPOS) 


;P/u new cursor pos 


26A0 CDE32D 


01390 


CALL 


GETCRS 




26A3 0603 


01400 


LD 


B,3 


;Give to system 


26A5 


01410 


(BiaVDCTL 






26 A5 3E0F 


00009 


LD 


A, 15 




26A7 EF 


00010 


RST 


40 




26A8 CDA92D 


01420 


CALL 


DISDOKI 


;Restore video 


26AB CD2B2A 


01430 


CALL 


CASSOFF 


;Turn off cassette 


26AE C35827 


01440 
01450 ; 


JP 


EXIT 


;Clean exit 




01460 ; 


Get Source & Destinat 


ion for READ 




01470 ; 








26B1 11F12D 


01480 RDTAPE 


LD 


DE,FCB1 


;First fi lespec legal ? 


26B4 


01490 


@@FSPEC 






2684 3E4E 


00011 


LD 


A, 78 




26B6 EF 


00012 


RST 


40 




26B7 280D 


01500 
01510 ; 


JR 


Z, CHKSEC 


;Yes - check for second 




01520 ; 


Accept 


first filename 


on tape 




01530 ; 








26B9 3EC9 


01540 


LD 


A,0C9H 




26BB 320D2B 


01550 


LD 


(CORRECT), A 




26BE 11112E 


01560 


LD 


DE,FCB2 


;Prompt for dest filename 


26C1 CD2D28 


01570 


CALL 


PRDEST2 


; Prompt for dest 


26C4 1825 


01580 
01590 ; 


JR 


READFIL 


; and read file 




01600 ; 


Copy source FCB into 


destination 




01610 ; 








26C6 E5 


01620 CHKSEC 


PUSH 


HL 


;Save comm ptr 


26C7 EB 


01630 


EX 


DE,HL 




26C8 11112E 


01640 


LD 


DE,FCB2 


;DE => Disk FCB 


26CB 012000 


01650 


LD 


BC,32 




26CE D5 


01660 


PUSH 


DE 


;Save dest FCB 


26CF EDB0 


01670 


LDIR 






26D1 Dl 


01680 


POP 


DE 




26D2 El 


01690 
01700 ; 


POP 


HL 






01710 ; 


P/u destination fi les 


.pec 
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26D3 2B 


01730 


DEC 


HL 


;Skip leading spaces 


26 D4 23 


01740 SKPSPC 


INC 


HL 




26D5 7E 


01750 


LD 


A,(HL) 


;P/u char 


26 D6 FE20 


01760 


CP 


' ' 


; Space ? 


26D8 28FA 


01770 


JR 


Z, SKPSPC 




26 DA FE0E 


01780 


CP 


CR+1 


;Eol ? 


26 DC 3807 


01790 


JR 


C,GTFILE2 


;Yes - use default 


26 DE FE28 


01800 


CP 


'(' 


;Eol ? 


26E0 2803 


01810 


JR 


Z,6TFILE2 




26E2 


01820 


(aiafSPEC 




;Xfer in if legal 


26E2 3E4E 


00013 


LD 


A, 78 




26 E4 EF 


00014 
01830 ; 


RST 


40 






01840 ; 


Transfer filename into buffer left just'd 




01850 ; 








26 E5 11F12D 


01860 GTFILE2 


LD 


DE,FCB1 


;DE => Source 


26 E8 CD AC 27 


01870 
01880 ; 


CALL 


GTFILE 


; Stuff Filename into buff 




01890 ; 


Read in 


Tape Source file 






01900 ; 








26EB 11112E 


01910 READFIL 


LD 


DE,FCB2 


;@INIT the dest file 


26EE CDCB2C 


01920 


CALL 


INIT 




26F1 C24627 


01930 


JP 


NZ,IOERR 




26F4 DD4E06 


01940 


LD 


C,(IX+6) 


;P/u drive # 


26F7 


01950 


(aiaCKDRV 




; Write protected ? 


26F7 3E21 


00015 


LD 


A, 33 




26F9 EF 


00016 


RST 


40 




26 FA 3E0F 


01960 


LD 


A, 15 


;Write Protected Disk 


26FC DA4627 


01970 


JP 


CJOERR 


;Good bye 


26FF CD3B2A 


01980 


CALL 


PRTAPE 


; "Ready Cassette" 


2702 CDBC2C 


01990 


CALL 


CURSOFF 




2705 CD9B2D 


02000 


CALL 


ENDOKI 


; Bring in KI & DO RAM 


2708 CDCA2D 


02010 


CALL 


GETPOS 


;Calculate cursor posn 


270B 217B27 


02020 


LD 


HL, READING 


; Display "Reading : " 


270E CD802C 


02030 


CALL 


DISPSTR 




2711 CD1A2A 


02040 


CALL 


CASSON 


;Turn on cassette 


2714 CDD82A 


02050 


CALL 


RDHEAD 


; Search for header 


2717 CD492A 


02060 


CALL 


RDDAT 


;Read in Data 


271A F3 


02070 


DI 




;Make sure off 


271B CD2B2A 


02080 


CALL 


CASSOFF 


;Turn off cassette 


271E 218527 


02090 


LD 


HL, WRITING 


;Display "Writing : " 


2721 CO802C 


02100 


CALL 


DISPSTR 




2724 219D27 


02110 


LD 


HL,DFBUF 


;HL => Destination 


2727 CD802C 


02120 


CALL 


DISPSTR 




272A 2A6627 


02130 


LD 


HL,(CURPOS) 


;P/u new cursor position 


272D CDE32D 


02140 


CALL 


GETCRS 


; Convert to Row, Column 


2730 0603 


02150 


LD 


B,3 


;Give system new cursor 


2732 


02160 


@@VDCTL 






2732 3E0F 


00017 


LD 


A, 15 




2734 EF 


00018 


RST 


40 




2735 CDA92D 


02170 


CALL 


DISDOKI 


;Enable real RAM 


2738 1806 


02180 


JR 


WRTDES2 


1 


273A CDA92D 


02190 FOR NOW 


CALL 


DISDOKI 


;Enable real RAM 


273D CD2B2A 


02200 


CALL 


CASSOFF 


;Turn off cassette 


2740 CD512D 


02210 WRTDES2 CALL 


WRTDEST 


;Write Destination file 


2743 C35827 


02220 
02230 ; 
02240 ; 


JP 


EXIT 


;Clean exit 


2746 6F 


02250 lOERR 


LD 


L,A 


Xfer error # to HL 


2747 2600 


02260 


LD 


H,0 


» 
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2749 F6C0 
274B 4F 
274C 

274C 3E1A 
274E EF 
274F 180A 

2751 C35427 

2754 21FFFF 

2757 DD 

2758 210000 
275B 310000 
275E FB 
275F 
275F 3E6A 

2761 EF 

2762 C9 

2763 00 

00 00 

2766 0000 
2758 0A 

54 61 70 

64 20 45 
20 0D 

277B 52 

65 61 64 
03 

2785 0A 

57 72 69 
20 03 

2790 46 

49 4C 45 

0006 

279D 46 

69 6C 65 
65 78 74 



02270 
02280 
02290 
00019 
00020 
02300 
02310 ; 
02320 ILLEGAL 
02330 ; 
02340 ABORT 
02350 

02360 EXIT 
02370 OLDSP 
02380 
02390 
00021 
00022 
02400 
02410 ; 
02420 DLEN 



OR 0C0H 

LD C,A 

@@ERROR 

LD A, 26 

RST 40 

JR OLDSP 



JP 



ABORT 



LD HL,-1 

DB 0DDH 

LD HL,0 

LD SP,$-$ 

EI 

@@CKBRKC 

LD A, 106 

RST 40 

RET 



;Abbrev, return 
;Display error 

; and abort 

;For now 

;Show error return 
;Skip LD HL,0 
;Clean exit 
;P/u original SP 
;Re-enable interrupts 
;Clear Break 

: and RETurn 



DB 



0,0,0 



02430 CURPOS DW 
02440 READERR DB 
65 20 52 65 61 
72 72 6F 72 20 

02450 READING DB 
69 6E 67 3A 20 

02460 WRITING DB 
74 69 6E 67 3A 



;Cursor Position 

LF,'Tape Read Error ' ,CR 



'Reading: ' ,ETX 
LF/ Writing: ',ETX 
TILENM',CR 



Filename/ext:d' ,ETX 



27AC 219027 
27AF E5 
27 B0 0606 
27B2 3620 
27B4 23 
27B5 laFB 
27B7 El 
27B8 0606 

27BA lA 
27BB FE0E 
27BD D8 
27BE FE2E 
27C0 C8 
27C1 77 
27C2 23 
27C3 13 
27C4 10F4 



02470 FILENM DB 

4E 4D 0D 

02480 BUFFER DS 

02490 DFBUF DB 

6E 61 6D 65 2F 

3A 64 03 

02500 ; 

02510 ; 

02520 ; GTFILE - Stuff filename from FCB into buffer 

02530 ; DE => FCB with filename contained 

02540 ; 

;HL => Filename buffered 

;Save it 

;Init to all spaces 



;HL => Filename dest 
;Only accept first 6 

;P/u char 

;End ? 

;Yes - done 

; Start of password? 

;Yes - done 

; Stuff into filename buff 

;Bump 



02550 GTFILE 


LD 


HL.FILEP 


02560 


PUSH 


HL 


02570 


LD 


B,6 


02580 CLEAN 


LD 


(HL),' ' 


02590 


INC 


HL 


02600 


DJNZ 


CLEAN 


02610 


POP 


HL 


02620 


LD 


B,6 


02630 ; 






02640 6ETFILN 


LD 


A,(DE) 


02650 


CP 


CR+1 


02660 


RET 


C 


02670 


CP 


1 1 


02680 


RET 


I 


02690 


LD 


(HL),A 


02700 


INC 


HL 


02710 


INC 


DE 


02720 


DJNZ 


6ETFILN 
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27C6 C9 


02730 
02740 ; 


RET 


;Done - RETurn 




02750 ; 


DOINIT - Do initializat 


ion 




02760 ; 






27C7 


02770 DOINIT 


(3@FLAGS 


;IY => System Flags 


27C7 3E65 


00023 


LD A, 101 




27 C9 EF 


00024 
02780 ; 


RST 40 






02790 ; 


Calculate highest mem address of buffer 




02800 ; 






27 CA E5 


02810 


PUSH HL 


;Save command line stuff 


27CB 210000 


02820 


LD HLJ 


;P/u HIGHS 


27 CE 45 


02830 


LD B,L 




27CF FDCB024E 02840 


BIT 1,(IY+CFLAG$) 


;@CMNDR ? 


27 D3 2801 


02850 


JR Z, USEHI 




27 D5 04 


02860 


INC B 


;Use LOWS 


27 D6 


02870 USEHI 


@@HIGH$ 




27D6 3E64 


00025 


LD A, 100 




27 D8 EF 


00026 


RST 40 




27 D9 23 


02880 


INC HL 


;Set hi -mem byte 


27 DA 25 


02890 


DEC H 


;Give some lee-way 


27 DB 25 


02900 


DEC H 




27DC 7C 


02910 


LD A,H 


; & stuff in R/W routines 


27DD 326126 


02920 
02930 ; 


LD (ENUF+1),A 






02940 ; 


Display Log-on message 






02950 ; 






27E0 215328 


02960 


LD HL,HELLO$ 


;Display banner 


27 E3 CD4928 


02970 


CALL DSPLY 




27E6 El 


02980 
02990 ; 


POP HL 


; Process parm line 




03000 ; 


P/u READ or WRITE parm 


if entered 




03010 ; 






27E7 E5 


03020 


PUSH HL 


;Save HL 


27E8 2B 


03030 


DEC HL 


;Back up one 


27E9 23 


03040 CKPLP 


INC HL 


;Bump 


27EA 7E 


03050 


LD A,(HL) 


;P/u char 


27EB FE0E 


03060 


CP CR+1 


;Eol ? 


27ED 380D 


03070 


JR C, DUNLIN 


;Yes - done 


27 EF FE28 


03080 


CP '(' 


;Paramter entered ? 


27F1 20F6 


03090 
03100 ; 


JR NZ, CKPLP 


;No - go til eol 




03110 ; 


Process parameter entry 






03120 ; 




' 


27F3 11C829 


03130 


LD DE,PARMTBL 


;DE => Param table 


27F6 


03140 


@@PARAM 




27F6 3E11 


00027 


LD A, 17 




27F8 EF 


00028 


RST 40 




27F9 C2BB29 


03150 


JP NZ,PRMERR 


;NZ - parameter error 


27FC El 


03160 DUNLIN 
03170 ; 


POP HL 


;Rcvr command ptr 




03180 ; 


If C=N entered then use 


checksum 




03190 ; 






27FD 01FFFF 


03200 CPARM 


LD BC,0FFFFH 


; Default no checksum 


2800 04 


03210 


INC B 


;User requesting checksum? 


2801 C0 


03220 


RET NZ 


;Yes, return 


2802 3EC9 


03230 


LD A,0C9H 


;Init RET opcode 


2804 32242B 


03240 


LD (CHKERR+1),A 


; Stuff into Checksum error 


2807 C9 


03250 
03260 ; 


RET 






03270 ; 


PRSOUR/PRDEST - Prompt 


for Source & Destination 
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2808 E5 

2809 210A29 
280C 0617 
280E 1806 

2810 E5 

2811 212329 
2814 0606 
2816 CD4928 

2819 E5 
281A CD3528 
281D 

281D 3E4E 
281F EF 

2820 El 

2821 20F3 

2823 El 

2824 C9 



2825 E5 

2826 21F128 
2829 0606 
282B 18E9 
282D E5 
282E 214129 
2831 0617 
2833 18E1 



2835 D5 

2836 C5 

2837 21312E 
283A 

283A 3E09 
283C EF 
283D DA5427 

2840 CI 

2841 Dl 

2842 C9 

2843 D5 
2844 

2844 3E02 

2846 EF 

2847 1804 

2849 D5 
284A 



284A 3E0A 
284C EF 
284 D Dl 
284E C8 
284 F C 3462 7 

2852 00 



03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
00029 
00030 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
00031 
00032 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
00033 
00034 
03690 
03700 
03710 
03720 
00035 
00036 
00037 
00038 
00039 
03730 
03740 
03750 
03760 
03770 



PRSOUR 

PRDEST 
DO INPUT 



PUSH 

LD 

LD 

JR 

PUSH 

LD 

LD 

CALL 

PUSH 

CALL 

(B^FSPEC 

LD 

RST 

POP 

JR 

POP 

RET 



HL 

HL,DSF 

B,23 

DO INPUT 

HL 

HL,TDF 

B,6 

DSPLY 

HL 

INPUT 

A, 78 

40 

HL 

NZ,DOINPUT 

HL 



;Save HL 

;"Disk Source Filename" 

;23 chars max 

;Save HL 

;"Tape Dest Filename" 

;6 char max 

; Display prompt 

;Save prompt start 

;Input 

;Legal ? 



;HL => Prompt string 
;Reprompt on bad name 
;Recover ptr 
: and return 



PRS0UR2/PRDEST2 - Prompt for READ source/dest 



PRS0UR2 



PRDEST2 



INPUT 



DSP 



DSPLY 



EXDSP 



PUSH 

LD 

LD 

JR 

PUSH 

LD 

LD 

JR 



HL 

HL,TSF 

B,6 

DO INPUT 

HL 

HL,DDF 

B,23 

DO INPUT 



;Save HL 

;"Tape Source filename" 

;6 char max 

;Save HL 

;"Disk Destination file" 

;23 char max 



INPUT - Line input routine 



PUSH DE 

PUSH BC 

LD HL,INBUFF 

(3(3KEYIN 

LD A,9 

RST 40 

JP C, ABORT 

POP BC 

POP DE 

RET 



PUSH 

@@DSP 

LD 

RST 

JR 

PUSH 

@@DSPLY 

IFEQ 

LD 

ENDIF 

LD 

RST 

POP 

RET 

JP 



COUNT DB 



DE 

A,2 

40 

EXDSP 

DE 

00H,1 
HL. 

A. 10 

40 

DE 

Z 

lOERR 





;Save DE 

; and BC 

;HL => Input buffer 

; Input line 



;<BREAK> abort 
;Restore regs 



;Save DE 
;Output char 



;Save DE 

; Display message 



;Rcvr DE 
;RETurn if OK 
; else abort 

;Count 
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2853 IC 

IF 54 41 
285C 



285C 20 

2D 20 36 

2D 20 43 

67 68 74 

2F 38 33 

79 20 4C 
6C 

2886 20 

53 79 73 

20 49 6E 

20 20 20 

289B 41 

6C 6C 20 

73 20 52 
65 64 2E 
6E 73 65 
32 2F 38 

28C3 20 

74 6F 20 
78 78 78 
78 78 78 



03780 ; 

03790 HELLO$ DB 

50 45 31 30 30 

03800 *6ET CLIENT; 

04240 ; CLIENTS/ASM - 

04250 ; 

04260 DB 

2E 32 2E 30 20 

6F 70 79 72 69 

20 31 39 38 32 

2F 38 34 20 62 

6F 67 69 63 61 



1CH,1FH,'TAPE100' 

3 

File to establish sign-on headers 

' - 6.2.0 - Copyright 1982/83/84 by Logical' 



28 DB 3C 
52 
20 
20 

28F1 54 
61 
63 
70 

290A 44 
69 
63 
70 

2923 54 
61 
69 
46 
20 

2941 44 
69 
69 
46 
20 

295F 52 
65 
73 
50 
4E 

297D 0E 
03 

297F 50 
61 
20 



3E 65 
3C 57 
3F 20 

70 65 
65 20 
65 63 

73 6B 
65 20 
65 63 

70 65 
6E 61 
69 6C 
3F 20 

73 6B 
6E 61 
69 6C 
3F 20 

61 64 
65 74 
72 65 
54 45 



72 61 
65 72 



04270 
74 65 

63 2E 
0A 

04280 
04290 
52 69 
65 73 
20 4C 

64 20 
33 2F 
04300 
78 78 
78 78 

78 78 
03810 
03820 
61 64 
3E 72 
0E 03 
03830 
20 53 
46 69 
20 3F 
03840 
20 53 
46 69 
20 3F 
03850 
20 44 
74 69 

65 73 
0E 03 
03860 
20 44 
74 69 
65 73 
0E 03 
03870 

79 20 
74 65 
73 73 
52 3E 
03880 



DB 



6D 73 2C 
20 20 20 



DB 



DB 



67 68 74 

65 72 76 

69 63 65 

31 39 38 
38 34 

78 78 78 

78 78 78 
0A 0D 



RDORWR DB 
20 6F 72 

69 74 65 

TSF DB 

6F 75 72 

6C 65 73 

20 0E 03 
DSF DB 

6F 75 72 

6C 65 73 

20 0E 03 
TDF DB 

65 73 74 

6F 6E 20 

70 65 63 

DDF DB 
65 73 74 
6F 6E 20 
70 65 63 

TREADY DB 
43 61 73 
20 26 20 
20 3C 45 

DB 



' Systems, Inc. 



,10 



'All Rights Reserved. Licensed 1982/83/84' 



03890 PRMERR$ DB 
6D 65 74 65 72 
72 6F 72 0A 0D 



' to xxxxxxxxxxxxxxxxxx' sl0,13 

'<R>ead or <W>rite ? ',CURON,ETX 
'Tape Source Filespec ? ',CURON,ETX 
'Disk Source Filespec ? ',CURON,ETX 
'Tape Destination Filespec ? ',CURON,ETX 

'Disk Destination Filespec ? ',CURON,ETX 

'Ready Cassette & Press <ENTER>' 

CURON,ETX 

'Parameter error ',LF,CR 
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2990 46 

69 6C 65 
6C 61 72 
20 66 69 
61 76 61 
65 20 

29B3 6D 

65 6D 6F 



29 BB 217F29 

29 BE DO 

29 H^ 219029 

29C2 



29C2 3E0C 
29C4 EF 
29C5 C35427 



29C8 80 
29C9 55 
29CA 57 

52 49 54 
29CF 00 
29 D0 E629 

29 D2 54 
29 D3 52 

45 41 44 
29 D7 00 
29 D8 E429 

29 DA 54 
29 DB 43 

48 45 43 
29E0 00 
29E1 FE27 

29 E3 00 



UTILITY Files 

03900 TOOBIG$ DB 
20 74 6F 6F 20 
67 65 20 74 6F 
74 20 69 6£ 20 
69 6C 61 62 6C 



DB 



TAPE 100 - LS-DOS 6,2 Page 00009 

'File too large to fit in available ' 



'memory' ,LF,CR 



Error Exit routine 



00040 



00042 
00043 



Parameter Table 



29E4 
29E6 

29E8 



00 00 00 

00 00 00 

00 00 00 

00 00 00 
00 



; "Parameter Error" 

;Skip 

;"File too Big" 

; Display error 



2A1A 



03910 

72 79 0A 0D 

03920 ; 

03930 ; 

03940 ; 

03950 ; 

03960 PRMERR LD HL,PRMERR$ 

03970 DB 0DDH 

03980 TOOBIG LD HL,TOOBIG$ 

03990 ; 

@@LOGOT 

IFEQ 00H,1 

LD HL, 

ENDIF 

LD A, 12 

RST 40 

04010 JP ABORT ;Good bye 

04020 ; 
04030 ; 
04040 ; 

04050 PARMTBL DB 80H ;6.x @PARAM 

04060 DB FLAG! ABB !5 

04070 DB 'l/^ITE' 

45 

04080 WRESP DB 

04090 DW WPARM 

04100 ; 

04110 DB FLAG! ABB! 4 

04120 DB 'READ' 

04130 RRESP DB 

04140 DW RPARM 

04150 ; 

04160 DB FLAG! ABB !4 

04170 DB 'CHECK' 

4B 

04180 CRESP DB 

04190 DW CPARM+1 

04200 ; 

04210 DB 

04220 ; 

04230 RPARM DW 

04240 WPARM DW 

04250 ; 

04260 DC 50,0 ; Patch space 

00 00 00 00 00 

00 00 00 00 00 

00 00 00 00 00 

00 00 00 00 00 

00 00 00 00 00 

00 00 00 00 00 

04270 ; 

04280 *GET TAPE100A:3 

04310 ;TAPE100A/ASM - Tape I/O routines 
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UTILITY Files 



TAPE 100 - LS-DOS 6.2 



Page 00010 



2A1A F3 
2A1B CDB52D 
2A1E DBE0 
2A20 DBEC 
2A22 3E02 
2A24 D3EC 
2A25 3E03 
2A28 D3E18 
2A2A C9 



2A2B FD7E16 
2A2E D3E0 
2A30 DBFF 
2A32 FD7E0C 
2A35 D3EC 
2A37 CDB52D 
2A3A C9 



2A3B 215F29 
2A3E CD4928 
2A41 0601 
2A43 CD3528 
2A46 C3BC2C 



2A49 21002F 
2A4C 24 
2A4D CD582A 
2A50 C8 
2A51 3E00 
2A53 BC 
2A54 20F6 
2A56 B7 
2A57 C9 



2A58 CD392B 
2A5B CDA72B 
2A5E FE8D 
2A60 C25127 
2A63 110000 

2A66 CDA72B 
2A69 77 



2A6A FEIA 
2A6C 2005 
2A6E BA 
2A6F 2802 
2A71 57 



04320 ; 

04330 ; 

04340 CASSON 

04350 

04360 

04370 

04380 

04390 

04400 

04410 

04420 

04430 ; 

04440 ; 

04450 ; 

04460 CASSOFF 

04470 

04480 

04490 

04500 

04510 

04520 

04530 ; 

04540 ; 

04550 ; 

04560 PRTAPE 

04570 

04580 NOTENT 

04590 



CASSON - Turn Cassette Motor On 

DI ; Disable interrupts 

CALL SWAP38 ;Grab RST 38H vector 

IN A, (PORTE0) ;Clear any latches 

IN A,(mDOUT) jClear any latches 

LD A, 2 ;Motor on, slow speed 

OUT (WDOUT),A ;Turn on motor 

LD As3 ;Disable other interrupts 

OUT (PORTE0),A 

RET 

CASSOFF - Turn off Cassette Motor 



04610 ; 
04620 ; 
04630 ; 
04640 RDDAT 
04650 RDDAT2 
04660 
04670 
04680 EOTF 
04690 
04700 
04710 
04720 
04730 ; 
04740 ; 
04750 ; 
04760 ; 
04770 RDDATA 
04780 
04790 
04800 
04810 
04820 ; 
04830 RDLPl 
04840 
04850 ; 
04860 ; 
04870 ; 
04880 
04890 
04900 
04910 
04920 



LD 

OUT 

IN 

LD 

OUT 

CALL 

RET 



A,(IY+WRMASK) 

(PORTE0),A 

A,(PORTFF) 

A,(IY-s-MODMASK) 

(MODOUT),A 

SWAP 38 



;P/u original 
;Set up R/F interrupt 
;Clear 1500 bd interrupts 
;Turn off motor 

:Restore RST 38H vector 



PRTAPE - Prompt for "Tape Ready" & turn motor on 



LD HLJREADY 

CALL DSPLY 

LD B,l 

CALL INPUT 

JP CURSOFF 



; "Ready cassette & <ENTER> 

;Just 1 char 
;<BREAK> or <ENTER> 
;Turn off Cursor & RETurn 



RDDAT - Read in a tape file 



LD 

INC 

CALL 

RET 

LD 

CP 

JR 

OR 

RET 



HL,MEM=-100H 

H 

RDDATA 

Z 

A,$-$ 

H 

NZ,RDDAT2 

A 



;HL => Start of file 
;Bump hi -byte 
;Read a block 
;Eof ? 
;At top of memory ? 

;No 

;Top of mem - 

;RETurn NZ 



RDDATA - Read in a block of Data 
HL => Destination of Block 

CALL RDSYNC ;Read sync field 

CALL RDBYTE ;Read a byte 

CP SDH ;Legal ? 

JP NZ, ILLEGAL ;No - bad news 

LD DE,0 ;D=EOF flag, E = checksum 

CALL RDBYTE ;Read a byte 

LD (HL),A ;Stuff into buffer 

Check for End of File byte X'lA' 



CP lAH 

JR NZ, AFTER 

CP D 

JR Z, AFTER 

LD D,A 



;Eof ? 

;No 

;Been here before ? 

;First time ? 

;Set D = lAH 
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•JTl 


AJ7 Files 


TAPE 100 ~ LS»DOS 6.2 Page 0001 


2A72 45 


04930 
04940 


LD 


B,L 


;Yes - set B = pos 




04950 


; Add byte to checksum 






04960 


3 






2A73 83 


04970 AFTER ADD 


A,E 


;Add checksum 


2A74 5F 


04980 


LD 


E,A 


;Xfer back to E 


2A75 2C 


04990 


INC 


L 


;Bump 


2A76 20EE 


05000 


JR 


NZ.RDLPl 




2A78 ED44 


05010 


NEG 




;Negate checksum 


2A7A 5F 


05020 
05030 


LD 

3 


E,A 


;Stuff back in E 




05040 


; Verify Checksum byte 






05050 


9 






2A7B CDA72B 


05060 


CALL 


RDBYTE 


;Read in byte 


2A7E BB 


05070 


CP 


E 


;Checksums match ? 


2A7F C4232B 


05080 
05090 


CALL 


NZ.CHKERR 


;No - checksum error 




05100 


; Stuff 


EOF offset byte i 


nto WRTDEST routine 




05110 








2A82 7C 


05120 


LD 


A,H 


;P/u eom 


2A83 325C2D 


05130 


LD 


(E0TF2+1),A 


; Stuff into WRTDEST 


2A86 78 


05140 


LD 


A,B 


;P/u byte 


2A87 3C 


05150 


INC 


A 


;Bump 


2A88 32512D 


05160 
05170 


LD 


(0FFSET+1),A 






05180 


; Read f 


)ast 20 dunmy zeroes 




05190 








2A8B 0614 


05200 


LD 


B.20 




2A8D CDA72B 


05210 F 


^DLP2 CALL 


RDBYTE 




2A90 10FB 


05220 
05230 , 


DJNZ 


RDLP2 






05240 . 


Set Z 


flag if at EOF 






05250 , 








2A92 7A 


05260 


LD 


A,D 


;Eof ? 


2A93 FEIA 


05270 


CP 


lAH 




2A95 C9 


05280 
05290 , 


RET 




;Done 




05300 ; 


RDBIT 


- Read a Bit from 


Cassette 




05310 ; 








2A96 0E00 


05320 F 


.DBIT LD 


CJ 


;Init count = 


2A98 FB 


05330 


EI 




;Back on 


2A99 0C 


05340 F 


.BLP INC 


C 


;Bump count 


2A9A 3A40F4 


05350 


LD 


A,(BREAKLC) 


;<BREAK> hit ? 


2A9D E604 


05360 


AND 


4 




2A9F 28F8 


05370 
05380 ; 


JR 


Z,RBLP 


;No - wait for interruf 




05390 ; 


<BREAK> key hit - Abort 






05400 ; 








2AA1 F3 


05410 


DI 




;Cancel next interrupt 


2AA2 CDA92D 


05420 


CALL 


DISDOKI 


;Put *D0 & *KI back 


2AA5 CD2B2A 


05430 


CALL 


CASSOFF 


;Turn off cassette 


2AA8 0E0D 


05440 


LD 


C,CR 


;End line 


2AAA CD4328 


05450 


CALL 


DSP 




2AAD C35427 


05460 
05470 ; 


JP 


ABORT 


;Go to abort routine 




05480 ; 


Interr 


upt Handler - Comes from RST 38 




05490 ; 








2AB0 C3B32A 


05500 R 


ST38V JP 


$+3 


;Wait 


2AB3 F5 


05510 


PUSH 


AF 


;Save status 


2AB4 DBE0 


05520 


IN 


A,(PORTE0) 


;Read port 


2AB6 IF 


05530 


RRA 




;Bit low ? 
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UT 




.'.rT-^r^ 


I: ' / J '■ 


f ". '- ' r- % 


-j f\ r K 


.v:^56s/ 


2 PM . 


I'TF-Jf/. 


2ABF 


•-^r-BBf'" 


f, f f, 


cr.,5p(/ 




{!r.60iQ 




■'l,r," Q. 




[lo2f 


'l, ■'•, 


r^'c?f' 



JTV r^l 



ies 



■- i r C < . 






&J 



'P5C 



_ - ^^. ,,. 

•■'Pi/ 

: '■:■(' 



'■/-•r:-' ' 


P::m 


,-' /-' [;■£. 


'581(- 




if'582(^ 




h5B39 




05840 


2AD5 Fl 


05850 


2AD6 FB 


05860 


2AD7 C9 


05870 




05880 




05890 




05900 


2AD8 2A6627 


05910 


2ADB 119727 


05920 


2ADE CD392B 


05930 




05940 




05950 




05960 


2AE1 CDA72B 


05970 


2AE4 FE9C 


05980 


2AE6 20F0 


05990 




06000 


2AE8 010006 


06010 




06020 


2AEB CDA22B 


06030 


2AEE 77 


06040 


2AEF 12 


06050 


2AF0 23 


06060 


2AF1 13 


06070 


2AF2 10F7 


06080 




06090 




06100 




06110 


2AF4 060A 


06120 


2/^6 CDA22B 


06130 


2AF9 10FB 


06140 



RET 



TAPE 100 - 15, "fK 

NC,BITiLOW 

NC.BITILOW 
AF 

bit image - br 

EJ. 

BITlLOW+2 

EJ 

A.ROUTOFF 

A.C 

CsA 

-.rbi 0' c ' ■' : 

:'.. (por irr 
Ar- 



Page 00012 



f-'Y ?■ 



WAIT INT POP 
EI 
RET 



Not the right interrupt - wait for next 
AF 



;Recover status 

; and wait for next 

; interrupt 



RDHEAD - Read a TAPE100 header 



RDHEAD LD 
LD 



HL,(CURPOS) 
DE, BUFFER 
RDSYNC 



CALL 

Read in Header Type byte 



;P/u cursor position 
; Buffer 
;Read in SYNC 



RFNLP 



CALL RDBYTE ;Read type byte 

CP 9CH ;Text type ? 

JR NZ, RDHEAD ;No - try again 

LD BC,600H ;B=6 bytes. Checksum = 

CALL RDBYTEC ;Read byte 

LD (HL),A ;Save byte 

LD (DE),A ;Stuff in buffer 

INC HL ;Bump cursor pos 

INC DE ;Bump buffer ptr 

DJNZ RFNLP 



LD 
BOGUSLP CALL 
DJNZ 



Next ten bytes are unused 

;Read byte & checksum 



B.ia 

RDBYTEC 

BOGUSLP 
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UTILITY Fi 
06150 ; 


les 


TAPE 100 - LS- 


"DOS 6o2 Page 00013 




06160 ; 


Negate 


checksum 






06170 ; 








2AFB 79 


06180 


LD 


A,C 


;P/u checksum 


2AFC ED44 


06190 


NEG 




; Negate it 


2AFE 4F 


06200 


LD 


C,A 




2AFF CDA72B 


06210 


CALL 


RDBYTE 


;Read in Checksum byte 


2B02 B9 


06220 


CP 


C 


;Match ? 


2B03 C4232B 


06230 
06240 ; 


CALL 


NZ, CHKERR 


;No - checksum error 




06250 ; 


Read in 


twenty zeros 






06260 ; 








2B06 0614 


06270 


LD 


B,20 




2B08 CDA72B 


06280 DUMBYT 


CALL 


RDBYTE 




2B0B 10FB 


06290 
06300 ; 


DJNZ 


DUMBYT 






06310 ; 


Check i 


f this is the 


correct filename 




06320 ; 








2B0D m 


06330 CORRECT 


NOP 




;X'C9' if first filename 


2B0E 119727 


06340 


LD 


DE, BUFFER 


;Is this the one ? 


2B11 219027 


06350 


LD 


HL.FILENM 




2B14 0606 


06360 
06370 ; 


LD 


B,6 


;6 chars in fi lename 




06380 ; 


Loop to 


compare (HL) 


to (DE) 




06390 ; 








2B16 lA 


06400 CKFILE 


LD 


AJDE) 


;P/u header byte 


2B17 CDB32C 


06410 


CALL 


CONV UC 


;Convert to U/C 


2B1A BE 


06420 


CP 


(HL) 


; Match ? 


2B1B 23 


06430 


INC 


HL 




2B1C 13 


06440 


INC 


DE 




2B1D C2D82A 


06450 


JP 


NZ,RDHEAD 


;No - try again 


2B20 10F4 


06460 


DJNZ 


CKFILE 




2B22 C9 


06470 
06480 ; 


RET 




;Yes - RETurn 




06490 ; 


Checksum error - Either ignore it or "C" 




06500 ; 








2B23 00 


06510 CHKERR 


NOP 




jRETurn or NOP 


2B24 F3 


06520 


DI 




; Disable interrupts 


2B25 3E43 


06530 


LD 


A,'C' 


;<C>hecksum error 


2B27 324FF8 


06540 CHKERR2 LD 


(VIDE0+79),A 




2B2A CDA92D 


06550 


CALL 


DISDOKI 


; Bring back RAM 


2B2D CD2B2A 


06560 


CALL 


CASSOFF 


;Turn off motor 


2B30 216827 


06570 


LD 


HL,READERR 


;"Tape Read Error!" 


2B33 CD4928 


06580 


CALL 


DSPLY 




2B36 C35427 


06590 
06600 ; 


JP 


ABORT 


;Good bye 




06610 ; 


RDSYNC 


- Read Cassette SYNC byte field 




06620 ; 










06630 ; 


Save Registers 






06640 ; 








2B39 E5 


06650 RDSYNC 


PUSH 


HL 


;Save regs 


2B3A D5 


06660 


PUSH 


DE 




2B3B C5 


06670 


PUSH 


BC 




2B3C 3E01 


06680 


LD 


A,l 


;Set interrupt vector 


2B3E D3E0 


06690 
06700 ; 


OUT 


(PORTE0),A 






06710 ; 


Read in 


128 bits (16 


bytes) initially 




06720 ; 








2B40 0680 


06730 RDSYNC2 


LD 


B,80H 


;Read 128 bits (16 bytes) 


2B42 CD962A 


06740 RBTLP 


CALL 


RDBIT 


;Read bit 


2B45 79 


06750 


LD 


A,C 


;P/u count value 
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les 


TAPE 100 - LS 


-DOS 6.2 Page 00014 


2B46 FE0F 


06760 


CP 


TOOSHRT 


;Is this a bit ? 


2B48 38F6 


06770 


JR 


C,RDSYNC2 


;No - didn't find a bit 


2B4A FE3E 


06780 


CP 


TOOLONG 


;Is this a bit ? 


2B4C 30F2 


06790 


JR 


NC,RDSYNC2 


;No - wait for bit 


2B4E 10F2 


06800 
06810 ; 


DJNZ 


RBTLP 


;Legal bit - dec count 




06820 ; 


Now check parity of 


next 128 bits 




06830 ; 








2B50 210000 


06840 RESCNT 


LD 


HL,0 


;H = 0's count, L = I's 


2B53 0640 


06850 
06860 ; 


LD 


B,40H 






06870 ; 


Read i 


n 3 bits 






06880 ; 








2B55 CD962A 


06890 LOOP 


CALL 


RDBIT 


;Read bit 


2B58 CD962A 


06900 


CALL 


RDBIT 


;Read bit 


2B5B 51 


06910 


LD 


D,C 


;Save count 


2B5C CD962A 


06920 
06930 ; 


CALL 


RDBIT 


;Read bit 




06940 ; 


Calculate Difference 


between last 2 bits 




06950 ; 








2B5F 7A 


06960 


LD 


A,D 


;P/u last bit 


2B60 91 


06970 


SUB 


C 


;Subtract current bit 


2B61 3002 


06980 


JR 


NC, ABSVAL 




2B63 ED44 


06990 
07000 ; 


NEG 




;Change to ABS value 




07010 ; 


If Val 


ue < DIFFER then Bit = 1, else Bit = 




07020 ; 








2B65 FE0D 


07030 ABSVAL 


CP 


DIFFER 


;Bit = 1 ? 


2B67 3803 


07040 


JR 


CBITl 


;Yes - bump Bit 1 count 


2B69 24 


07050 


INC 


H 


;No - bump Bit count 


2B6A 1801 


07060 


JR 


DODJ 


;Back to loop 


2B6C 2C 


07070 BITl 


INC 


L 


;Bump Bit 1 count 


2B6D 10E6 


07080 DODJ 
07090 ; 


DJNZ 


LOOP 


;Dec count - go to loop 




07100 ; 


Check 


if H (0's count) & L (I's count) = 40 




07110 ; 








2B6F 3E40 


07120 


LD 


A,40H 


;Is H = 64 ? 


2B71 BC 


07130 


CP 


H 




2B72 280A 


07140 


JR 


Z, CHKMARK 


;Yes - check for marker 


2B74 BD 


07150 


CP 


L 


;Is L = 64 ? 


2B75 20D9 


07160 
07170 ; 


JR 


NZ, RESCNT 


;No - Reset count 




07180 ; 


Set interrupt Vector 


& discard 1 bit 




07190 ; 








2B77 3E02 


07200 


LD 


A,2 


;Set interrupt vector 


2B79 D3E0 


07210 


OUT 


(PORTE0),A 




2B7B CD962A 


07220 
07230 ; 


CALL 


RDBIT 


;Read bit 




07240 ; 


Rotate 


each bit read 


in D & check if = X'7F' 




07250 ; 








2B7E 1600 


07260 CHKMARK 


LD 


D,0 


;Set byte = 


2B80 CD962A 


07270 GETBIT 


CALL 


RDBIT 


;Read next bit 


2B83 CD8F2B 


07280 


CALL 


ROTBYTE 


;Rotate into Byte (D) 


2B86 7A 


07290 


LD 


A,D 


;P/u byte 


2B87 FE7F 


07300 


CP 


7FH 


; Marker byte ? 


2B89 20F5 


07310 
07320 ; 


JR 


NZ, GETBIT 


;No - get another bit 




07330 ; 


Found 


marker byte - Restore Regs & RETurn 




07340 ; 








2B8B CI 


07350 


POP 


BC 


;Restore Registers 


2B8C Dl 


07360 


POP 


DE 
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ir-L 


TY Fi" 


es 


TAPE IP - IS -DOS 


5.2 Page 00015 


2?ll \ 


!?737P 


POP 


HL 




u. f "" '- ' ^ 


(?i73&r! c 


RET 




Fr, ■ 




p40(? ; 


ROT BYTE 


» t-ftr- \ -' ['' -0 


up' " : '■[■'z" ■ ' ' " ;■ ' 




(474l(i : 








2P8F :o 


ft742P s^,''' fvt: 


L[ 


A. '■ ; 


F ' .. ::o ■ 


2PSP FE2: 


p;745r/ 


CP 


kSFJ- F' 


El" = ft cr 2 I 


?bl2 Ch'j'- 


e-"^^!? 


P>. 






li'll '^r' 


P745r/ 




TC 7- ' ; 


'.■''■ 


ct rC "'' ... s 


[t~L['Q 


.:f 


F riiF.'i : 




■:F9i '-.; 


Qr:frv 


'■ r 






2BST ' ; 


f/'7,^;P 


C £-£■-' 


c :- 




rr.'r'i ' . 


f''7r?!'' 


d: 






2[Xi yrL: 


ir;,-'.," 


\ r 


F. ' 




2rr" '■' ' 




, '- 


CF '"■ ' 






f;;"Fus; 


f.F" 




r '< i.f ",'. ' i ;'i'r 




p7nM' 








a.t.>. %y 


i77c-c.s? .; • ":. 


'"A! ' 


n , 






r7r:/P . 
!?'•? f C ("^ ; 
Pi764(? ; 


AF [ 


^ f- 




2BA7 D5 


07650 RDBYTE: 


PUSH 


DE ; 


Save regs 


2BA8 C5 


0766P 


PUSH 


BC 




2BA9 CD962A 


07670 


CALL 


RDBIT ; 


Get bogus bit 


2BAC 1600 


07680 


LD 


DJ ; 


I nit byte = 


2BAE 0608 


07690 
07700 ; 


LD 


B,8 ; 


8 bits to read 


2BB0 CD 962 A 


07710 RDBLP 


CALL 


RDBIT 


Read a bit 


2BB3 CD8F2B 


07720 


CALL 


ROTBYTE 


Rotate into D 


2BB6 10F8 


07730 


DJNZ 


RDBLP 






07740 ; 












07750 ; 




Add to 


Byte count 






07760 ; 










2BB8 3A5228 


07770 


LD 


A, (COUNT) 


P/u count 


2BBB 3C 


07780 


INC 


A 


& inc it 


2BBC E63F 


07790 


AND 


3FH 


,Ck if the 64th 


2BBE 325228 


07800 


LD 


(COUNT), A 


Save the count 


2BC1 2008 


07810 
07820 ; 


JR 


NZ, NOTBLNK 




2BC3 3A4FF8 


07830 


LD 


A,(VIDE0+79) 


; Blink eyery 54 


2BC6 EE0A 


07840 


XOR 


0AH 




2BC8 324FF8 


07850 
07860 ; 


LD 


(VIDE0+79),A 




2BCB 7A 


07870 NOTBLNK 


LD 


A,D 


;Xfer byte to A 


2BCC 1800 


07880 
07890 ; 


JR 


NEXTINS 


;Timing 


2BCE CI 


07900 NEXTIN5 


> POP 


BC 


;Restore BC & DE 


2BCF Dl 


07910 


POP 


DE 




2BD0 C9 


07920 


RET 




;Done 




07930 












07940 




WRBIT 


- Write a bit to C 


assette 




07950 












07960 




Set DE 


= Delay Count for 


bit 




07970 
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2BD1 CB01 


/j/r)8'/J ji' .i; 


•;_i_r_ 


C 


;Get bit 


2BD3 3» 


y/99y 


' p 


NO, NOPULS 


;NC - bit i 


2BD5 111712 


mm) ' . 


L.D 


DE,DElAY1 


; Del ay for bit 1 


2BD8 1803 


18010 


JR 


DEL LP 


;Go to delay 


2BDA 112F2B 


08020 NOPULS 
08030 ; 


LD 


DE.DELAYi 


; Del ay for bit=0 




08040 ; 


Delay 


18 counts for 1 


5 43 counts for 




08050 ; 








2BDD 15 


08060 DEL LP 


DEC 


D 


;Dec count 


2BDE 20FD 


08070 


JR 


NZsDEL LP 




2BE0 3E02 


08080 


LD 


A, 2 


;0 Volts to tape 


2BE2 D3FF 


08090 


OUT 


(PORTFF),A 




2BE4 ID 


08100 DEL LP^ 


I DEC 


E 


;Secondary delay 


2BE5 20FD 


08110 


JR 


NZ.DEL LP2 




2BE7 3E01 


08120 


LD 


A.l - 


;0o85 volts to tape 


2BE9 D3FF 


08130 


OUT 


(PORTFF),A 




2BEB C9 


08140 
08150 ; 


RET 




;Done 




08160 ; 


WRHEAD - Write a cassette header 




08170 ; 








2BEC CD602C 


08180 WRHEAD 
08190 ; 


CALL 


WRSYNC 


; Write SYNC pattern 




08200 ; 


Write 


Text header type byte X'9C' 




08210 ; 








2BEF 1600 


08220 


LD 


DJ 


;Init checksum = 


2BF1 0E9C 


08230 


LD 


C,9CH 


;Text header type byte 


2BF3 CD512C 


08240 
08250 ; 


CALL 


WRBYTE 


; Write type byte 




08260 ; 


Write 


Filename in header block 




08270 ; 








2BF6 0606 


08280 


LD 


B,6 


;B = 6 chars 


2BF8 219027 


08290 


LD 


HL.FILENM 


;HL => Filename 


2BFB 4E 


08300 FILELP 


LD 


C,(HL) 


|P/u filename character 


2BFC CD4A2C 


08310 


CALL 


WRBYTEC 


; and write it 


2BFF 23 


08320 


INC 


HL 


;Bump count 


2C00 10F9 


08330 
08340 ; 


DJNZ 


FILELP 






08350 ; 


Write 


10 fi Her bytes 






08360 ; 








2C02 060A 


08370 


LD 


B,10 




2C04 CD4A2C 


08380 BOGUS 


CALL 


WRBYTEC 




2C07 10FB 


08390 
08400 ; 


DJNZ 


BOGUS 






08410 ; 


Write 


checksum byte & 20 dummy X'00' bytes 




08420 ; 








2C09 7 A 


08430 


LD 


A,D 


;P/u checksum 


2C0A ED44 


08440 


NEG 






2C0C 4F 


08450 


LD 


C,A 


; & xfer to C 


2C0D CD512C 


08460 


CALL 


WRBYTE 


;Write Checksum byte 


2C10 010014 


08470 


LD 


BC,1400H 


;B = 20 bytes, C = 


2C13 CD512C 


08480 DUMMY 


CALL 


WRBYTE 


; Write byte 


2C16 10FB 


08490 


DJNZ 


DUMMY 




2C18 C9 


08500 
08510 ; 


RET 




;Get back quick 




08520 ; 


WRDAT 


- Write a chunk 


of data to cassette 




08530 ; 








2C19 210030 


08540 WRDAT 


LD 


HL,MEM 


;HL => Mem start 


2C1C CD272C 


08550 WRDAT2 


CALL 


WRDATA 


;Write Block 


2C1F 24 


08560 


INC 


H 




2C20 3AF52D 


08570 


LD 


A,(FCBl+4) 


;Finished ? 


2C23 BC 


08580 


CP 


H 
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2C24 20F6 
2C26 C9 



2C27 CD502C 
2C2A 0E8D 
2C2C CD512C 



2C2F AF 
2C30 4E 
2C31 81 
2C32 F5 
2C33 CD512C 
2C36 Fl 
2C37 2C 
2C38 20F6 



2C3A ED44 
2C3C 4F 
2C3D CD512C 



2C40 0614 

2C42 mw 

2C44 CD512C 
2C47 10F9 
2C49 C9 



2C4A CD512C 
2C4D 79 
2C4E 82 
2C4F 57 
2C50 C9 



2C51 C5 
2C52 D5 
2C53 CDDA2B 
2C56 0608 
2C58 CDD12B 
2C5B 10FB 
2C5D Dl 
2C5E CI 
2C5F C9 



2C60 F3 
2C61 C5 
2C62 0680 



08590 
08600 
08610 ; 
08620 ; 
08630 ; 
08640 ; 
08650 WRDATA 
08660 
08670 
08680 ; 



JR 
RET 



NZ,WRDAT2 



;No - write another 
;Yes - RETurn 



WRDATA - Write a data Block 

HL => 256 byte block of data (page boundary) 



CALL WRSYNC 
LD C,8DH 
CALL WRBYTE 



;Write sync pattern 
;Write X'8D' type byte 



Write 256 byte block of data 



08710 

08720 WBLP 

08730 

08740 

08750 

08760 

08770 

08780 

08790 ; 

08800 ; 

08810 ; 

08820 

08830 

08840 

08850 ; 

08860 ; 

08870 ; 

08880 

08890 WDLP 

08900 

08910 

08920 

08930 ; 

08940 ; 

08950 ; 

08960 WRBYTEC 

08970 

08980 

08990 

09000 

09010 ; 

09020 ; 

09030 ; 

09040 ; 

09050 WRBYTE: 

09060 

09070 

09080 

09090 WRBTLP 

09100 

09110 

09120 

09130 

09140 ; 

09150 ; 

09160 ; 

09170 WRSYNC 

09180 

09190 



XOR 
LD 
ADD 
PUSH 

CALL 



INC 
JR 



A 

C,(HL) 

A,C 

AF 

WRBYTE 

AF 

L 

NZ,WBLP 



Write checksum byte 



NEG 

LD 

CALL 



WRBYTE 



;Set checksum = 
;P/u byte 
;Add checksum 
;Save A 
; Write byte 
;Recover checksum 
;Bump count 



;Negate checksum 
;Write checksum byte 



Write 20 durmiy bytes - X'00' 

LD Bs20 ;Write 20 dumny zeroes 

LD CJ 

CALL WRBYTE 

DJNZ WDLP 

RET ;Done 

WRBYTEC - Write a byte & add checksum 



CALL WRBYTE 

LD A,C 

ADD A,D 

LD D,A 
RET 



; Write byte 
;P/u byte 
;Add checksum 
;New checksum 
;And RETurn 



WRBYTE - Write a byte to Cassette 
C => Byte to Output 



PUSH BC 

PUSH DE 

CALL NOPULS 

LD B,8 

CALL WRBIT 

DJNZ WRBTLP 

POP DE 

POP BC 
RET 



;Save regs 

;Write durmiy pulse 
;8 bits to write 
;Write bit 

;Restore regs 



WRSYNC - Write a SYNC pattern to Cassette 



DI 

PUSH BC 

LD B,80H 



;Disable interrupts 
;Save BC 
; Del ay 
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2C64 


09200 




eiaPAUSE 




2C64 3E10 


00045 




LD 


A,16 




2C66 EF 


00046 




RST 


40 




2C67 015500 


09210 
09220 




LD 


BC,0055H 


;B = 256, C = X'55' 




09230 




Write 


SYNC bytes - X' 


55' 




09240 










2C6A CD762C 


09250 WR55LP 


CALL 


WRBYTE8 


; Write 8 bit byte 


2C6D 10FB 


09260 
09270 




DJNZ 


WR55LP 






09280 




Write 


Marker byte - X 


'7F' 




09290 










2C6F 0E7F 


09300 




LD 


C,7FH 


; Write marker byte X'7F' 


2C71 CD762C 


09310 




CALL 


WRBYTE8 




2C74 CI 


09320 




POP 


BC 


;Recover BC 


2C75 C9 


09330 
09340 


s 


RET 




;Done 


2C76 C5 


09350 WRBYTE8 PUSH 


BC 


;Save B 


2C77 0608 


09360 




LD 


B,8 


;8 bits long 


2C79 CDD12B 


09370 WB8LP 


CALL 


WRBIT 


;Write bit 


2C7C 10FB 


09380 




DJNZ 


WB8LP 




2C7E CI 


09390 




POP 


BC 




2C7F C9 


09400 




RET 






2C80 


04290 


*GET 


TAPE 100 B: 3 






09410 


;TAPE100B/ASM 


- Disk I/O & other routines 




09420 












09430 




DISPSTR - Display Str 


ing 




09440 










2C80 D5 


09450 


DISPSTR 


PUSH 


DE 


;Save DE 


2C81 ED5B6627 


09460 




LD 


DE,(CURPOS) 


;P/u cursor position 


2C85 7E 


09470 


DSLP 


LD 


A,(HL) 


;P/u source char 


2C86 FE03 


09480 




CP 


ETX 


;Done ? 


2C88 2815 


09490 




JR 


Z, EXITl 


;Yes - exit 


2C8A FE0D 


09500 




CP 


CR 


;Done ? 


2C8C 280E 


09510 




JR 


Z,EXIT2 


;Yes - exit 


2C8E FE0A 


09520 




CP 


LF 


;Line feed ? 


2C90 2005 


09530 




JR 


NZ, STUFCHR 


;No - stuff character 


2C92 CDA52C 


09540 




CALL 


NEXTLIN 


;Get next line 


2C95 1802 


09550 




JR 


BUMP IT 




2C97 12 


09560 


STUFCHR 


LD 


(DE),A 


; Output to video 


2C98 13 


09570 




INC 


DE 




2C99 23 


09580 


BUMP IT 


INC 


HL 


;No - bump count 


2C9A 18E9 


09590 




JR 


DSLP 




2C9C CDA52C 


09600 


EXIT2 


CALL 


NEXTLIN 


;Next one down 


2C9F ED536627 09610 EXITl 


LD 


(CURPOS),DE 


;Save cursor position 


2CA3 Dl 


09620 




POP 


DE 


; Res tore DE 


2CA4 C9 


09630 
09640 




RET 








09650 




NEXTLIN - Position to 


next line on video 




09660 




DE => 


RAM location 






09670 










2CA5 E5 


09680 


NEXTLIN 


PUSH 


HL 


;Save regs 


2CA6 EB 


09690 




EX 


DE,HL 


;Xfer # to HL 


2CA7 CDE32D 


09700 




CALL 


GETCRS 


;Calculate X,Y 


2CAA 24 


09710 




INC 


H 


;Bump row # 


2CAB 2E00 


09720 




LD 


L,0 


; and start @ beginning 


2CAD CDCF2D 


09730 




CALL 


GETP0S2 


;Convert to RAM location 


2CB0 EB 


09740 




EX 


DE,HL 


; Stuff into DE 


2CB1 El 


09750 




POP 


HL 




2CB2 C9 


09760 
09770 


9 


RET 
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09780 ; 


CONV_UC 


- Convert A to 


upper case 




09790 ; 








2CB3 FE61 


09800 CONV UC 


CP 


'a' 


; Lower case ? 


2CB5 D8 


09810 


RET 


C 


;No 


2CB6 FE7B 


09820 


CP 


'z'+l 


; Lower case ? 


2 CBS D0 


09830 


RET 


NC 


;No 


2CB9 CBAF 


09840 


RES 


5, A 


;Convert to Upper Case 


2CBB C9 


09850 
09860 ; 


RET 








09870 ; 


CURSOFF 


- Turn off Cursor 




09880 ; 








2CBC F5 


09890 CURSOFF 


PUSH 


AF 


;Save regs 


2CBD D5 


09900 


PUSH 


DE 




2CBE C5 


09910 


PUSH 


BC 




2CBF 0E0F 


09920 


LD 


CCUROFF 


;Cursor off Character 


2CC1 


09930 


(3@DSP 






2CC1 3E02 


00047 


LD 


A,2 




2CC3 EF 


00048 


RST 


40 




2CC4 C24627 


09940 


JP 


NZ,IOERR 




2CC7 CI 


09950 


POP 


BC 


jRestore regs 


2CC8 Dl 


09960 


POP 


DE 




2CC9 Fl 


09970 


POP 


AF 




2CCA C9 


09980 
09990 ; 


RET 








10000 ; 


INIT - 


I nit a file 






10010 ; 








2CCB 3E3A 


10020 INIT 


LD 


A,(3INIT 


;SVC # 


2CCD 1806 


10030 
10040 ; 


JR 


DOSVC 


;INIT file 




10050 ; 


OPEN - 


Open Source File 


1 




10060 ; 








2CCF FDCB12C6 


; 10070 OPEN 


SET 


0,(IY+SFLAG$) 


; Inhibit file-open bit 


2CD3 3E3B 


10080 
10090 ; 


LD 


A,(aOPEN 


;OPEN SVC # 


2CD5 F5 


10100 DOSVC 


PUSH 


AF 




2CD6 D5 


10110 


PUSH 


DE 




2CD7 219D27 


10120 


LD 


HL,DFBUF 


;HL => Disk filename buf 


2CDA lA 


10130 TLP 


LD 


A.(DE) 


;P/u byte from FCB 


2CDB 77 


10140 


LD 


(HL),A 


;Xfer to TEMBUF 


2CDC 23 


10150 


INC 


HL 




2CDD 13 


10160 


INC 


DE 




2CDE FE0E 


10170 


CP 


CR+1 


;Done ? 


2CE0 3808 


10180 


JR 


C,DUN 




2CE2 FE3A 


10190 


CP 


1 . 1 




2CE4 2804 


10200 


JR 


Z^DUN 




2CE6 FE2E 


10210 


CP 


1 1 




2CE8 20F0 


10220 
10230 ; 


JR 


HIJIP 






10240 ; 


Found valid terminator 


- Is this a device ? 




10250 ; 








2CEA 2B 


10260 DUN 


DEC 


HL 


;Back up to term 


2CEB Dl 


10270 


POP 


DE 


;DE => FCB+0 


2CEC lA 


10280 


LD 


A,(DE) 


;Device ? 


2CED FE2A 


10290 


CP 


"*i 




2CEF 2807 


10300 


JR 


Z,DUN2 


;Yes - done 


2CF1 363 A 


10310 


LD 


(HL),':' 


;No - overwrite with ":" 


2CF3 23 


10320 


INC 


HL 


;Bump 


2CF4 22122D 


10330 


LD 


(DSPEC+1),HL 


;Save drivespec location 


2CF7 23 


10340 


INC 


HL 


;Bump 


2CF8 3603 


10350 DUN2 


LD 


(HL),ETX 


;End with X'03' 


2CFA Fl 


10360 


POP 


AF 


;A = SVC # 
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2CFB 32212D 


10370 




LD 


(SVCNUW-1),A ;Save SVC # 


2CFE 21002F 


10380 




LD 


HLJOBUFF 


;HL => I/O Buffer 


2D01 0600 


10390 




LD 


B,0 


;LRL = 256 


2D03 EF 


10400 




RST 


28H 


;OPEN or INIT file 


2D04 2803 


10410 CHECK 


JR 


Z, CHKPROT 


jCheck PROTection status 




10420 












10430 




Ignore 


Error #42 - 


"LRL Open Fault" 




10440 










2D06 FE2A 


10450 




CP 


42 


; Ignore this error 


2D08 C0 


10460 
10470 




RET 


NZ 


;NZ - Abort 




10480 




Stuff Drive # intc 


Buffer 




10490 










2D09 D5 


10500 CHKPROT 


PUSH 


DE 


;P/u drivespec 


2D0A DDEl 


10510 




POP 


IX 


; from FCB+6 


2D0C DD7E05 


10520 




LD 


A,(IX+6) 




2D0F C630 


10530 




ADD 


A,'0' 


;Convert to ASCII 


2D11 320000 


10540 
10550 


DSPEC 


LD 


($-$),A 






10560 




Check i 


f File has 


proper Access 




10570 










2D14 DDCB007E 


10580 




BIT 


7,(IX) 


;Is FCB open? 


2D18 281F 


10590 




JR 


Z, ILLFILE 


;No - Illegal Filename 


2D1A DD7E01 


10600 




LD 


A,(IX+1) 


;P/u protection byte 


2D1D E607 


10610 




AND 


7 




2D1F 47 


10620 
10630 


s 


LD 


B,A 


;Xfer to B 


2D20 3E00 


10640 


SVCNUM 


LD 


A,$-$ 


;P/u SVC # 


2D22 FE3A 


10650 




CP 


@INIT 


;@INIT ? 


2D24 78 


10660 




LD 


A,B 


;P/u protection level 


2D25 280C 


10670 




JR 


Z, INITl 


;Z - Must be < 5 


2D27 FE06 


10680 




CP 


6 


;Reacl Access ? 


2D29 380C 


10690 
10700 




JR 


C, OKYDOKY 


;Yes - set Z & RETurn 




10710 




Illegal 


Access to 


protected file 




10720 










2D2B 


10730 


ILLACC 


(a^CLOSE 




;Close File 


2D2B 3E3C 


00049 




LD 


A, 60 




2D2D EF 


00050 




RST 


40 




2D2E 3E19 


10740 




LD 


A, 25 


;File Access Denied 


2D30 C34627 


10750 
10760 


i 


JP 


lOERR 


;Error - Regardless 


2D33 FE05 


10770 


INITl 


CP 


5 


;Update Access ? 


2D35 30F4 


10780 




JR 


NC, ILLACC 


;No - Illegal Access 


2D37 AF 


10790 


OKYDOKY 


XOR 


A 


;RETurn Z 


2D38 C9 


10800 
10810 


» 


RET 






2D39 3E13 


10820 


ILLFILE 


LD 


A, 19 


;Illegal Filename 


2D3B B7 


10830 




OR 


A 


;Set NZ 


2D3C C9 


10840 
10850 




RET 








10860 




CLOSE - 


Close the 


Destination File 




10870 










2D3D 11112E 


10880 CLOSE 


LD 


DE,FCB2 


;DE => FCB 


2D40 


10890 




0@CLOSE 




;Close File 


2D40 3E3C 


00051 




LD 


A, 60 




2D42 EF 


00052 




RST 


40 




2D43 C8 


10900 




RET 


Z 


;Good - RETurn 


2D44 C34627 


10910 
10920 


» 


JP 


lOERR 


;Bad - Quit 




10930 


» 


WRITESC 


- Write a 


Sector to Destination file 
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2D47 11112E 
2D4A 

2D4A 3E4B 
2D4C EF 
2D4D C24627 
2D50 C9 



2D51 11112E 
2D54 21152E 
2D57 34 
2D58 CD472D 
2D5B 3Em 
2D5D BE 
2D5E 20F4 



2D60 3E00 
2D62 32192E 
2D65 CD3D2D 
2D58 C9 



2D69 21F52D 
2D6C 362F 



2D6E 11F12D 
2D71 34 
2D72 

2D72 3E43 
2D74 EF 
2D75 28F7 



2D77 F5 
2D78 3AF92D 
2D7B ED44 
2D7D 47 
2D7E 66 
2D7F 2EFF 
2D81 2801 
2D83 25 
2D84 361A 
2D86 2B 
2D87 10FB 



2D89 24 
2D8A 2E00 
2D8C 361A 
2D8E 23 
2D8F 10FB 
2D91 Fl 



10940 
10950 
10960 
00053 
00054 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
00055 
00056 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 



WRITESC LD DE,FCB2 

mmiiE 

LD A. 75 

RST 40 

JP NZ.IOERR 

RET 



;DE => FCB 
;Write Sector 



;Bad - quit 
;Good - RETurn 



WRTDEST 
WRTDES 



E0TF2 



WRTDEST - Write Destination File 

LD DE,FCB2 ;DE => Destination FCB 

LD HL,FCB2+4 ;HL => msb of I/O buffer 

INC (HL) ;Bump 

CALL WRITESC ;Write Sector 

LD A,$-$ ;P/u # of sectors 

CP (HL) ;Finished ? 

OR NZ, WRTDES ;No - back to loop 

Finished Writing - Set EOF offset byte 



OFFSET 



LD A,$-$ 

LD (FCB2+8),A 

CALL CLOSE 
RET 



;P/u offset byte 
; & stuff into FCB 
:Close the File 



READSRC - Read in chunk of Source Disk file 



READSRC 



LD HL,FCBl+4 

LD (HL),MEM<-8-l 



; Read in Source file 

READSR2 LD DE.FCBl 

INC (HL) 
(a@READ 

LD A,67 

RST 40 

JR Z,READSR2 



Fill remainder of sector w/ X'lA's 



;HL => Hi byte of I/O buf 
;Init FCB I/O buffer 



;Pt DE to FCB 
;Bump I/O buffer 
;Read a sector 



NOMORE 



NULBUF 



PUSH 

LD 

NEG 

LD 

LD 

LD 

JR 

DEC 

LD 

DEC 

DJNZ 



AF 
A,(FCBl+8) 

B,A 

H,(HL) 

L,0FFH 

Z, NULBUF 

H 

(HL),1AH 

HL 

NULBUF 



XTRIAS 
DONTFIL 



Add a sector of lAs 

INC H 

LD L,0 

LD (HL),01AH 

INC HL 

DJNZ XTRIAS 

POP AF 



;Save Error code 
;P/u EOF offset byte 

;Xfer to B for DJNZ 

;P/u I/O buffer msb 

;End of sector 

;Z - keep HL here 

; Sector boundary 

;Fill remainder of buffer 

: with zeroes 



;Pt to next sector 

;EOF indicator 
;Bump 

;Recover error code 
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The Source 



2D92 FEIC 
2D94 C8 
2D95 FEID 
2D97 C8 
2D98 C34627 



2D9B F5 
2D9C E5 
2D9D 3A7800 
2DAja 32AC2D 
2DA3 CB87 
2DA5 CBCF 
2DA7 1804 



2DA9 F5 
2DAA E5 

2DAB 3E00 
2DAD 327800 
2DB0 D384 

2DB2 El 
2DB3 Fl 
2DB4 C9 



2DB5 0603 
2DB7 21C72D 
2DBA 113800 
2DBD 4E 
2DBE lA 
2DBF EB 
2DC0 71 
2DC1 12 
2DC2 23 
2DC3 13 
2DC4 iaF7 
2DC6 C9 

2DC7 C3B02A 



2DCA 0604 
2DCC 

2DCC 3E0F 
2DCE EF 
2DCF 4D 
2DD0 6C 
2DD1 2600 
2DD3 54 
2DD4 5D 
2DD5 29 



UTILITY Files TAPE100 - LS-DOS 6,2 

I/O Error - Better be EOF error 



Page 00022 



CP 

RET 

CP 

RET 

JP 



11510 ; 

11520 ; 

11530 ; 

11540 

11550 

11560 

11570 

11580 

11590 ; 

11600 ; 

11610 ; 

11620 ENDOKI PUSH 

PUSH 

LD 

LD 

RES 

SET 

JR 



ICH 

Z 

IDH 

Z 

lOERR 



;EOF ? 

;Yes - RETurn 
;NRN > ERN 
;Yes - RETurn 
;No - Disk Error 



ENDOKI - Enable Video & Keyboard 



AF 

HL 

A,(OPREG$) 

(SV0PREG+1),A 

03A 

1,A 
D00PRE6 



;P/u port mask 

; and save it for DISDOKI 

; Reset bit 

;Set bit 1 

;Set new assignment 



DISDOKI - Disable Video & Keyboard 



11630 

11640 

11650 

11660 

11670 

11680 

11690 ; 

11700 ; 

11710 ; 

11720 DISDOKI PUSH 

11730 PUSH 

11740 ; 

11750 SVOPREG LD 

11760 DOOPREG LD 

11770 OUT 

11780 ; 

11790 POP 

11800 POP 

11810 RET 

11820 ; 

11830 ; SWAP38 - Swap 38H - 3AH with save area 

11840 ; 

HUSWAREA 

DE,38H 

C,(HL) 

A,(DE) 

DE,HL 

(HL),C 

(DE),A 

HL 

DE 

SWAPLP 



AF 
HL 

A,$-$ 

(OPREG$),A 

((aOPREG),A 

HL 
AF 



;Restore original mask 
; and disable video 
;Restore regs & RETurn 



;3 bytes to exchange 
;HL => Swap Area 
;DE => Restart Xfer addr 
;P/u source 

;Swap ptrs 
jStuff in dest 



;Bump ptrs 

;3 bytes to swap 



11850 SWAP38 LD 

11860 LD 

11870 LD 

11880 SWAPLP LD 

11890 LD 

11900 EX 

11910 LD 

11920 LD 

11930 INC 

11940 INC 

11950 DJNZ 

11960 RET 

11970 ; 

11980 SWAREA JP RST38V ;JP vector 

11990 ; 

12000 ; GETPOS - Get current cursor position in video 

12010 ; 

12020 GETPOS LD B,4 ;P/u current cursor pos 

12030 (3@VDCTL 

00057. LD A, 15 

00058 RST 40 

12040 GETP0S2 LD C,L ;Save column # 

12050 LD L,H 

12060 LD H,0 ;HL => Row # 

12070 LD D,H ;Set DE = HL 

12080 LD E,L 

12090 ADD HL,HL ;X 2 
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The Source 


UTILITY Fi 


les 


TAPE100 - LS-DOS 6.2 Page 00023 


2DD6 29 


12100 


ADD 


HL,HL 


;X 4 


2DD7 19 


12110 


ADD 


HL,DE 


;X 5 


2DD8 29 


12120 


ADD 


HL,HL 


;X 10 


2DD9 29 


12130 


ADD 


HL,HL 


;X 20 


2DDA 29 


12140 


ADD 


HL,HL 


;x 40 


2DDB 29 


12150 


ADD 


HL.HL 


;X 80 


2DDC 06F8 


12160 


LD 


B,VIDE0<-8 


;D = high byte of video 


2DDE 09 


12170 


ADD 


HL,BC 


;HL => Cursor location 


2DDF 226627 


12180 


LD 


(CURP0S),HL 


;Save cursor position 


2DE2 C9 


12190 
12200 ; 


RET 








12210 ; 


GETCRS 


- Calculate row x column cursor pos 




12220 ; 


HL => C 


ursor position 


in RAM 




12230 ; 


HL <= C 


ursor position 


in Row (H) Column (L) 




12240 ; 








2DE3 1100F8 


12250 GETCRS 


LD 


DE,VIDEO 


;Get offset 


2DE6 B7 


12260 


OR 


A 




2DE7 ED52 


12270 


SBC 


HL,DE 




2DE9 0E50 


12280 


LD 


C,80 


;Calculate row # 


2DEB 


12290 


@0DIV16 






2DEB 3E5E 


00059 


LD 


A. 94 




2DED EF 


00060 


RST 


40 




2DEE 65 


12300 


LD 


H,L 


;Set H = Row 


2DEF 6F 


12310 


LD 


L,A 


;Set L = Column 


2DF0 C9 


12320 
04300 ; 


RET 






0020 


04310 FCBl 


DS 


32 




0020 


04320 FCB2 


DS 


32 




0019 


04330 INBUFF 
04340 ; 


DS 


25 




2F00 


04350 
04360 ; 


ORG 


$<-8+l<+8 




0100 


04370 lOBUFF 


DS 


256 




3000 


04380 MEM 
04390 ; 


EQU 


$ 




2600 


04400 


END 


START 
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The Source 


UTILITY Files 


TAPE 100 - LS-DOS 6o2 




mi 


0000 @@2 


0000 (303 


0000 


@@4 


0000 eiNIT 


003A mOD2 


0000 


@M0D4 


FFFF @OPEN 


003 B @OPREG 


0084 


ABB 


0010 ABORT 


2754 ABSVAL 


2B65 


AFTER 


2A73 AP 


0027 BIT0LOW 


2AC1 


BITl 


2B6C BITILOW 


2AC5 BOGUS 


2C04 


BOGUSLP 


2AF6 BREAK 


0080 BREAKLC 


F440 


BS 


0008 BTl 


2BD5 BUFFER 


2797 


BUMP IT 


2C99 CASSOFF 


2A2B CASSON 


2A1A 


CFLAG$ 


0002 CHECK 


2D04 CHKERR 


2B23 


CHKERR2 


2B27 CHKMARK 


2B7E CHKPRM 


261A 


CHKPROT 


2D09 CHKSEC 


26C6 CIOERR 


2B9C 


CKFILE 


2B16 CKPLP 


27E9 CLEAN 


27B2 


CLOSE 


2D3D CONV UC 


2CB3 CORRECT 


2B0D 


COUNT 


2852 CPARM 


27FD CR 


000 D 


CRESP 


29E0 CUROFF 


000F CURON 


000E 


CURPOS 


2766 CURSOFF 


2CBC DDF 


2941 


DELAY0 


2B2F DELAYl 


1217 DEL LP 


2BDD 


DEL LP2 


2BE4 DFBUF 


279D DFLAG$ 


0003 


DIFFER 


000D DISDOKI 


2DA9 DISPSTR 


2C80 


DLEN 


2763 DODJ 


2B6D DOINIT 


27C7 


DOINPUT 


2816 DONTFIL 


2D91 DOOPREG 


2DAD 


DOSVC 


2CD5 DSF 


290A DSLP 


2C85 


DSP 


2843 DSPEC 


2D11 DSPLY 


2849 


OJMBYT 


2B08 DUMMY 


2C13 DUN 


2CEA 


mN2 


2CF8 DUNLIN 


27FC ENDOKI 


2D9B 


ENUF 


2660 EOTF 


2A51 EOTF 2 


2D5B 


ETX 


0003 EXDSP 


284 D EXIT 


2758 


EXITl 


2C9F EXIT2 


2C9C FCBl 


2DF1 


FCB2 


2E11 FILELP 


2BFB FILENM 


2790 


FLAG 


0040 FOR NOW 


273A GETBIT 


2B80 


GETCRS 


2DE3 GETFILN 


27BA GETPOS 


2 DC A 


GETP0S2 


2DCF GTFILE 


27 AC GTFILE 2 


26 E5 


HELLO$ 


2853 ILLACC 


2D2B ILLEGAL 


2751 


ILLFILE 


2D39 INBUFF 


2E31 INIT 


2CCB 


INITl 


2D33 INPUT 


2835 INP R W 


2621 


lOBUFF 


2F00 lOERR 


2746 KFL^GI 


000A 


LF 


000A LOADA 


003A LOOP 


2B55 


MEM 


3000 MODMASK 


000C MODOUT 


00EC 


NEXT INS 


2BCE NEXTLIN 


2CA5 NOMORE 


2D78 


NOPULS 


2BDA NOTBLNK 


2BCB NOTENT 


2A41 


NULBUF 


2D84 NUM 


0080 OFFSET 


2D60 


OKYDOKY 


2D37 OLDSP 


275B OPDSRC 


264F 


OPEN 


2CCF OPREG$ 


0078 PARMTBL 


29C8 


PAR ERR 


002 C PORTE0 


00E0 PORTFF 


00FF 


PRDEST 


2810 PRDEST2 


282D PRMERR 


29 BB 


PRMERR$ 


297F PRSOUR 


2808 PRS0UR2 


2825 


PRTAPE 


2A3B RBLP 


2A99 RBTLP 


2B42 


RDBIT 


2A96 RDBLP 


2BB0 RDBYTE 


2BA7 


RDBYTEC 


2BA2 RDDAT 


2A49 RDDAT2 


2A4C 


RDDATA 


2A58 RDHEAD 


2AD8 RDLPl 


2A66 


RDLP2 


2A8D RDORWR 


28DB RDSYNC 


2B39 


RDSYNC2 


2B40 RDTAPE 


26B1 READERR 


2768 


READFIL 


26EB READING 


277B READSR2 


2D6E 


READSRC 


2D69 RESCNT 


2B50 RFNLP 


2AEB 


ROTBYTE 


2B8F ROUTOFF 


0006 RPARM 


29E4 


RRESP 


29D7 RST38V 


2AB0 SFLAG$ 


0012 


SKPSPC 


26 D4 START 


2600 STARTA 


2609 


STR 


0020 STUFCHR 


2C97 SVCNUM 


2D20 


SVOPREG 


2DAB SWAP38 


2DB5 SWAPLP 


2DBD 
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The Source 


UTILITY Files 


SWAREA 


2DC7 TAB 


TLP 


2CDA TOOBIG 


T00L0N6 


003 E TOOSHRT 


TSF 


28F1 USEHI 


VIDEO 


F800 WAITINT 


WBLP 


2C30 WDLP 


WPARM 


29E6 WR55LP 


WRBTLP 


2C58 WRBYTE 


WRBYTEC 


2C4A WRDAT 


WRDATA 


2C27 WRESP 


Iffl^ITESC 


2D47 WRITING 


WRSYNC 


2C60 WRTAPE 


WRTDES 


2D54 WRTDES2 


XTRIAS 


2D8C (3@AB0RT 


0@BANK 


981A @@BKSP 


laiaCHNIO 


925A @(aCKBRKC 


eeCKEOF 


950F @0CKTSK 


@@CLS 


9868 mmmi 


@(3CTL 


90 BE @@DATE 


00 DEBUG 


92D8 (PIBDECHEX 


@@DIRWR 


971C @@DIV16 


@0DODIR 


936B @@DSP 


@@ ERROR 


92C3 (a@EXIT 


@@FLAGS 


9804 @@FNAME 


@@GATRD 


96F2 (9@GATWR 


@@GTDCB 


96B3 @0GTDCT 


@@HDFMT 


943D (3@HEX16 


@0HEXDEC 


97AF @@HIGH$ 


@@KBD 


90FA @@KEY 


@@KLTSK 


9341 miOI\D 


@@LOF 


9539 @@LOGER 


eijiMSG 


91A5 mmiie 


@@OPEN 


94 D0 @@PARAM 


@0PEOF 


954E (a@POSN 


@@PRT 


90D2 mpui 


©(PRDSEC 


9413 (a@RDSSC 


(a^REMOV 


94 A6 @@RENAM 


@(3RMTSK 


9317 @@RPTSK 


@@RSLCT 


93FE mRSlOR 


@0RWRIT 


95 B7 @@SEEK 


@(aSKIP 


95 El @@SLCT 


(a@TIME 


9245 @@VDCTL 


@@VRSEC 


9428 @(aWEOF 


0(3 WRITE 


9620 (3(aWRSEC 


@@WRTRK 


947C 


2600 is the 


transfer address 


00000 Total 


errors 



TAPE 100 - LS-DOS 6.2 
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0009 


TDF 


29 BF 


TOOBIG$ 


000F TREADY 


27D6 


VFLAG$ 


2AD5 


WB8LP 


2C42 


WHICHl 


2C6A 


WRBIT 


2C51 


WRBYTE8 


2C19 


WRDAT2 


29CF 


WRHEAD 


2785 


WRMASK 


263A 


WRTAPE2 


2740 WRTDEST 


926F 


e^ADTSK 


94FA 


(3@BREAK 


987 E 


@@CKDRV 


92ED 


@@CLOSE 


9299 


@(aCMNDR 


9230 @@DCSTAT 


979A 


(a@DIRRD 


9785 


@@DIV8 


9082 


@@DSPLY 


9284 


(a@FEXT 


9689 


(a(3FSPEC 


9731 


@0GET 


969E 


@@GTMOD 


97D9 


0(aHEX8 


97 EE 


@@INIT 


906 E @@KEYIN 


9635 


(3(3L0C 


9159 


@@LOGOT 


975B 


@@MUL8 


921B 


@0PAUSE 


9563 


@@PRINT 


90AA @@RAMDIR 


96 DD 


0@READ 


9491 


laiaREW 


932C 


@(aRREAD 


93 BF 


@@RUN 


93E9 


@@SEEKSC 


93AA 


@@STEPI 


91F1 


@@VER 


960B @@WHERE 


9452 


@0WRSSC 



2923 
2990 
295F 
0015 
2C79 
0022 
2BD1 
2C76 
2C1C 
2BEC 
0016 
2643 
2D51 
9302 
9830 
9356 

94 E5 
92AE 
9395 
9707 
9770 
9122 
9674 
965F 
9096 
96C8 
97C4 
94BB 
910E 
9524 
916E 
9746 
9206 
91 BA 
9380 
9578 
958 D 

95 A2 
964A 
95 CC 
93 D4 
95F6 
90E6 
9467 
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NOTES; 
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NOTES: 
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The Source 


UTILITY Fi 


les 


LDOS60/I 




00100 ;LDOS60/EQU - 


Equates f 


0000 


00110 
00120 ; 


TITLE 


<LDOS60 


08F0 


00130 @$SYS 


EQU 


08F0H 


0000 


00140 mi 


DEFL 


0000H 


0000 


00150 @@2 


DEFL 


0000H 


0000 


00160 ms 


DEFL 


0000H 


0000 


00170 @@4 


DEFL 


0000H 


0877 


00180 (3 BANK 


EQU 


0877H 


1300 


00190 (3BYTEI0 


EQU 


1300H 


0689 


00200 (3CHNI0 


EQU 


0689H 


0553 


00210 @CKBRKC 


EQU 


0553H 


0545 


00220 (PCLS 


EQU 


0545H 


0623 


00230 @CTL 


EQU 


0623H 


07A8 


00240 @DATE 


EQU 


07A8H 


06E3 


00250 (3DIV16 


EQU 


06E3H 


0642 


00260 @DSP 


EQU 


0642H 


05 2D 


00270 @DSPLY 


EQU 


052DH 


0000 


00280 ©FRENCH EQU 


0000H 


0000 


00290 ©GERMAN EQU 


0000H 


0638 


00300 ©GET 


EQU 


0638H 


07BD 


00310 ©HEX16 


EQU 


07BDH 


07C2 


00320 ©HEX8 


EQU 


07C2H 


06 F6 


00330 ©HEXDEC 


EQU 


06F6H 


0000 


00340 ©HZ50 


EQU 


0000H 


0000 


00350 ©INTL 


EQU 


0000H 


0630 


00360 ©JCL 


EQU 


0630H 


0635 


00370 ©KBD 


EQU 


0635H 


0628 


00380 ©KEY 


EQU 


0628H 


0585 


00390 ©KEYIN 


EQU 


0585H 


0089 


00400 ©KITSK 


EQU 


0089H 


0503 


00410 ©LOGER 


EQU 


0503H 


0500 


00420 ©LOGOT 


EQU 


0500H 


0000 


00430 ©M0D2 


EQU 


0000H 


FFFF 


00440 ©M0D4 


EQU 


0FFFFH 


0530 


00450 ©MSG 


EQU 


0530H 


06C9 


00460 ©MUL16 


EQU 


06C9H 


0084 


00470 ©OPREG 


EQU 


0084H 


0528 


00480 ©PRINT 


EQU 


0528H 


063D 


00490 ©PRT 


EQU 


063DH 


0645 


00500 ©PUT 


EQU 


0645H 


0FE9 


00510 ©RSTNMI 


EQU 


0FE9H 


0680 


00520 ©RSTREG 


EQU 


0680H 


078D 


00530 ©TIME 


EQU 


078DH 


FFFF 


00540 ©USA 


EQU 


0FFFFH 


0B99 


00550 ©VDCTL 


EQU 


0B99H 


0D38 


00560 ©VDCTL3 


EQU 


0D38H 


0D42 


00570 © VDCTL 


EQU 


0D42H 


0DF1 


00580 ADDR 2 


ROWCOL 


EQU 


0201 


00590 BAR$ 


■ EQU 


0201H 


439D 


00600 BOOTST$ EQU 


439DH 


0200 


00610 BUR$ 


EQU 


0200H 


0A7B 


00620 CASHK$ 


EQU 


0A7BH 


006C 


00630 CFLAG$ 


EQU 


006 CH 


0300 


00640 CORES 


DEFL 


0300H 


F800 


00650 CRTBGN$ EQU 


0F800H 


0033 


00660 DATES 


EQU 


0033H 


04C7 


00670 DAYTBL$ EQU 


04C7H 


0031 


00680 DCBKL$ 


EQU 


0031H 


0470 


00690 DCT$ 


EQU 


0470H 


006 D 


00700 DFLAG$ 


EQU 


006 DH 
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UTILITY Files 


LDOS60/EQU 


0846 


00710 DIS DO RAM 


EQU 


0846H 


0B94 


00720 DODATAI EQU 


0B94H 




0210 


00730 D0DCB$ EQU 


0210H 




0C44 


00740 DO CONTROL 


EQU 


0C44H 


0CB8 


00750 DO DSPCHAR 


EQU 


0CB8H 


0C8C 


00760 DO INVERT DIS 


EQU 


0C8CH 


0C89 


00770 DO INVERT ENA 


EQU 


0C89H 


0C9B 


00780 DO INVERT OFF 


EQU 


0C9BH 


0000 


00790 DO MASK EQU 


0000H 




0BCB 


00800 DO RET EQU 


0BCBH 




0BCC 


00810 DO RETl EQU 


0BCCH 




0CCE 


00820 DO SCROLL 


EQU 


0CCEH 


0BEA 


00830 DO TABS EQU 


0BEAH 




04C0 


00840 DSKTYP$ EQU 


04C0H 




04C2 


00850 DTPMT$ EQU 


04C2H 




0FF4 


00860 DVREND$ EQU 


0FF4H 




0206 


00870 DVRHI$ EQU 


0206H 




0817 


00880 ENADIS DO RAM 


EQU 


0817H 


000E 


00890 FDDINTi EQU 


000EH 




006A 


00900 FLGTAB$ EQU 


006AH 




0DAE 


00910 GET @ ROWCOL 


EQU 


0DAEH 


0750 


00920 HERTZf EQU 


0750H 




040E 


00930 HIGH$ EQU 


040EH 




0072 


00940 IFLAG$ EQU 


0072H 




0420 


00950 INBUF$ EQU 


0420H 




003E 


00960 INTVC$ EQU 


003EH 




0203 


00970 JCLCB$ EQU 


0203H 




0230 


00980 JLDCB$ EQU 


0230H 




07 D6 


00990 KCK@ EQU 


07D6H 




0074 


01000 KFLAG$ EQU 


0074H 




08FC 


01010 KIDATA$ EQU 


08FCH 




0208 


01020 KIDCB$ EQU 


0208H 




0202 


01030 LBANK$ EQU 


0202H 




0401 


01040 MAXDAY$ EQU 


0401 H 




0076 


01050 MODOUT$ EQU 


0076H 




04 DC 


01060 MONTBL$ EQU 


04DCH 




0077 


01070 NFLAG$ EQU 


0077H 




0078 


01080 OPREG$ EQU 


0078H 




086 E 


01090 OPREG SV AREA 


EQU 


086EH 


0835 


01100 OPREG SV PTR 


EQU 


0835 H 


0410 


01110 PAKNAM$ EQU 


0410H 




0382 


01120 PAUSE© EQU 


0382H 




07AF 


01130 PCSAVE$ EQU 


07AFH 




001 B 


01140 PDRV$ EQU 


001 BH 




0218 


01150 PRDCB$ EQU 


0218H 




0DCD 


01160 PUTA@DE EQU 


0DCDH 




0DCA 


01170 PUT (3 EQU 


0DCAH 




0DC6 


01180 PUT @ ROWCOL 


EQU 


0DC6H 


007B 


01190 RFLAGf EQU 


007BH 




0DD0 


01200 ROWCOL 2 ADDR 


EQU 


0DD0H 


04C4 


01210 RSTOR$ EQU 


04C4H 




0238 


01220 S1DCB$ EQU 


0238H 




0CF3 


01230 SET SCROLL 


EQU 


0CF3H 


007C 


01240 SFLAG$ EQU 


007CH 




0220 


01250 SIDCB$ EQU 


0220H 




0228 


01260 SODCB$ EQU 


0228H 




0380 


01270 STACKS EQU 


0380H 




0000 


01280 STARTS EQU 


0000H 




002D 


01290 TIMES EQU 


002 DH 




002C 


01300 TIMERS EQU 


002CH 




002B 


01310 TIMSLS EQU 


002BH 
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The Source 


UTILITY Files 


LD0S6! 


0713 


01320 TIMTSK$ EQU 


0713H 


04C3 


01330 TMPMT$ EQU 


04C3H 


07B1 


01340 TRACE INT 


EQU 


0A8F 


01350 TYPHKl EQU 


0A8FH 


0B26 


01360 TYPTSK$ EQU 


0B26H 


007F 


01370 VFLAG$ EQU 


007FH 


0401 


01380 ZEROS EQU 


0401 H 


No end statement 




00000 Total 


errors 
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The Source 


UTILITY Fil 


les 


SYS0/EQU 


Page ' 




00100 ;SYS0/EQU - Eqi 


jates from cross 


reference of Sysres 


0000 


00110 
00120 ; 


TITLE 


<SYS0/EQU> 




03 B7 


00130 $A1 


EQU 


03B7H 




03B8 


00140 $A2 


EQU 


03B8H 




03 B9 


00150 $A3 


EQU 


03B9H 




1470 


00160 $CKEOF 


EQU 


1470H 




08F0 


00170 (3$SYS 


EQU 


08F0H 




0000 


00180 mi 


DEFL 


0000H 




0000 


00190 mi 


DEFL 


0000H 




0000 


00200 mz 


DEFL 


0000H 




0000 


00210 002 


DEFL 


0000H 




0000 


00220 @@3 


DEFL 


0000 H 




0000 


00230 ms 


DEFL 


0000H 




0000 


00240 @@4 


DEFL 


0000H 




0000 


00250 @@4 


DEFL 


0000H 




1B08 


00260 ©ABORT 


EQU 


1B08H 




ICDA 


00270 @ADTSK 


EQU 


ICDAH 




0877 


00280 ©BANK 


EQU 


087 7 H 




1486 


00290 @BKSP 


EQU 


1486H 




196F 


00300 ©BREAK 


EQU 


196FH 




1300 


00310 ©BYTE 10 EQU 


1300H 




0689 


00320 ©CHNIO 


EQU 


0689H 




0553 


00330 ©CKBRKC EQU 


0553H 




1993 


00340 ©CKDRV 


EQU 


1993H 




158F 


00350 ©CKEOF 


EQU 


158FH 




1CF5 


00360 ©CKTSK 


EQU 


1CF5H 




1999 


00370 ©CLOSE 


EQU 


1999H 




0545 


00380 ©CLS 


EQU 


0545H 




197E 


00390 ©CMNDI 


EQU 


197EH 




197B 


00400 ©CMNDR 


EQU 


197BH 




0623 


00410 ©CTL 


EQU 


0623H 




07A8 


00420 ©DATE 


EQU 


07A8H 




199F 


00430 ©DBGHK 


EQU 


199FH 




19C0 


00440 ©DCINIT EQU 


19C0H 




19C4 


00450 ©DCRES 


EQU 


19C4H 




19B5 


00460 ©DCSTAT EQU 


19B5H 




1A2B 


00470 ©DCTBYT EQU 


1A2BH 




19A0 


00480 ©DEBUG 


EQU 


19A0H 




03E1 


00490 ©DECHEX 


EQU 


03E1H 




18F7 


00500 ©DIRCYL EQU 


18F7H 




18BB 


00510 ©DIRRD 


EQU 


18BBH 




1803 


00520 ©DIRWR 


EQU 


1803H 




06 E3 


00530 ©DIV16 


EQU 


06E3H 




1927 


00540 ©DIV8 


EQU 


1927H 




19AF 


00550 ©DODIR 


EQU 


19AFH 




19A9 


00560 ©DOKEY 


EQU 


19A9H 




0642 


00570 ©DSP 


EQU 


0642H 




052D 


00580 ©DSPLY 


EQU 


052DH 




1B0F 


00590 ©ERROR 


EQU 


1B0FH 




1B0B 


00600 ©EXIT 


EQU 


1B0BH 




1984 


00610 ©FEXT 


EQU 


1984H 




196A 


00620 ©FLAGS 


EQU 


196AH 




199C 


00630 ©FNAME 


EQU 


199CH 




0000 


00640 ©FRENC^ 


i EQU 


0000H 




1981 


00650 ©FSPEC 


EQU 


1981H 




1874 


00660 ©GATRD 


EQU 


1874H 




1875 


00670 ©GATWR 


EQU 


1875H 




0000 


00680 ©GERMAN EQU 


0000H 




0638 


00690 ©GET 


EQU 


0638H 




1990 


00700 ©GTDCB 


EQU 


1990H 
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The Source 


UTILITY Fi" 


les 


SYS0/EC 


lAlE 


00710 (3GTDCT 


EQU 


lAlEH 


19B2 


00720 (aGTMOD 


EQU 


19B2H 


19E4 


00730 (aHDFMT 


EQU 


19E4H 


07BD 


00740 @HEX16 


EQU 


07BDH 


07C2 


00750 @HEX8 


EQU 


07C2H 


06F6 


00760 (SHEXDEC 


EQU 


06F6H 


1948 


00770 (3HIGH$ 


EQU 


1948H 


1897 


00780 (aniTRD 


EQU 


1897H 


1898 


00790 mum 


EQU 


1898H 


0000 


00800 (aHZ50 


EQU 


0000H 


0086 


00810 eiCNFG 


EQU 


0086H 


198D 


00820 ©INIT 


EQU 


198DH 


0000 


00830 @INTL 


EQU 


0000H 


1BF2 


00840 (a I PL 


EQU 


1BF2H 


0630 


00850 (3JCL 


EQU 


0630H 


0635 


00860 @KBD 


EQU 


0635H 


0628 


00870 gKEY 


EQU 


0628H 


0585 


00880 (BKEYIN 


EQU 


0585H 


0089 


00890 @KITSK 


EQU 


0089H 


0089 


00900 (3KITSK 


EQU 


0089H 


1CD0 


00910 (9KLTSK 


EQU 


1CD0H 


1B38 


00920 @LOAD 


EQU 


1B38H 


14B3 


00930 (SLOC 


EQU 


14B3H 


14DE 


00940 (SLOF 


EQU 


14DEH 


0503 


00950 (3L0GER 


EQU 


0503H 


0500 


00960 @LOGOT 


EQU 


0500H 


0000 


00970 (aM0D2 


EQU 


0000H 


FFFF 


00980 (aM0D4 


EQU 


0FFFFH 


0530 


00990 @MSG 


EQU 


0530H 


06C9 


01000 (3MUL16 


EQU 


06C9H 


190A 


01010 (9MUL8 


EQU 


190AH 


0066 


01020 @NMI 


EQU 


0066H 


198A 


01030 @OPEN 


EQU 


198AH 


0084 


01040 (aOPREG 


EQU 


0084H 


1987 


01050 (3PARAM 


EQU 


1987H 


0382 


01060 @PAUSE 


EQU 


0382H 


14A2 


01070 (3PE0F 


EQU 


14A2H 


1434 


01080 (apOSN 


EQU 


1434H 


0528 


01090 (aPRINT 


EQU 


0528H 


063D 


01100 (aPRT 


EQU 


063DH 


0645 


01110 (aPUT 


EQU 


0645H 


19AC 


01120 @RAMDIR EQU 


19ACH 


19D8 


01130 (aRDHDR 


EQU 


19D8H 


19F4 


01140 @RDSEC 


EQU 


19F4H 


18D8 


01150 @RDSSC 


EQU 


18D8H 


19E0 


01160 @RDTRK 


EQU 


19E0H 


1513 


01170 (aREAD 


EQU 


1513H 


19A6 


01180 @REMOVE 


: EQU 


19A6H 


1996 


01190 ©RENAME 


: EQU 


1996H 


149B 


01200 @REW 


EQU 


149BH 


1CD7 


01210 (apMTSK 


EQU 


1CD7H 


ICEB 


01220 @RPTSK 


EQU 


ICEBH 


1473 


01230 (aRREAD 


EQU 


1473H 


19D4 


01240 (aRSLCT 


EQU 


19D4H 


0000 


01250 (aRST00 


EQU 


0000H 


0008 


01260 @RST08 


EQU 


0008H 


0010 


01270 (aRST10 


EQU 


0010H 


0018 


01280 @RST18 


EQU 


0018H 


0020 


01290 (aRST20 


EQU 


0020H 


0028 


01300 @RST28 


EQU 


0028H 


0030 


01310 @RST30 


EQU 


0030H 
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UTILITY Files 



SYS0/EQU 



Page 00003 



0038 

0FE9 

19C8 

0680 

IBID 

13AD 

19D0 

1421 

1430 

19BC 

0392 

19CC 

078D 

FFFF 

0B99 

0D38 

1560 

19DC 

14EC 

1979 

1531 

19E8 

19EC 

19F0 

0D42 

0DF1 

006A 

IFFI 

0201 

439D 

1C60 

1C88 

0200 

0A7B 

00E0 

00E0 

006C 

006C 

1A7F 

1568 

203F 

ICFF 

IBFF 

1948 

1948 

0300 

F800 

16AE 

1A26 

0033 

0033 

04C7 

00A0 

0031 

0470 

1A29 

1A34 

006 D 

006 D 

2300 

0846 



01320 (aRST38 EQU 0038H 

01330 @RSTNMI EQU 0FE9H 

01340 (aRSTOR EQU 19C8H 

01350 ©RSTREG EQU 0680H 

01360 0RUN EQU IBlDH 

01370 mmiT EQU 13ADH 

01380 ©SEEK EQU 19D0H 

01390 eSEEKSC EQU 1421H 

01400 ©SKIP EQU 1430H 

01410 (3SLCT EQU 19BCH 

01420 ©SOUND EQU 0392H 

01430 eSTEPI EQU 19CCH 

01440 (3TIME EQU 078DH 

01450 @USA EQU 0FFFFH 

01460 @VDCTL EQU 0B99H 

01470 @VDCTL3 EQU 0D38H 

01480 @VER EQU 1560H 

01490 eVRSEC EQU 19DCH 

01500 @WEOF EQU 14ECH 

01510 ©WHERE EQU 1979H 

01520 ©WRITE EQU 1531H 

01530 ©WRSEC EQU 19E8H 

01540 ©WRSSC EQU 19ECH 

01550 ©WRTRK EQU 19F0H 

01560 ©_VDCTL EQU 0D42H 

01570 ADDR 2_R0WC0L EQU 0DF1H 

01580 AFLA^$ EQU 006AH 

01590 AUTO? EQU IFFIH 

01600 BAR$ EQU 0201 H 

01610 BOOTST$ EQU 439DH 

01620 BREAK? EQU 1C60H 

01630 BRKVEC$ EQU 1C88H 

01640 BUR$ EQU 0200H 

01650 CASHK$ EQU 0A7BH 

01660 CFCB$ EQU 00E0H 

01670 CFGFCB$ EQU 00E0H 

01680 CFLAG$ EQU 006CH 

01690 CFLAG$ EQU 006CH 

01700 CKMOD© EQU 1A7FH 

01710 CKOPEN© EQU 1568H 

01720 CONFIG$ EQU 203FH 

01730 CORES DEFL ICFFH 

01740 CORES DEFL IBFFH 

01750 CORES DEFL 1948H 

01760 CORES DEFL 1948H 

01770 CORES DEFL 0300H 

01780 CRTBGNS EQU 0F800H 

01790 CYL_GRN EQU 16AEH 

01800 D©FBYT8 EQU 1A26H 

01810 DATES EQU 0033H 

01820 DATES EQU 0033H 

01830 DAYTBLS EQU 04C7H 

01840 DBGSVS EQU 00A0H 

01850 DCBKLS EQU 0031H 

01860 DCTS EQU 0470H 

01870 DCTBYT8© EQU 1A29H 

01880 DCTFLD© EQU 1A34H 

01890 DFLAGS EQU 006DH 

01900 DFLAGS EQU 006 DH 

01910 DIRBUFS EQU 2300H 

01920 DIS DO RAM EQU 0846H 
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UTILITY Files 


SYS0/EQU 


0B94 


01930 DODATA$ EQU 


0B94H 




0210 


01940 DODCB$ EQU 


0210H 




0C44 


01950 DO CONTROL 


EQU 


0C44H 


0CB8 


01960 DO DSPCHAR 


EQU 


0CB8H 


0C8C 


01970 DO INVERT DIS 


EQU 


0C8CH 


0C89 


01980 DO INVERT ENA 


EQU 


0C89H 


0C9B 


01990 DO INVERT OFF 


EQU 


0C9BH 


0000 


02000 DO MASK EQU 


0000H 




0BCB 


02010 DO RET EQU 


0BCBH 




0BCC 


02020 DO RETl EQU 


0BCCH 




0CCE 


02030 DO SCROLL 


EQU 


0CCEH 


0BEA 


02040 DO TABS EQU 


0BEAH 




04C0 


02050 DSKTYP$ EQU 


04C0H 




04C2 


02060 DTPMT$ EQU 


04C2H 




0FF4 


02070 DVREND$ EQU 


0FF4H 




0206 


02080 DVRHI$ EQU 


0206 H 




006 E 


02090 EFLAG$ EQU 


006 EH 




0817 


02100 ENADIS DO RAM 


EQU 


0817H 


19A4 


02110 EXTDBGl EQU 


19A4H 




000E 


02120 FDDINT$ EQU 


000EH 




000 E 


02130 FDDINT$ EQU 


000EH 




006F 


02140 FEMSK$ EQU 


006 FH 




005A 


02150 FLGTAB$ EQU 


006AH 




006A 


02160 FLGTAB$ EQU 


006AH 




0DAE 


02170 GET @ ROWCOL 


EQU 


0DAEH 


0750 


02180 HERTZf EQU 


0750H 




040E 


02190 HIGH$ EQU 


040EH 




1A6C 


02200 HKRES$ EQU 


1A6CH 




0072 


02210 IFLAG$ EQU 


0072H 




0072 


02220 IFLAG$ EQU 


0072H 




0420 


02230 INBUF$ EQU 


0420H 




003C 


02240 INTIM$ EQU 


003CH 




003D 


02250 INTMSK$ EQU 


003DH 




003E 


02260 INTVC$ EQU 


003EH 




003E 


02270 INTVC$ EQU 


003EH 




0203 


02280 JCLCB$ EQU 


0203H 




0024 


02290 JDCB$ EQU 


0024H 




00C0 


02300 JFCB$ EQU 


00C0H 




0230 


02310 JLDCB$ EQU 


0230H 




0026 


02320 JRET$ EQU 


0026 H 




07 D6 


02330 KCK@ EQU 


07D6H 




0074 


02340 KFLAG$ EQU 


0074H 




0074 


02350 KFLAG$ EQU 


0074H 




08FC 


02360 KIDATA$ EQU 


08FCH 




0208 


02370 KIDCB$ EQU 


0208H 




0202 


02380 LBANK$ EQU 


0202 H 




0023 


02390 LDRV$ EQU 


0023H 




0075 


02400 LFLAG$ EQU 


0075H 




1566 


02410 LNKFCB@ EQU 


1566H 




001 E 


02420 LOW$ EQU 


001EH 




000D 


02430 LSVC$ EQU 


000 DH 




2400 


02440 MAXCOR$ EQU 


2400H 




0401 


02450 MAXDAY$ EQU 


0401 H 




3000 


02460 MINCOR$ EQU 


3000H 




0076 


02470 MODOUT$ EQU 


007 6 H 




0076 


02480 MODOUT$ EQU 


0076H 




04 DC 


02490 MONTBL$ EQU 


04DCH 




0077 


02500 NFLAG$ EQU 


0077H 




0078 


02510 OPREG$ EQU 


0078H 




0078 


02520 OPREG$ EQU 


0078H 




086 E 


02530 OPREG SV AREA 


EQU 


086EH 
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UTILITY Files 


SYS0/EQU 


0835 


02540 OPREG SV PTR 


EQU 0835H 


14DC 


02550 ORARET@ EQU 


14DCH 


003B 


02560 OSRLS$ EQU 


003 BH 


0085 


02570 OSVER$ EQU 


0085 H 


0069 


02580 OVRLY$ EQU 


006 9 H 


0410 


02590 PAKNAM$ EQU 


0410H 


0382 


02600 PAUSED EQU 


0382 H 


07AF 


02610 PCSAVE$ EQU 


07AFH 


0018 


02620 PDRV$ EQU 


001 BH 


001 B 


02630 PDRV$ EQU 


001 BH 


001 C 


02640 PHIGH$ EQU 


001CH 


0218 


02650 PRDCB$ EQU 


0218H 


0DCD 


02660 PUTA@DE EQU 


0DCDH 


0DCA 


02670 PUT @ EQU 


0DCAH 


0DC6 


02680 PUT @ ROWCOL 


EQU 0DC6H 


007B 


02690 RFLAGI EQU 


007BH 


007B 


02700 RFLAG$ EQU 


007BH 


0DD0 


02710 ROWCOL 2 ADDR 


EQU 0DD0H 


IBFF 


02720 RST38(3 EQU 


IBFFH 


04C4 


02730 RSTOR$ EQU 


04C4H 


13A2 


02740 RWRIT@ EQU 


13A2H 


0238 


02750 S1DCB$ EQU 


0238H 


1D00 


02760 SBUFF$ EQU 


1D00H 


1A79 


02770 SET@EXEC 


EQU 1A79H 


0CF3 


02780 SET SCROLL 


EQU 0CF3H 


008C 


02790 SFCB$ EQU 


008CH 


007C 


02800 SFLAG$ EQU 


007CH 


007C 


02810 SFLAG$ EQU 


007CH 


0220 


02820 SIDCB$ EQU 


0220H 


0228 


02830 SODCB$ EQU 


0228H 


2142 


02840 SPACE4$ EQU 


2142H 


0380 


02850 STACKS EQU 


0380H 


0000 


02860 STARTS EQU 


0000H 


0000 


02870 STARTS EQU 


0000 H 


000 B 


02880 SVCRET$ EQU 


000 BH 


0100 


02890 SVCTAB$ EQU 


0100H 


1B13 


02900 SYSERR$ EQU 


1B13H 


004E 


02910 TCB$ EQU 


004EH 


007D 


02920 TFLAG$ EQU 


007DH 


002D 


02930 TIMES EQU 


002 DH 


002 D 


02940 TIMES EQU 


002 DH 


002C 


02950 TIMERS EQU 


002CH 


002C 


02960 TIMERS EQU 


002CH 


002B 


02970 TIMSLS EQU 


002BH 


002B 


02980 TIMSLS EQU 


002BH 


0713 


02990 TIMTSKS EQU 


0713H 


04C3 


03000 TMPMTS EQU 


04C3H 


07B1 


03010 TRACE INT 


EQU 07B1H 


0A8F 


03020 TYPHKl EQU 


0A8FH 


0B26 


03030 TYPTSKS EQU 


0B26H 


0013 


03040 USTORS EQU 


001 3 H 


007F 


03050 VFLAGS EQU 


007FH 


007F 


03060 VFLAGS EQU 


007FH 


0080 


03070 WRINTS EQU 


0080H 


0401 


03080 ZEROS EQU 


0401 H 


13A0 


03090 ZEROA@ EQU 


13A0H 


No end statement 




00000 Total 


errors 
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The Source 


UTILITY Fi 


les 


SVCMAC ■ 




00100 ;SVCMAC/ASM - i 


LS-DOS Vei 


0000 


00110 


TITLE 


<SVCMAC 




00120 ;*LIST 


OFF 






00130 ; 






0000 


00140 @M0D2 


EQU 





FFFF 


00150 (3M0D4 


EQU 


-1 


0000 


00160 @@KEY 


MACRO 




0000 


00170 


LD 


A,l 


0000 


00180 


RST 


40 


0000 


00190 


ENDM 




0000 


00200 @@DSP 


MACRO 




0000 


00210 


LD 


A,2 


0000 


00220 


RST 


40 


0000 


00230 


ENDM 




0000 


00240 (aiaGET 


MACRO 




0000 


00250 


LD 


A, 3 


0000 


00260 


RST 


40 


0000 


00270 


ENDM 




0000 


00280 (a(apUT 


MACRO 




0000 


00290 


LD 


A,4 


0000 


00300 


RST 


40 


0000 


00310 


ENDM 




0000 


00320 men 


MACRO 




0000 


00330 


LD 


A, 5 


0000 


00340 


RST 


40 


0000 


00350 


ENDM 




0000 


00360 (a@PRT 


MACRO 




0000 


00370 


LD 


A, 6 


0000 


00380 


RST 


40 


0000 


00390 


ENDM 




0000 


00400 @@WHERE 


MACRO 




0000 


00410 


LD 


A,7 


0000 


00420 


RST 


40 


0000 


00430 


ENDM 




0000 


00440 (a@KBD 


MACRO 




0000 


00450 


LD 


A, 8 


0000 


00460 


RST 


40 


0000 


00470 


ENDM 




0000 


00480 @@KEYIN MACRO 




0000 


00490 


LD 


A,9 


0000 


00500 


RST 


40 


0000 


00510 


ENDM 




0000 


00520 (a@DSPLY MACRO 


#MS6 


0000 


00530 


IFEQ 


%%,1 


0000 


00540 


LD 


HL,#MSG 


0000 


00550 


ENDIF 




0000 


00560 


LD 


A, 10 


0000 


00570 


RST 


40 


0000 


00580 


ENDM 




0000 


00590 @(aL06ER MACRO 




0000 


00600 


LD 


A, 11 


0000 


00610 


RST 


40 


0000 


00620 


ENDM 




0000 


00630 eiaiOGOT 


MACRO 


#MSG 


0000 


00640 


IFEQ 


%%,1 


0000 


00650 


LD 


HL,#MSG 


0000 


00660 


ENDIF 




0000 


00670 


LD 


A, 12 


0000 


00680 


RST 


40 


0000 


00690 


ENDM 




0000 


00700 @(3MSG 


MACRO 
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The Source 


UTILITY Fi 


les 


SVCMAC 


0000 


00710 


LD 


A, 13 


0000 


00720 


RST 


40 


0000 


00730 


ENDM 




0000 


00740 @@PRINT MACRO 


#MSG 


0000 


00750 


IFEQ 


%%,1 


0000 


00760 


LD 


HL,#MSG 


0000 


00770 


ENDIF 




0000 


00780 


LD 


A, 14 


0000 


00790 


RST 


40 


0000 


00800 


ENDM 




0000 


00810 (a^VDCTL 


MACRO 




0000 


00820 


LD 


A, 15 


0000 


00830 


RST 


40 


0000 


00840 


ENDM 




0000 


00850 @@PAUSE 


MACRO 




0000 


00860 


LD 


A, 16 


0000 


00870 


RST 


40 


0000 


00880 


ENDM 




0000 


00890 @@PARAM MACRO 




0000 


00900 


LD 


A, 17 


0000 


00910 


RST 


40 


0000 


00920 


ENDM 




0000 


00930 (a@DATE 


MACRO 




0000 


00940 


LD 


A, 18 


0000 


00950 


RST 


40 


0000 


00960 


ENDM 




0000 


00970 (3@TIME 


MACRO 




0000 


00980 


LD 


A, 19 


0000 


00990 


RST 


40 


0000 


01000 


ENDM 




0000 


01010 mcmio 


MACRO 




0000 


01020 


LD 


A,20 


0000 


01030 


RST 


40 


0000 


01040 


ENDM 




0000 


01050 @@ABORT MACRO 




0000 


01060 


LD 


A, 21 


0000 


01070 


RST 


40 


0000 


01080 


ENDM 




0000 


01090 @@EXIT 


MACRO 




0000 


01100 


LD 


A, 22 


0000 


01110 


RST 


40 


0000 


01120 


ENDM 




0000 


01130 @@CMNDI 


MACRO 




0000 


01140 


LD 


A, 24 


0000 


01150 


RST 


40 


0000 


01160 


ENDM 




0000 


01170 @@CMNDR 


MACRO 




0000 


01180 


LD 


A, 25 


0000 


01190 


RST 


40 


0000 


01200 


ENDM 




0000 


01210 @@ERROR 


MACRO 




0000 


01220 


LD 


A,26 


0000 


01230 


RST 


40 


0000 


01240 


ENDM 




0000 


01250 @0DEBU6 


MACRO 




0000 


01260 


LD 


A,27 


0000 


01270 


RST 


40 


0000 


01280 


ENDM 




0000 


01290 @@CKTSK MACRO 




0000 


01300 


LD 


A, 28 


0000 


01310 


RST 


40 
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UTILITY Files 


SVCMAI 


0000 


01320 ENDM 




0000 


01330 (3@ADTSK MACRO 




0000 


01340 LD 


A, 29 


0000 


01350 RST 


40 


0000 


01360 ENDM 




0000 


01370 (3(aRMTSK MACRO 




0000 


01380 LD 


A,30 


0000 


01390 RST 


40 


0000 


01400 ENDM 




0000 


01410 @0RPTSK MACRO 




0000 


01420 LD 


A, 31 


0000 


01430 RST 


40 


0000 


01440 ENDM 




0000 


01450 @(3KLTSK MACRO 




0000 


01460 LD 


A, 32 


0000 


01470 RST 


40 


0000 


01480 ENDM 




0000 


01490 @@CKDRV MACRO 




0000 


01500 LD 


A, 33 


0000 


01510 RST 


40 


0000 


01520 ENDM 




0000 


01530 @@DODIR MACRO 




0000 


01540 LD 


A, 34 


0000 


01550 RST 


40 


0000 


01560 ENDM 




0000 


01570 eiaRAMDIR 


MACRO 


0000 


01580 LD 


A, 35 


0000 


01590 RST 


40 


0000 


01600 ENDM 




0000 


01610 0(3DCSTAT 


MACRO 


0000 


01620 LD 


A, 40 


0000 


01630 RST 


40 


0000 


01640 ENDM 




0000 


01650 @@SLCT MACRO 




0000 


01660 LD 


A, 41 


0000 


01670 RST 


40 


0000 


01680 ENDM 




0000 


01690 @@RSTOR MACRO 




0000 


01700 LD 


A, 44 


0000 


01710 RST 


40 


0000 


01720 ENDM 




0000 


01730 (BiaSTEPI MACRO 




0000 


01740 LD 


A, 45 


0000 


01750 RST 


40 


0000 


01760 ENDM 




0000 


01770 @@SEEK MACRO 




0000 


01780 LD 


A, 46 


0000 


01790 RST 


40 


0000 


01800 ENDM 




0000 


01810 (3@RSLCT MACRO 




0000 


01820 LD 


A, 47 


0000 


01830 RST 


40 


0000 


01840 ENDM 




0000 


01850 @(3RDSEC MACRO 




0000 


01860 LD 


A, 49 


0000 


01870 RST 


40 


0000 


01880 ENDM 




0000 


01890 (a@VRSEC MACRO 




0000 


01900 LD 


A, 50 


0000 


01910 RST 


40 


0000 


01920 ENDM 
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The Source 


UTILITY Fi 


les 


SVCMi 


0000 


01930 @@HDFMT MACRO 




0000 


01940 


LD 


A,52 


0000 


01950 


RST 


40 


0000 


01960 


ENDM 




0000 


01970 @@WRSEC 


MACRO 




0000 


01980 


LD 


A, 53 


0000 


01990 


RST 


40 


0000 


02000 


ENDM 




0000 


02010 @@WRSSC 


MACRO 




0000 


02020 


LD 


A, 54 


0000 


02030 


RST 


40 


0000 


02040 


ENDM 




0000 


02050 @@WRTRK MACRO 




0000 


02060 


LD 


A,55 


0000 


02070 


RST 


40 


0000 


02080 


ENDM 




0000 


02090 @@RENAM MACRO 




0000 


02100 


LD 


A,56 


0000 


02110 


RST 


40 


0000 


02120 


ENDM 




0000 


02130 @@REMOV MACRO 




0000 


02140 


LD 


A, 57 


0000 


02150 


RST 


40 


0000 


02160 


ENDM 




0000 


02170 (3@INIT 


MACRO 




0000 


02180 


LD 


A, 58 


0000 


02190 


RST 


40 


0000 


02200 


ENDM 




0000 


02210 (3@0PEN 


MACRO 




0000 


02220 


LD 


A, 59 


0000 


02230 


RST 


40 


0000 


02240 


ENDM 




0000 


02250 @@CLOSE 


MACRO 




0000 


02260 


LD 


A,60 


0000 


02270 


RST 


40 


0000 


02280 


ENDM 




0000 


02290 (a@BKSP 


MACRO 




0000 


02300 


LD 


A,61 


0000 


02310 


RST 


40 


0000 


02320 


ENDM 




0000 


02330 @@CKEOF 


MACRO 




0000 


02340 


LD 


A, 62 


0000 


02350 


RST 


40 


0000 


02360 


ENDM 




0000 


02370 (a@LOC 


MACRO 




0000 


02380 


LD 


A, 63 


0000 


02390 


RST 


40 


0000 


02400 


ENDM 




0000 


02410 @(3L0F 


MACRO 




0000 


02420 


LD 


A, 64 


0000 


02430 


RST 


40 


0000 


02440 


ENDM 




0000 


02450 (a@PEOF 


MACRO 




0000 


02460 


LD 


A, 65 


0000 


02470 


RST 


40 


0000 


02480 


ENDM 




0000 


02490 (3@P0SN 


MACRO 




0000 


02500 


LD 


A, 66 


0000 


02510 


RST 


40 


0000 


02520 


ENDM 




0000 


02530 e^READ 


MACRO 








Append 


ix A - 
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The Source 


UTILITY Fi 


les 


SVCMA 


0000 


02540 


LD 


A, 67 


0000 


02550 


RST 


40 


0000 


02560 


ENDM 




0000 


02570 (3@REW 


MACRO 




0000 


02580 


LD 


A, 68 


0000 


02590 


RST 


40 


0000 


02600 


ENDM 




0000 


02610 @@RREAD MACRO 




0000 


02620 


LD 


A, 69 


0000 


02630 


RST 


40 


0000 


02640 


ENDM 




0000 


02650 @@RWRIT MACRO 




0000 


02660 


LD 


A,70 


0000 


02670 


RST 


40 


0000 


02680 


ENDM 




0000 


02690 @@SEEKSC 


MACRO 


0000 


02700 


LD 


A, 71 


0000 


02710 


RST 


40 


0000 


02720 


ENDM 




0000 


02730 mSKlP 


MACRO 




0000 


02740 


LD 


A. 72 


0000 


02750 


RST 


40 


0000 


02760 


ENDM 




0000 


02770 @@VER 


MACRO 




0000 


02780 


LD 


A,73 


0000 


02790 


RST 


40 


0000 


02800 


ENDM 




0000 


02810 (3(3WEOF 


MACRO 




0000 


02820 


LD 


A, 74 


0000 


02830 


RST 


40 


0000 


02840 


ENDM 




0000 


02850 @@WRITE MACRO 




0000 


02860 


LD 


A,75 


0000 


02870 


RST 


40 


0000 


02880 


ENDM 




0000 


02890 @@LOAD 


MACRO 




0000 


02900 


LD 


A. 76 


0000 


02910 


RST 


40 


0000 


02920 


ENDM 




0000 


02930 (3@RUN 


MACRO 




0000 


02940 


LD 


A, 77 


0000 


02950 


RST 


40 


0000 


02960 


ENDM 




0000 


02970 (aiapSPEC 


MACRO 




0000 


02980 


LD 


A, 78 


0000 


02990 


RST 


40 


0000 


03000 


ENDM 




0000 


03010 @@FEXT 


MACRO 




0000 


03020 


LD 


A, 79 


0000 


03030 


RST 


40 


0000 


03040 


ENDM 




0000 


03050 @@FNAME 


MACRO 




0000 


03060 


LD 


A,80 


0000 


03070 


RST 


40 


0000 


03080 


ENDM 




0000 


03090 @@6TDCT MACRO 




0000 


03100 


LD 


A,81 


0000 


03110 


RST 


40 


0000 


03120 


ENDM 




0000 


03130 (3@GTDCB MACRO 




0000 


03140 


LD 


A, 82 
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The Source 


UTILITY Files 


SVCMA 


0000 


03150 RST 


40 


0000 


03160 ENDM 




0000 


03170 @@GTMOD MACRO 




0000 


03180 LD 


A, 83 


0000 


03190 RST 


40 


0000 


03200 ENDM 




0000 


03210 @@RDSSC MACRO 




0000 


03220 LD 


A, 85 


0000 


03230 RST 


40 


0000 


03240 ENDM 




0000 


03250 (a@GATRD MACRO 




0000 


03260 LD 


A, 86 


0000 


03270 RST 


40 


0000 


03280 ENDM 




0000 


03290 (a@DIRRD MACRO 




0000 


03300 LD 


A. 87 


0000 


03310 RST 


40 


0000 


03320 ENDM 




0000 


03330 @@DIRWR MACRO 




0000 


03340 LD 


A, 88 


0000 


03350 RST 


40 


0000 


03360 ENDM 




0000 


03370 (a@GATWR MACRO 




0000 


03380 LD 


A, 89 


0000 


03390 RST 


40 


0000 


03400 ENDM 




0000 


03410 mmi8 MACRO 




0000 


03420 LD 


A, 90 


0000 


03430 RST 


40 


0000 


03440 ENDM 




0000 


03450 (a(aMUL16 MACRO 




0000 


03460 LD 


A, 91 


0000 


03470 RST 


40 


0000 


03480 ENDM 




0000 


03490 (3@DIV8 MACRO 




0000 


03500 LD 


A, 93 


0000 


03510 RST 


40 


0000 


03520 ENDM 




0000 


03530 (3(aDIVl6 MACRO 




0000 


03540 LD 


A, 94 


0000 


03550 RST 


40 


0000 


03560 ENDM 




0000 


03570 @(3DECHEX 


MACRO 


0000 


03580 LD 


A, 96 


0000 


03590 RST 


40 


0000 


03600 ENDM 




0000 


03610 (a@HEXDEC 


MACRO 


0000 


03620 LD 


A, 97 


0000 


03630 RST 


40 


0000 


03640 ENDM 




0000 


03650 @(aHEX8 MACRO 




0000 


03660 LD 


A, 98 


0000 


03670 RST 


40 


0000 


03680 ENDM 




0000 


03690 (a@HEX16 MACRO 




0000 


03700 LD 


A, 99 


0000 


03710 RST 


40 


0000 


03720 ENDM 




0000 


03730 @@HIGH$ MACRO 




0000 


03740 LD 


A, 100 


0000 


03750 RST 


40 
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The Source 


UTILITY Fi 


les 


SVCMAC 


0000 


03760 


ENDM 




0000 


03770 (3@FLAGS MACRO 




0000 


03780 


LD 


A,101 


0000 


03790 


RST 


40 


0000 


03800 


ENDM 




0000 


03810 @@BANK 


MACRO 




0000 


03820 


LD 


A,102 


0000 


03830 


RST 


40 


0000 


$mm 


ENDM 




0000 


03850 @@BREAK MACRO 


fAW 


0000 


03860 


IFEQ 


%%,1 


0000 


03870 


LD 


HL,#ADR 


0000 


03880 


ENDIF 




mm 


03890 


LD 


A. 103 


mm 


03900 


RST 


40 


mm 


03910 


ENDM 




mm 


03920 @@CLS 


MACRO 




0000 


03930 


LD 


A,105 


0000 


03940 


RST 


40 


0000 


03950 


ENDM 




0000 


03960 (3@CKBRKC 


MACRO 


0000 


03970 


LD 


A, 106 


0000 


03980 


RST 


40 


mm 


03990 


ENDM 






04000 *LIST 


ON 




mm 


04010 


END 
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